这段代码是批量修改文件夹所有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

赏 支付宝打赏 微信打赏

新浪微博微信复制网址打印分享吧：