使用VBA能够批量修改,处理繁琐的操作,解放双手~
本文对应的软件是word2013版。
具体步骤:
1.新建一个能够用宏的文档类型:dotm。
2.一次插入所有的图片
3.点击“宏”
在弹出的窗口中输入宏名“图片排版”;
选择该宏使用的位置,此处是选择的只用于“Doc2”;
点击“创建”。
4.在弹出的“Visual Basic”界面,粘贴下面的代码,保存(宽度和高度可以自己修改~)
Sub 图片排版()
'
' 图片排版 宏
'
'
Dim i As Integer
For i = 1 To ActiveDocument.InlineShapes.Count
With ActiveDocument.InlineShapes(i)
.Height = 238 * 0.7
.Width = 315 * 0.8
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderTop).LineWidth = wdLineWidth050pt
.Borders(wdBorderTop).Color = wdColorAutomatic
End With
Next i
End Sub
5.再次点击“宏”,点击“运行”,每一个图片的大小就自动改变了!