Word 2007 批量修改嵌入型图片大小

2015年1月7日16:32:17 |发布: 乾元轩 |浏览:

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


支付宝打赏 微信打赏

« 上一篇下一篇 »

  • 评论:(0 )

已有 0 位网友发表了一针见血的评论,你还等什么?
◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。