批量处理word中图片.docx

批量处理word中图片主要实现功能是：自动打开一个硬盘，读者自己选择自己要插入的多张图片（量越大越有效果），在代码中修改好每张图片的大小，程序会将每张图片处理为相同大小，同时还可以将图片名字显现在每张图片的下方。操作步骤：第一步，新建一个word文档；第二步，按ALT+F11键，打开VBA（此界面就是用来编写代码）；第三步，找到你要处理的word文档，单击右键——插入——模块，将命令复制粘帖到对话框中，单击运行即可；具体操作如下：方法一、批量处理图片大小代码如下：（只需要修改宽度和高度）Sub FormatPics() Dim iSha As InlineShape For Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse 不锁定纵横比 iSha.Width = CentimetersToPoints(24.66) 宽5CM iSha.Height = CentimetersToPoints(13.7) 高5CM End If NextEnd Sub方法二、批量处理图片大小（自动为图片命名）代码如下：Sub InsertPic() Dim myfile As FileDialog Set myfile = Application.FileDialog(msoFileDialogFilePicker) With myfile .InitialFileName = I:\ If .Show = -1 Then For Each fn In .SelectedItems Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True) mypic.LockAspectRatio = msoFalse 不锁定纵横比 mypic.Width = CentimetersToPoints(24.66) 宽5CM mypic.Height = CentimetersToPoints(13.7) 高5CM If Selection.Start = ActiveDocument.Content.End - 1 Then 如光标在文末 Selection.TypeParagraph 在文末添加一空段 Else Selection.MoveDown End If Selection.Text = Basename(fn) 函数取得文件名 Selection.EndKey If Selection.Start = ActiveDocument.Content.End - 1 Then 如光标在文末 Selection.TypeParagraph 在文末添加一空段 Else Selection.MoveDown End If Next fn Else End If End With Set myfile = NothingEnd SubFunction Basename(FullPath) 取得文件名 Dim x, y Dim tmpstring tmpstring = FullPath x = Len(FullPath) For y = x To 1 Step -1 If Mid(FullPath, y, 1) = \ Or _ Mid(FullPath, y, 1) = : Or _ Mid(FullPath, y, 1) = / Then tmpstring = Mid(FullPath, y + 1) Exit For End If Next Basena