批量更改word中图片的宏命令.docVIP

The Standardization Office was revised on the afternoon of December 13, 2020 The Standardization Office was revised on the afternoon of December 13, 2020 批量更改word中图片的宏命令 Sub setpicsize() Dim n On Error Resume Next For n = 1 To (n).Height = 155 (n).Width = 207 Next n For n = 1 To (n).Height = 155 (n).Width = 207 Next n End Sub 155 207代表宽和高 宏点击新建，直接命令复制上运行即可。