Word文档中批量排版图片，再也不用一张一张调整了，效率翻倍

首先，批量将word图片保存下来，可以先利用word2007及以上版本，将doc另存为docx格式，再将其改名为.zip格式，再解压出来，找到media文件夹即可。参考网址

一、通过选择对象或者选择窗格，或者降低Word版本，利用2003版进行多个选择。前两种方法比较通用，但当图片较多且不在同一个页面显示，选择起来就有难度了。参考网址一参考网址二

二、利用查找和替换功能，通过Ctrl+H调出替换窗格，在查找内容里面输入“^g”或者点击更多，在特殊格式中找到“图形”，帮我们输入的内容也是“^g”哦，如果你能记住当然是最好不过了。在替换为窗格中找到格式中的“段落”，然后在对齐方式中选择“居中”，直接确定就可以了。这样，文档中的所有的图片就居中对齐了，是不是很方便。

三、利用宏

Sub img()
    '设置图片大小
    Dim n '    图片个数
    On Error Resume Next ' 忽略错误
    For n = 1 To ActiveDocument.InlineShapes.Count '    InlineShapes 类型图片
    ActiveDocument.InlineShapes(n).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中
        ActiveDocument.InlineShapes(n).Width = 28.345 * 5 '设置图片宽度14厘米
    Next n
    For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片
        ActiveDocument.Shapes(n).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter '居中
        ActiveDocument.Shapes(n).Width = 28.345 * 5 '设置图片宽度14厘米
    Next n
End Subjs