Word批量排版100张图片

在日常办公或学习中，经常需要将大量图片插入到Word文档中进行排版，例如制作产品图册、实验记录、照片集、素材汇总等。手动一张张插入并调整格式效率极低。本文将介绍一种高效的方法，帮助你在Word中快速批量排版100张甚至更多图片。

一、准备工作

• 确保所有图片已按顺序命名（如 img001.jpg, img002.jpg...），便于排序。
• 备份原始图片文件夹，防止误操作。
• 使用 Microsoft Word 2016 及以上版本（推荐 Office 365 或 Word 2019/2021）。

二、批量插入图片方法

1. 打开空白Word文档。
2. 按 Alt + F11 打开VBA编辑器。
3. 点击【插入】→【模块】，粘贴以下VBA代码：

Sub InsertPictures()
    Dim fd As FileDialog
    Dim picPath As String
    Dim i As Integer
    
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        picPath = fd.SelectedItems(1)
    Else
        Exit Sub
    End If
    
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim folder As Object
    Set folder = fso.GetFolder(picPath)
    
    Dim file As Object
    For Each file In folder.Files
        If LCase(fso.GetExtensionName(file.Name)) Like "jpg" Or _
           LCase(fso.GetExtensionName(file.Name)) Like "jpeg" Or _
           LCase(fso.GetExtensionName(file.Name)) Like "png" Or _
           LCase(fso.GetExtensionName(file.Name)) Like "bmp" Then
           
            Selection.InlineShapes.AddPicture FileName:=file.Path, LinkToFile:=False, SaveWithDocument:=True
            Selection.TypeParagraph ' 换行
        End If
    Next file
    
    MsgBox "共插入 " & i & " 张图片！", vbInformation
End Sub
    

4. 运行宏：按 F5 执行，选择包含100张图片的文件夹。
5. 等待Word自动插入所有图片，每张图片占一行。

三、统一排版设置

• 统一图片大小：全选图片（Ctrl+A → 右键 → “设置图片格式” → 大小选项卡），设定固定高度（如5厘米），锁定纵横比。
• 居中对齐：全选后点击“开始”选项卡中的“居中”按钮。
• 添加题注（可选）：右键图片 → “插入题注”，可自动生成编号说明。
• 分栏排版（可选）：若需多列显示，可在“布局”→“栏”中选择两栏或三栏。

四、注意事项

• 图片过多可能导致Word卡顿，建议分批处理（如每50张一个文档）。
• 插入后文档体积会显著增大，可另存为PDF以压缩体积。
• 确保图片命名无中文或特殊符号，避免VBA读取错误。

五、替代方案推荐

如果不熟悉VBA，也可使用以下工具辅助：

• 使用“邮件合并”功能结合Excel路径批量插入（较复杂）。
• 借助第三方插件或在线工具预处理图片后再导入。