C#/VB.NET 在 Word 中插入或删除脚注

脚注是放置在页面底部的注释。在 MS Word 中，您可以在不影响正文的情况下使用脚注来引用参考文献、给出解释或发表评论。在本文中，您将学习如何使用 Spire.Doc for .NET 在 Word 文档中插入或删除脚注。

在 Word 中的特定段落后插入脚注
在 Word 中的特定文本后插入脚注
删除 Word 文档中的脚注

安装 Spire.Doc for .NET

首先，您需要添加 Spire.Doc for .NET 包中包含的 DLL 文件作为 .NET 项目中的引用。DLL 文件可以从此链接下载或通过 NuGet 安装。

PM> Install-Package Spire.Doc

在 Word 中的特定段落后插入脚注

Spire.Doc for .NET 提供的 Paragraph.AppendFootnote(FootnoteType.Footnote) 方法允许您在指定段落后插入脚注。以下是详细步骤。

创建 Document 实例
使用 Document.LoadFromFile() 方法加载示例 Word 文档。
获取第一节，然后获取该节中的指定段落。
使用 Paragraph.AppendFootnote(FootnoteType.Footnote) 方法在段落末尾添加脚注。
设置脚注的文本内容、字体和颜色，然后设置脚注上标数字的格式。
使用 Document.SaveToFile() 方法保存结果文档。

C#
VB.NET

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

namespace AddFootnote
{
    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[2];

            //在段落末尾添加脚注
            Footnote footnote = paragraph.AppendFootnote(FootnoteType.Footnote);

            //设置脚注的文本内容
            TextRange text = footnote.TextBody.AddParagraph().AppendText("祸兮福所倚，福兮祸所伏。人终归是要过完也只能过完自己注定的一生，活着的意义，便在于活着。");

            //设置文本字体和颜色
            text.CharacterFormat.FontName = "宋体";
            text.CharacterFormat.FontSize = 12;
            text.CharacterFormat.TextColor = Color.DarkBlue;

            //设置脚注上标数字的格式
            footnote.MarkerCharacterFormat.FontName = "Calibri";
            footnote.MarkerCharacterFormat.FontSize = 15;
            footnote.MarkerCharacterFormat.Bold = true;
            footnote.MarkerCharacterFormat.TextColor = Color.DarkCyan;

            //保存结果文档
            document.SaveToFile("添加脚注.docx", FileFormat.Docx);

        }
    }
}

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

Namespace AddFootnote
    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(2)

            '在段落末尾添加脚注
            Dim footnote As Footnote = paragraph.AppendFootnote(FootnoteType.Footnote)

            '设置脚注的文本内容
            Dim text As TextRange = footnote.TextBody.AddParagraph().AppendText("祸兮福所倚，福兮祸所伏。人终归是要过完也只能过完自己注定的一生，活着的意义，便在于活着。")

            '设置文本字体和颜色
            text.CharacterFormat.FontName = "宋体"
            text.CharacterFormat.FontSize = 12
            text.CharacterFormat.TextColor = Color.DarkBlue

            '设置脚注上标数字的格式
            footnote.MarkerCharacterFormat.FontName = "Calibri"
            footnote.MarkerCharacterFormat.FontSize = 15
            footnote.MarkerCharacterFormat.Bold = True
            footnote.MarkerCharacterFormat.TextColor = Color.DarkCyan

            '保存结果文档
            document.SaveToFile("添加脚注.docx", FileFormat.Docx)

        End Sub
    End Class
End Namespace

C#/VB.NET 在 Word 中插入或删除脚注

在 Word 中的特定文本后插入脚注

使用 Spire.Doc for .NET，您还可以在文档中任何位置的指定文本后插入脚注。以下是详细步骤。

创建 Document 实例。
使用 Document.LoadFromFile() 方法加载 Word 文档。
使用 Document.FindString() 方法查找指定的文本。
使用 TextSelection.GetAsOneRange() 方法获取指定文本的文本范围。
使用 TextRange.OwnerParagraph 属性获取文本范围所在的段落。
使用 Paragraph.ChildObjects.IndexOf() 方法获取段落中文本范围的位置索引。
使用 Paragraph.AppendFootnote(FootnoteType.Footnote) 方法添加脚注，然后使用 Paragraph.ChildObjects.Insert() 方法在指定文本后插入脚注
设置脚注的文本内容、字体和颜色，然后设置脚注上标数字的格式。
使用 Document.SaveToFile() 方法保存结果文档。

C#
VB.NET

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

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

            //加载Word文档示例
            document.LoadFromFile("活着.docx");

            //查找指定的文本字符串
            TextSelection selection = document.FindString("《活着》", false, true);

            //获取指定文本的文本范围
            TextRange textRange = selection.GetAsOneRange();

            //获取文本范围所在的段落
            Paragraph paragraph = textRange.OwnerParagraph;

            //获取段落中文本范围的位置索引
            int index = paragraph.ChildObjects.IndexOf(textRange);

            //添加脚注
            Footnote footnote = paragraph.AppendFootnote(FootnoteType.Footnote);

            //在指定段落后插入脚注
            paragraph.ChildObjects.Insert(index + 1, footnote);

            //设置脚注的文本内容
            TextRange text = footnote.TextBody.AddParagraph().AppendText("人是为了活着本身而活着，而不是为了活着之外的任何事物而活着。");

            //设置文本字体和颜色
            text.CharacterFormat.FontName = "宋体";
            text.CharacterFormat.FontSize = 12;
            text.CharacterFormat.TextColor = Color.DarkBlue;

            //设置脚注上标数字的格式
            footnote.MarkerCharacterFormat.FontName = "Calibri";
            footnote.MarkerCharacterFormat.FontSize = 15;
            footnote.MarkerCharacterFormat.Bold = true;
            footnote.MarkerCharacterFormat.TextColor = Color.DarkGreen;

            //保存结果文档
            document.SaveToFile("插入脚注.docx", FileFormat.Docx);
        }
    }
}

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

Namespace InsertFootnote
    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("《活着》", False, True)

            '获取指定文本的文本范围
            Dim textRange As TextRange = selection.GetAsOneRange()

            '获取文本范围所在的段落
            Dim paragraph As Paragraph = textRange.OwnerParagraph

            '获取段落中文本范围的位置索引
            Dim index As Integer = paragraph.ChildObjects.IndexOf(textRange)

            '添加脚注
            Dim footnote As Footnote = paragraph.AppendFootnote(FootnoteType.Footnote)

            '在指定段落后插入脚注
            paragraph.ChildObjects.Insert(index + 1, footnote)

            '设置脚注的文本内容
            Dim text As TextRange = footnote.TextBody.AddParagraph().AppendText("人是为了活着本身而活着，而不是为了活着之外的任何事物而活着。")

            '设置文本字体和颜色
            text.CharacterFormat.FontName = "宋体"
            text.CharacterFormat.FontSize = 12
            text.CharacterFormat.TextColor = Color.DarkBlue

            '设置脚注上标数字的格式
            footnote.MarkerCharacterFormat.FontName = "Calibri"
            footnote.MarkerCharacterFormat.FontSize = 15
            footnote.MarkerCharacterFormat.Bold = True
            footnote.MarkerCharacterFormat.TextColor = Color.DarkGreen

            '保存结果文档
            document.SaveToFile("插入脚注.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

C#/VB.NET 在 Word 中插入或删除脚注

删除 Word 文档中的脚注

手动搜索和删除文档中的现有脚注需要花费大量时间和精力。以下是以编程方式一次删除所有脚注的步骤。

创建 Document 实例。
使用 Document.LoadFromFile() 方法加载 Word 文档。
使用 Document.Sections 属性获取指定的节。
遍历该节中的每个段落以找到脚注。
使用 Paragraph.ChildObjects.RemoveAt() 方法删除脚注。
使用 Document.SaveToFile() 方法保存结果文档。

C#
VB.NET

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

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

            //加载Word文档示例
            document.LoadFromFile("添加脚注.docx");

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

            //遍历该节中的每个段落以找到脚注
            foreach (Paragraph para in section.Paragraphs)
            {
                int index = -1;
                for (int i = 0, cnt = para.ChildObjects.Count; i < cnt; i++)
                {
                    ParagraphBase pBase = para.ChildObjects[i] as ParagraphBase;
                    if (pBase is Footnote)
                    {
                        index = i;
                        break;
                    }
                }

                if (index > -1)

                    //删除脚注
                    para.ChildObjects.RemoveAt(index);
            }

            //保存结果文档
            document.SaveToFile("删除脚注.docx", FileFormat.Docx);
        }
    }
}

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

Namespace RemoveFootnote
    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)

            '遍历该节中的每个段落以找到脚注
            For Each para As Paragraph In section.Paragraphs
                Dim index = -1
                Dim i = 0, cnt As Integer = para.ChildObjects.Count

                While i < cnt
                    Dim pBase As ParagraphBase = TryCast(para.ChildObjects(i), ParagraphBase)
                    If TypeOf pBase Is Footnote Then
                        index = i
                        Exit While
                    End If

                    i += 1
                End While

                '删除脚注
                If index > -1 Then para.ChildObjects.RemoveAt(index)
            Next

            '保存结果文档
            document.SaveToFile("删除脚注.docx", FileFormat.Docx)
        End Sub
    End Class
End Namespace

C#/VB.NET 在 Word 中插入或删除脚注

申请临时 License

如果您希望删除结果文档中的评估消息，或者摆脱功能限制，请该Email地址已收到反垃圾邮件插件保护。要显示它您需要在浏览器中启用JavaScript。获取有效期 30 天的临时许可证。

C# 读取 Word 中的脚注和尾注内容

返回顶部