C#/VB.NET 如何在 Word 文档中添加页眉和页脚

Posted 2023-02-17

页眉位于文档中每个页面的顶部区域，常用于显示文档的附加信息，可以插入时间、图形、公司微标、文档标题、文件名或作者姓名等；页脚位于文档中每个页面的底部的区域，常用于显示文档的附加信息，可以在页脚中插入文本或图形。今天这篇文章就将为大家展示如何以编程的方式在在 Word 文档中添加页眉和页脚。下面是我整理的思路及方法，并附上C#/VB.NET供大家参考。

程序环境

本次测试时，在程序中引入Free Spire.Doc for .NET。可通过以下方法引用 Free 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

在 Word 文档中添加页眉和页脚

该表列出了操作中使用的主要类、属性和方法。

名称	描述
Document类	表示 Word 文档模型。
Document. LoadFromFile()方法	加载 Word 文档。
Section 类	表示 Word 文档中的一个节。
Document.Sections 属性	获取文档的节。
HeaderFooter 类	表示 Word 的页眉和页脚模型。
Section.HeadersFooters.Header属性	获取当前节的页眉/页脚。
Paragraph 类	表示文档中的段落。
HeaderFooter. AddParagraph() 方法	在部分末尾添加段落。
TextRange 类	表示文本范围。
Paragraph.AppendText()方法	将文本附加到段落的末尾。
Document. SaveToFile()方法	将文档保存为 Microsoft Word 或其他文件格式的文件。

添加页眉和页脚的详细步骤如下：

• 创建 Document 类的实例。
• 使用Document.LoadFromFile(string fileName) 方法加载示例文档。
• 使用 Document.Sections 属性获取 Word 文档的指定节
• 添加页眉

1. 通过HeadersFooters.Header 属性获取页眉。​
2. 使用HeaderFooter. AddParagraph()方法添加段落。并设置段落对齐方式。​
3. 使用 Paragraph.AppendText(string text) 方法追加文本并设置字体名称、大小、颜色等。

• 添加页脚

4. 调用HeadersFooter.Footer 属性获取页脚。
5. 在页脚中添加段落和文本。

• 使用 Document.SaveToFile(string filename, FileFormat fileFormat) 方法保存 Word 文档。

完整代码

C#

using Spire.Doc;
using Spire.Doc.Documents;
using System.Drawing;
using Spire.Doc.Fields;

namespace AddHeaderAndFooter

    class Program
    
        static void Main(string[] args)
        
            //创建 Document 类的实例
            Document document = new Document();

            //加载示例文档
            document.LoadFromFile("测试文档.docx");

            //获取 Word 文档的指定节
            Section section = document.Sections[0];

            //通过 HeadersFooters.Header 属性获取页眉
            HeaderFooter header = section.HeadersFooters.Header;

            //添加段落并设置段落对齐样式
            Paragraph headerPara = header.AddParagraph();
            headerPara.Format.HorizontalAlignment = HorizontalAlignment.Left;

            //附加文本并设置字体名称、大小、颜色等。
            TextRange textrange = headerPara.AppendText("《生死疲劳》" + "莫言");
            textrange.CharacterFormat.FontName = "Arial";
            textrange.CharacterFormat.FontSize = 13;
            textrange.CharacterFormat.TextColor = Color.DodgerBlue;
            textrange.CharacterFormat.Bold = true;

            //获取页脚、添加段落和附加文本
            HeaderFooter footer = section.HeadersFooters.Footer;
            Paragraph footerPara = footer.AddParagraph();
            footerPara.Format.HorizontalAlignment = HorizontalAlignment.Center;
            textrange = footerPara.AppendText("我不眷恋温暖的驴棚，我追求野性的自由。");
            textrange.CharacterFormat.Bold = false;
            textrange.CharacterFormat.FontSize = 11;

            //保存文件
            document.SaveToFile("结果文档.docx", FileFormat.Docx);
        
    

​VB.NET

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing
Imports Spire.Doc.Fields

Namespace AddHeaderAndFooter
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            创建 Document 类的实例
            Dim document As Document = New Document()

            加载示例文档
            document.LoadFromFile("生死疲劳.docx")

            获取 Word 文档的指定节
            Dim section As Section = document.Sections(0)

            通过 HeadersFooters.Header 属性获取页眉
            Dim header As HeaderFooter = section.HeadersFooters.Header

            添加段落并设置段落对齐样式
            Dim headerPara As Paragraph = header.AddParagraph()
            headerPara.Format.HorizontalAlignment = HorizontalAlignment.Left

            附加文本并设置字体名称、大小、颜色等。
            Dim textrange As TextRange = headerPara.AppendText("《生死疲劳》" & "莫言")
            textrange.CharacterFormat.FontName = "宋体"
            textrange.CharacterFormat.FontSize = 12
            textrange.CharacterFormat.TextColor = Color.DodgerBlue
            textrange.CharacterFormat.Bold = True

            获取页脚、添加段落和附加文本
            Dim footer As HeaderFooter = section.HeadersFooters.Footer
            Dim footerPara As Paragraph = footer.AddParagraph()
            footerPara.Format.HorizontalAlignment = HorizontalAlignment.Center
            textrange = footerPara.AppendText("我不眷恋温暖的驴棚，我追求野性的自由。")
            textrange.CharacterFormat.Bold = False
            textrange.CharacterFormat.FontSize = 11

            保存文件
            document.SaveToFile("结果文档.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

效果图

—本文完—