工作中需要批量生成上百份Word文档，如果Word文档基础内容一致，可以采用Word和Excel的标准功能批量生成。 以下示例为生成多份三方补充协议，并采用VBA批量转换为PDF格式。

Word批量生成文件

1. 打开我们的Word模板，选择功能栏【邮件】->【开始邮件合并】->【信函】,

1.png

2. 然后点击【选择收件人】-> 【使用现有列表】，然后选择对应的Excel文件，打开即可。

2.png

3. 鼠标停留在对应位置，点击【插入合并域】选择插入对应的内容。

3.png

4. 插入完成后点击【邮件】->【完成并合并】下拉选项中【编辑单个文档】，选择【全部】并【确定】。此时，就会弹出一个新窗口，新窗口的文件合并了所有的模板内容。

4.png 5.png

5. 进入【试图】->【大纲】，选中标题“协议名称1”，然后设置为“1级”。设置大纲为1即生成对应文件的名称。此标题前不能有空行。

7.png

6. 然后使用快捷键【Ctrl+A】全选内容，在【大纲显示】->【主控文档】点击【显示文档】，再点击进入【主控文档】->【创建】。

8.png 9.png

6. 然后，点【关闭大纲试图】，进入菜单栏【文件】-【另存为】保存一下。另存为的时候一定要重新选择保存位置，选择具体的文件夹保存。

10.png 11.png

Word文件批量转换为PDF

word文件批量转换为PDF,网上可用的工具很多。当然我们选择最便宜的工具VBA。

1. 在Word中，打开Microsoft Visual Basic应用程序窗口，即VBA窗口

2. 在VBA窗口，在【插入】菜单中点击【模块】，然后将以下VBA代码复制到弹出的模块窗口中。

Sub ConvertWordsToPdfs()
    'Updated by Extendoffice 20181123
    Dim xIndex As String
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xNewName As String
    Dim xFileName As String
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
        If xDlg.Show <> -1 Then Exit Sub
                xFolder = xDlg.SelectedItems(1) + "\"
                xFileName = Dir(xFolder & "*.*", vbNormal)
                While xFileName <> ""
                    If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
                        xIndex = InStr(xFileName, ".") + 1
                        xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
                        Documents.Open FileName:=xFolder & xFileName, _
                        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
                        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                        wdOpenFormatAuto, XMLTransform:=""
                        ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
                        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
                        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
                        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
                        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
                        BitmapMissingFonts:=True, UseISO19005_1:=False
                        ActiveDocument.Close
                    End If
                    xFileName = Dir()
                    Wend
                End Sub

13.png

3. 按F5键来运行代码，或者点绿色三角图标来运行。

4. 弹出浏览对话框，选择包含要转换PDF文件的word文件的文件夹，然后点OK按钮。

14.png

5. 然后，所选文件夹中的所有Word文档将立即转换为单独的PDF文件。

15.png

以上所有操作完成。