C#/VB.NET 在Word文档中插入分页符

分页符是分页的一种符号，上一页结束以及下一页开始的位置。通查用于在指定位置强制分页。本文将分为两部分来介绍如何在Word文档中插入分页符。并附上C#/VB.NET以供参考，详情请阅读以下内容。

• 在特定段落后插入分页符
• 在特定文本后插入分页符

程序环境

本次测试时，在程序中引入Free Spire.Doc for .NET。可通过以下方法引用Spire.Doc.dll文件：

方法1：将 Free Spire.Doc for .NET下载到本地，解压，安装。安装完成后，找到安装路径下BIN文件夹中的Spire.Doc.dll。然后在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径BIN文件夹下的dll文件添加引用至程序。

方法2：通过NuGet安装。可通过以下2种方法安装：

（1）可以在Visual Studio中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理NuGet包”，然后搜索“Free Spire.Doc”，点击“安装”。等待程序安装完成。

（2）将以下内容复制到PM控制台安装。

Install-Package FreeSpire.Doc -Version 10.8.0

在特定段落后插入分页符

具体步骤：

• 创建一个 Document 实例。

• 使用 Document.LoadFromFile() 方法加载 Word 文档。

• 使用 Document.Sections[sectionIndex] 属性获取所需的节。

• 使用 Section.Paragraphs[paragraphIndex] 属性获取所需的段落。

• 使用 Paragraph.AppendBreak(BreakType.PageBreak) 方法为段落添加分页符。

• 使用 Document.SaveToFile() 方法保存结果文档。

完整代码

【C#】

using Spire.Doc;
using Spire.Doc.Documents;

namespace InsertPageBreakAfterParagraph
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建一个Document实例
            Document document = new Document();

            //加载Word文档
            document.LoadFromFile("小王子.docx");

            //获取第一个节
            Section section = document.Sections[0];

            //获取该节的第二段
            Paragraph paragraph = section.Paragraphs[1];

            //在段落中附加分页符
            paragraph.AppendBreak(BreakType.PageBreak);

            //保存结果文档
            document.SaveToFile("插入分页符.docx", FileFormat.Docx2013);
        }
    }
}

【VB.NET】

Imports Spire.Doc
Imports Spire.Doc.Documents

Namespace InsertPageBreakAfterParagraph
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '创建一个Document实例
            Dim document As Document = New Document()

            '加载Word文档
            document.LoadFromFile("小王子.docx")

            '获取第一个节
            Dim section As Section = document.Sections(0)

            '获取该节的第二段
            Dim paragraph As Paragraph = section.Paragraphs(1)

            '在段落中附加分页符
            paragraph.AppendBreak(BreakType.PageBreak)

            '保存结果文档
            document.SaveToFile("插入分页符.docx", FileFormat.Docx2013)
        End Sub
    End Class
End Namespace

效果图

在特定文本后插入分页符

• 创建一个 Document 实例。
• 使用 Document.LoadFromFile() 方法加载 Word 文档。
• 使用 Document.FindString() 方法查找特定文本。
• 使用 TextSelection.GetAsOneRange() 方法访问搜索文本的文本范围。
• 使用 ParagraphBase.OwnerParagraph 属性获取文本范围所在的段落。
• 使用 Paragraph.ChildObjects.IndexOf() 方法获取段落中文本范围的位置索引。
• 初始化 Break 类的实例以创建分页符。
• 使用 Paragraph.ChildObjects.Insert() 方法在搜索文本后插入分页符。
• 使用 Document.SaveToFile() 方法保存结果文档。

完整代码

【C#】

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

namespace InsertPageBreakAfterText
{
    class Program
    {
        static void Main(string[] args)
        {
            //创建一个Document实例
            Document document = new Document();

            //加载 Word 文档
            document.LoadFromFile("小王子.docx");

            //查找特定文本
            TextSelection selection = document.FindString("宝贵人生财富", true, true);
            //访问搜索文本的文本范围
            TextRange range = selection.GetAsOneRange();
            //获取文本范围所在的段落
            Paragraph paragraph = range.OwnerParagraph;
            //获取段落中文本范围的位置索引
            int index = paragraph.ChildObjects.IndexOf(range);

            //创建分页符
            Break pageBreak = new Break(document, BreakType.PageBreak);
            //在搜索文本后插入分页符
            paragraph.ChildObjects.Insert(index + 1, pageBreak);

            //保存结果文档
            document.SaveToFile("在特定文本后插入分页符.docx", FileFormat.Docx2013);
        }
    }
}

【VB.NET】

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields

Namespace InsertPageBreakAfterText
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '创建一个Document实例
            Dim document As Document = New Document()

            '加载 Word 文档
            document.LoadFromFile("小王子.docx")

            '查找特定文本
            Dim selection As TextSelection = document.FindString("宝贵人生财富", True, True)
            '访问搜索文本的文本范围
            Dim range As TextRange = selection.GetAsOneRange()
            '获取文本范围所在的段落
            Dim paragraph As Paragraph = range.OwnerParagraph
            '获取段落中文本范围的位置索引
            Dim index As Integer = paragraph.ChildObjects.IndexOf(range)

            '创建分页符
            Dim pageBreak As Break = New Break(document, BreakType.PageBreak)
            '在搜索文本后插入分页符
            paragraph.ChildObjects.Insert(index + 1, pageBreak)

            '保存结果文档
            document.SaveToFile("在特定文本后插入分页符.docx", FileFormat.Docx2013)
        End Sub
    End Class
End Namespace

效果图

注意：测试代码中的文件路径为程序Debug路径，仅供参考，文件路径可自定义为其他路径。