1.新建一个空白word文档
2.选中一组图片(177张),按下ctr+c复制
3.将这组图片复制到word中。
(本来我们的图片在文件夹中的时候是排好序且是正序的,可是粘贴到word这里好像变成乱序即倒序了。那么我们撤销,返回到文件夹,将文件的排序方式换成“名称,递减”,这样在文件夹中的顺序就调换了,我们再重复复制粘贴到word的操作,,我们就会惊奇的发现在word中的图片按顺序排好了)
4.在以打开的word中按下Alt+F8,在红框1输入宏名ctrPicSizeTest(自己取),然后点击红框2的创建
4.注意红框1,一定要在自己刚建立的宏里面写代码,别张冠李戴。复制这段代码到红框1中
Myheigth = 24
Mywidth = 17.52
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
(可以参照红框1上面那个我已经创建好的宏,其中24是图片的高,17.52是图片的宽),然后红框2的保存
5.按下Alt+F8,选中刚建立的那个宏ctrPicSizeTest,点击运行。然后你就会发现图片变“大”了。
设置一下页边距是的看起来好看一些
6.哒哒哒,完成了
7.另存为.pdf
行了。