在本文中，我们将重点向您展示 3 种在 Word 文档中快速插入分节符的方法。

分节符用于将文档分成节、章等。此外，插入分节符是在不同页面上设置不同的页眉或页脚必不可少的部分。

通常，我们必须导航到页面并将光标定位在适当的位置。 接下来单击“页面布局”和“中断”。 然后在下拉菜单中选择分节符类型。 这样的程序有时会很乏味。 因此，我们希望将您从通常的例程中解救出来，并采用一种快速而肮脏的解决方案。

方法 1：在特定页面上插入分节符

首先，在Word中按“Alt+F11”调用VBA编辑器。

接下来通过单击左侧栏中的“正常”来创建一个新模块。

然后单击菜单栏上的“插入”选项卡。

在“插入”的下拉菜单中选择“模块”。

双击新模块打开它。

将以下宏粘贴到编码区域：

Sub InsertBreakOnSpecificPage()

Dim strPageNum As String

Dim nPageNum As Integer

strPageNum = InputBox("Enter a page number: ")

nPageNum = Int(strPageNum)

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum

ActiveDocument.Bookmarks("\page").Range.Select

Selection.Collapse wdCollapseEnd

Selection.InsertBreak Type:=wdSectionBreakContinuous

End Sub

现在，点击“运行”或点击“F5”来执行代码。

接下来输入页码 tar在提示框中获取页面。 然后单击“确定”继续。

到目前为止，您已经在第 2 页的末尾插入了一个分节符。

备注:

如果要使用分节符将多个连续的页面分隔为一个部分，则需要插入两次分节符，一次在上一节最后一页的末尾，一次在本节最后一页的末尾.

在这种情况下，在插入第一个分隔符时，您应该记住输入正确的数字，即上一节最后一页的页码。

方法 2：在文档的每一页上插入分节符

首先，严格按照上述步骤安装并运行一个宏。

然后用这个替换宏：

Sub InsertBreakOnEachPage()

Dim nTotalPageNumber As Integer

For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber

Application.Browser.Target = wdBrowsePage

ActiveDocument.Bookmarks("\page").Range.Select

Selection.Collapse wdCollapseEnd

Selection.InsertBreak Type:=wdSectionBreakContinuous

Next

End Sub

此宏在当前文档的每一页末尾插入一个分节符。

方法 3：在多个文档的每一页上插入分节符

首先，把所有 tar在同一文件夹中获取文档。

然后类似地，按照正确的说明安装并运行宏。

这次，使用这些代码：

Sub InsertBreaksIntoMultiDoc()

Dim StrFolder As String

Dim strFile As String

Dim objDoc As Document

Dim dlgFile As FileDialog

Dim nTotalPageNumber As Integer

Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)

With dlgFile

If .Show = -1 Then

StrFolder = .SelectedItems(1) & "\"

Else

MsgBox "No folder is selected! Please select the target folder."

Exit Sub

End If

End With

strFile = Dir(StrFolder & "*.docx", vbNormal)

While strFile <> ""

Set objDoc = Documents.Open(FileName:=StrFolder & strFile)

For nTotalPageNumber = 1 To Selection.Information(wdNumberOfPagesInDocument)

Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nTotalPageNumber

Application.Browser.Target = wdBrowsePage

ActiveDocument.Bookmarks("\page").Range.Select

Selection.Collapse wdCollapseEnd

Selection.InsertBreak Type:=wdSectionBreakContinuous

Next

objDoc.Save

objDoc.Close

strFile = Dir()

Wend

End Sub

宏应触发“浏览”窗口。 选择您保存文件的文件夹，然后单击“确定”。

该过程不会超过几秒钟。

文档损坏的便捷工具

遇到损坏的文档是一种令人沮丧的经历。 在这种情况下，一个好的可靠的工具可以提供帮助 修字 文件应该可以减轻很多人的焦虑。 因此，在选择修复工具时需要格外谨慎。 效用不足可能会造成进一步的损坏。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel恢复 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com