Word 2007 批量修改嵌入型图片大小
这段代码是批量修改文件夹所有docx文件中的图片大小。打开word 2007，打开宏命令，新建名字为"批量格式设置"的宏，然后复制以下代码并保存。保存后，点击查看宏，选中命名为"批量格式设置"的宏，然后运行，就可以一步一步做，直到完成修改目的。
Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Docx As Document '如果是2003版则Docx改为Doc Dim myInlineShape As InlineShape On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog .Filters.Clear '清除所有文件筛选器中的项目 .Filters.Add "所有 WORD 文件", "*.docx", 1 '增加筛选器的项目为所有WORD文件如果是2003版则.docx改为.doc .AllowMultiSelect = True '允许多项选择 If .Show = -1 Then '确定 Application.ScreenUpdating = False For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False) With Doc For Each myInlineShape In ActiveDocument.InlineShapes With myInlineShape .LockAspectRatio = msoFalse '不锁定纵横比 .Height = MillimetersToPoints(23) '设置高度为23mm可根据需要修改 .Width = MillimetersToPoints(46) '设置宽度为46mm可根据需要修改 End With Next End With Doc.Close True Next Application.ScreenUpdating = True End If End With MsgBox "格式化文档操作设置完毕!", vbInformation End Sub
