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

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);
        }
    }
}

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