引言

在处理多个Word文档时，我们经常需要对这些文档进行连续页码设置，以便于打印和分发。手动设置每个文档的页码不仅耗时，而且容易出错。为了解决这个问题，我编写了一个VBA宏，它可以自动为一个文件夹中的所有Word文档设置连续的页码。本文将详细介绍这个宏的工作原理和使用方法。

宏的功能

这个VBA宏的主要功能是：

• 允许用户选择一个文件夹，宏将遍历该文件夹中的所有Word文档（.docx格式）。
• 按该文件夹下的文档顺序，为每个文档设置连续的页码，确保文档之间没有页码重复且页码不中断。
• 通过一个辅助函数获取每个文档的总页数，并根据此信息更新下一个文档的起始页码。
• 通过一个辅助函数为每个文档第一节设置起始页码，后续节为续前节，且不影响原始页脚。

宏的实现

以下是宏的代码实现，包括两个辅助函数和一个主过程。

主过程：a设置连续页码并遍历文档

Sub a设置连续页码并遍历文档()
    ' 定义变量用于存储文件夹路径
    Dim strFolderPath As String
    ' 创建FileSystemObject对象，用于操作文件系统
    Dim objFSO As Object
    ' 定义变量用于存储文件夹对象
    Dim objFolder As Object
    ' 定义变量用于存储文件对象
    Dim objFile As Object
    ' 定义变量用于存储Word文档对象
    Dim objDoc As Document
    ' 定义变量用于存储当前页码
    Dim iCurrentPage As Integer
    ' 定义变量用于存储文档的总页数
    Dim iTotalPages As Integer
    ' 定义变量用于存储之前文档的总页数，以便设置连续页码
    Dim iPreviousTotal As Integer

    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 使用文件选择对话框让用户选择文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        ' 如果用户选择了文件夹
        If .Show = -1 Then
            ' 存储选择的文件夹路径
            strFolderPath = .SelectedItems(1) & "\"
        Else
            ' 如果用户取消选择，则显示消息框并退出宏
            MsgBox "未选择文件夹，操作已取消。"
            Exit Sub
        End If
    End With

    ' 根据用户选择的路径获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)

    ' 初始化当前页码为1
    iCurrentPage = 1

    ' 遍历文件夹中的所有.docx文件
    For Each objFile In objFolder.Files
        ' 检查文件扩展名是否为docx
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "docx" Then
            ' 打开文档，不显示界面
            Set objDoc = Documents.Open(objFile.Path, Visible:=False)

            ' 调用宏设置页码，传入当前页码
            Call e自动前节设置(objDoc, iCurrentPage)

            ' 调用辅助函数获取当前文档的总页数
            iTotalPages = GetTotalPages(objDoc)

            ' 更新当前页码为下一个文档的起始页码
            iPreviousTotal = iCurrentPage
            iCurrentPage = iTotalPages + iPreviousTotal

            ' 保存并关闭文档
            objDoc.Close SaveChanges:=True
        End If
    Next objFile

    ' 显示消息框，告知用户所有文档的页码设置完成
    MsgBox "所有文档的页码设置完成。"
End Sub

辅助函数：GetTotalPages

' 辅助函数，用于获取文档的总页数
Function GetTotalPages(ByRef oDoc As Document) As Integer
    ' 获取当前文档的总页数，返回给调用者
    GetTotalPages = oDoc.Windows(1).Panes(1).Pages.Count
End Function

辅助函数：e自动前节设置

' 辅助函数，用于设置文档的页码
Sub e自动前节设置(ByRef oDoc As Document, ByRef iStartingPage As Integer)
    Dim oSection As Section
    For Each oSection In oDoc.Sections
        If oSection.Index = 1 Then
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                .NumberStyle = wdPageNumberStyleArabic
                .RestartNumberingAtSection = True
                .StartingNumber = iStartingPage
            End With
        Else
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                .RestartNumberingAtSection = False
            End With
        End If
    Next oSection
End Sub

使用方法

1. 打开Word，按下 Alt + F11 打开VBA编辑器。
2. 插入一个新的模块，并将上述代码粘贴进去。
3. 运行宏 a设置连续页码并遍历文档。
4. 选择包含Word文档的文件夹。
5. 宏将自动为每个文档设置连续页码，并在完成后弹出提示消息。

完整代码

Sub a设置连续页码并遍历文档()
    ' 定义变量用于存储文件夹路径
    Dim strFolderPath As String
    ' 创建FileSystemObject对象，用于操作文件系统
    Dim objFSO As Object
    ' 定义变量用于存储文件夹对象
    Dim objFolder As Object
    ' 定义变量用于存储文件对象
    Dim objFile As Object
    ' 定义变量用于存储Word文档对象
    Dim objDoc As Document
    ' 定义变量用于存储当前页码
    Dim iCurrentPage As Integer
    ' 定义变量用于存储文档的总页数
    Dim iTotalPages As Integer
    ' 定义变量用于存储之前文档的总页数，以便设置连续页码
    Dim iPreviousTotal As Integer

    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    ' 使用文件选择对话框让用户选择文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        ' 如果用户选择了文件夹
        If .Show = -1 Then
            ' 存储选择的文件夹路径
            strFolderPath = .SelectedItems(1) & "\"
        Else
            ' 如果用户取消选择，则显示消息框并退出宏
            MsgBox "未选择文件夹，操作已取消。"
            Exit Sub
        End If
    End With

    ' 根据用户选择的路径获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)

    ' 初始化当前页码为1
    iCurrentPage = 1

    ' 遍历文件夹中的所有.docx文件
    For Each objFile In objFolder.Files
        ' 检查文件扩展名是否为docx
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "docx" Then
            ' 打开文档，不显示界面
            Set objDoc = Documents.Open(objFile.Path, Visible:=False)

            ' 调用宏设置页码，传入当前页码
            Call e自动前节设置(objDoc, iCurrentPage)

            ' 调用辅助函数获取当前文档的总页数
            iTotalPages = GetTotalPages(objDoc)

            ' 更新当前页码为下一个文档的起始页码
            iPreviousTotal = iCurrentPage
            iCurrentPage = iTotalPages + iPreviousTotal

            ' 保存并关闭文档
            objDoc.Close SaveChanges:=True
        End If
    Next objFile

    ' 显示消息框，告知用户所有文档的页码设置完成
    MsgBox "所有文档的页码设置完成。"
End Sub

' 辅助函数，用于获取文档的总页数
Function GetTotalPages(ByRef oDoc As Document) As Integer
    ' 获取当前文档的总页数，返回给调用者
    GetTotalPages = oDoc.Windows(1).Panes(1).Pages.Count
End Function

' 辅助函数，用于设置文档的页码
Sub e自动前节设置(ByRef oDoc As Document, ByRef iStartingPage As Integer)
    ' 定义变量用于存储文档节对象
    Dim oSection As Section
    ' 遍历文档的所有节
    For Each oSection In oDoc.Sections
        ' 如果是第一个节，则设置页码样式和起始页码
        If oSection.Index = 1 Then
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                ' 设置页码样式为阿拉伯数字
                .NumberStyle = wdPageNumberStyleArabic
                ' 设置在该节重新开始页码编号
                .RestartNumberingAtSection = True
                ' 设置起始页码
                .StartingNumber = iStartingPage
            End With
        Else
            ' 对于其他节，不重新开始页码编号
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                .RestartNumberingAtSection = False
            End With
        End If
    Next oSection
End Sub

注意事项

• 确保所有文档都是Word文档（.docx格式）。
• 宏在设置页码时不会更改文档的内容。
• 如果文件夹中包含非Word文档，宏将忽略这些文件。

结语

通过使用这个VBA宏，你可以轻松地为多个Word文档设置连续页码，大大提高工作效率。希望这个宏对你有所帮助，如果你有任何问题或建议，请在评论区告诉我。