Word多图片放在一张A4纸打印--使用VBS建立一个宏

通常结合PS批量处理图片_统一大小一起使用。首先批量处理所有图片固定大小，然后在放在word中打印。

建立一个宏

image.png

image.png

代码如下

Sub A4纸打印test()
'
' A4纸打印test 宏 width和height为单张图片的宽高数值自定义，注意其比例
'

'
'
Dim i As Integer

For i = 1 To ActiveDocument.InlineShapes.Count

With ActiveDocument.InlineShapes(i)

.Height = 334

.Width = 188

.Borders(wdBorderTop).LineStyle = wdLineStyleSingle

.Borders(wdBorderTop).LineWidth = wdLineWidth050pt

.Borders(wdBorderTop).Color = wdColorAutomatic

End With

Next i

End Sub

文尾图.jpg

--by Affandi ⊙▽⊙