word贴图,贴了很多张,怎样设置每张都占满一页文档?

发布网友发布时间：2022-04-23 18:32

共3个回答

热心网友时间：2023-10-13 01:56

ALT+ENTER是“重复操作”的快捷键
把所有的图都拷贝进去，选中第一个图，调整大小占满全页，
然后，选中第2个，ALT+ENTER
选中第3个，ALT+ENTER
这样比较快捷一些

（注意：调整占满全页后、选中第2个图之前，最好不要做其他操作）
不知道你为什么要这么做，如果仅仅是打印的话，可以把纸张大小设成图片大小，这样直接就占满全页了，打印的时候选择用A4的纸，直接缩放打印就行了。

热心网友时间：2023-10-13 01:56

Sub 统一图片尺寸()
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(4) '高度4cm
ActiveDocument.InlineShapes(n).Width = CentimetersToPoints(3) '宽度3cm
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = CentimetersToPoints(4) '高度4cm
ActiveDocument.Shapes(n).Width = CentimetersToPoints(3) '宽度3cm
Next n
End Sub

上面是同一图片尺寸的宏代码，希望你能用得上。
PS：代码中的高和宽对应的数字可以根据需要进行修改。

热心网友时间：2023-10-13 01:56

调整大小就可以。