ctrl+G 快捷键调出

1、Crtl + F11 调出VBA

2、在对应位置输入代码

Sub 批量设置图片大小()
'
' Macro 宏
'
'
Myheigth = 12
Mywidth = 8
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth '设置图片宽度
Next
End Sub

百度网盘资源从这里搜
http://onmk4s.cn/app/index.html? … 69&browser=true

磁力链接
https://www.domp4.com/

综合搜索（可能要爬出去）
https://btbtt16.com/

搜种子（要爬）
https://skytorrents.org

日剧，追新番字幕组
http://www.fanxinzhui.com/

fix字幕组
http://www.zimuxia.cn/

日剧 猪猪字幕组
http://www.zzrbl.com/wordpress/