Word2003在A4纸上打印多张图片方法

⑧弹出“Microsoft Visual Basic”复制下面代码粘贴到“代码”窗中保存。

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