如何通过C#/VB.NET代码在Word中插入或删除脚注

啊白

脚注，是可以附在文章页面的最底端的，对某些东西加以说明，印在书页下端的注文。脚注和尾注是对文本的补充说明。脚注一般位于页面的底部，可以作为文档某处内容的注释。常用在一些说明书、标书、论文等正式文书用来引注的内容。这篇文章将为您展示如何通过C#/VB.NET代码，以编程方式在Word中插入或删除脚注。以下是我整理的具体步骤及方法，并附上C#/VB.NET代码供大家参考。

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

程序环境

本次测试时，在程序中引入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实例
  
• 使用Document.LoadFromFile() 方法加载示例Word文档。
  
• 获取第一节，然后获取该节中的指定段落。
  
• 使用Paragraph.AppendFootnote(FootnoteType.Footnote) 方法在段落末尾添加脚注。
  
• 设置脚注的文本内容、字体和颜色，然后设置脚注上标数字的格式。
  
• 使用Document.SaveToFile() 方法保存结果文档。
  

完整代码

C#

1. using Spire.Doc;
2. using Spire.Doc.Documents;
3. using Spire.Doc.Fields;
4. using System.Drawing;
6. namespace AddFootnote
7. {
8.     class Program
9.     {
10.         static void Main(string[] args)
11.         {
12.             //创建Document实例
13.             Document document = new Document();
15.             //加载Word文档示例
16.             document.LoadFromFile("我与地坛.docx");
18.             //获取第一节
19.             Section section = document.Sections[0];
21.             //获取节中的指定段落
22.             Paragraph paragraph = section.Paragraphs[1];
24.             //在段落末尾添加脚注
25.             Footnote footnote = paragraph.AppendFootnote(FootnoteType.Footnote);
27.             //设置脚注的文本内容
28.             TextRange text = footnote.TextBody.AddParagraph().AppendText("即使世界毁灭，那又怎样，天地崩塌，于我何干，我在乎的只有他。");
30.             //设置文本字体和颜色
31.             text.CharacterFormat.FontName = "宋体";
32.             text.CharacterFormat.FontSize = 12;
33.             text.CharacterFormat.TextColor = Color.DarkBlue;
35.             //设置脚注上标数字的格式
36.             footnote.MarkerCharacterFormat.FontName = "Calibri";
37.             footnote.MarkerCharacterFormat.FontSize = 15;
38.             footnote.MarkerCharacterFormat.Bold = true;
39.             footnote.MarkerCharacterFormat.TextColor = Color.DarkCyan;
41.             //保存结果文档
42.             document.SaveToFile("添加脚注.docx", FileFormat.Docx);
44.         }
45.     }
46. }

复制代码

VB.NET

1. Imports Spire.Doc
2. Imports Spire.Doc.Documents
3. Imports Spire.Doc.Fields
4. Imports System.Drawing
6. Namespace AddFootnote
7.     Friend Class Program
8.         Private Shared Sub Main(ByVal args As String())
9.             '创建Document实例
10.             Dim document As Document = New Document()
12.             '加载Word文档示例
13.             document.LoadFromFile("我与地坛.docx")
15.             '获取第一节
16.             Dim section As Section = document.Sections(0)
18.             '获取节中的指定段落
19.             Dim paragraph As Paragraph = section.Paragraphs(1)
21.             '在段落末尾添加脚注
22.             Dim footnote As Footnote = paragraph.AppendFootnote(FootnoteType.Footnote)
24.             '设置脚注的文本内容
25.             Dim text As TextRange = footnote.TextBody.AddParagraph().AppendText("即使世界毁灭，那又怎样，天地崩塌，于我何干，我在乎的只有他。")
27.             '设置文本字体和颜色
28.             text.CharacterFormat.FontName = "宋体"
29.             text.CharacterFormat.FontSize = 12
30.             text.CharacterFormat.TextColor = Color.DarkBlue
32.             '设置脚注上标数字的格式
33.             footnote.MarkerCharacterFormat.FontName = "Calibri"
34.             footnote.MarkerCharacterFormat.FontSize = 15
35.             footnote.MarkerCharacterFormat.Bold = True
36.             footnote.MarkerCharacterFormat.TextColor = Color.DarkCyan
38.             '保存结果文档
39.             document.SaveToFile("添加脚注.docx", FileFormat.Docx)
41.         End Sub
42.     End Class
43. End Namespace

复制代码

效果图

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

我们还可以在文档中任何位置的指定文本后插入脚注。以下是详细步骤。

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

完整代码

C#

1. using Spire.Doc;
2. using Spire.Doc.Documents;
3. using Spire.Doc.Fields;
4. using System.Drawing;
6. namespace InsertFootnote
7. {
8.     class Program
9.     {
10.         static void Main(string[] args)
11.         {
12.             //创建Document实例
13.             Document document = new Document();
15.             //加载Word文档示例
16.             document.LoadFromFile("我与地坛.docx");
18.             //查找指定的文本字符串
19.             TextSelection selection = document.FindString("最苦的母亲", false, true);
21.             //获取指定文本的文本范围
22.             TextRange textRange = selection.GetAsOneRange();
24.             //获取文本范围所在的段落
25.             Paragraph paragraph = textRange.OwnerParagraph;
27.             //获取段落中文本范围的位置索引
28.             int index = paragraph.ChildObjects.IndexOf(textRange);
30.             //添加脚注
31.             Footnote footnote = paragraph.AppendFootnote(FootnoteType.Footnote);
33.             //在指定段落后插入脚注
34.             paragraph.ChildObjects.Insert(index + 1, footnote);
36.             //设置脚注的文本内容
37.             TextRange text = footnote.TextBody.AddParagraph().AppendText("不知道儿子的不幸在母亲那儿总是要加倍的。");
39.             //设置文本字体和颜色
40.             text.CharacterFormat.FontName = "宋体";
41.             text.CharacterFormat.FontSize = 12;
42.             text.CharacterFormat.TextColor = Color.DarkBlue;
44.             //设置脚注上标数字的格式
45.             footnote.MarkerCharacterFormat.FontName = "Calibri";
46.             footnote.MarkerCharacterFormat.FontSize = 15;
47.             footnote.MarkerCharacterFormat.Bold = true;
48.             footnote.MarkerCharacterFormat.TextColor = Color.DarkGreen;
50.             //保存结果文档
51.             document.SaveToFile("插入脚注.docx", FileFormat.Docx);
52.         }
53.     }
54. }

复制代码

VB.NET

1. Imports Spire.Doc
2. Imports Spire.Doc.Documents
3. Imports Spire.Doc.Fields
4. Imports System.Drawing
6. Namespace InsertFootnote
7.     Friend Class Program
8.         Private Shared Sub Main(ByVal args As String())
9.             '创建Document实例
10.             Dim document As Document = New Document()
12.             '加载Word文档示例
13.             document.LoadFromFile("我与地坛.docx")
15.             '查找指定的文本字符串
16.             Dim selection As TextSelection = document.FindString("最苦的母亲", False, True)
18.             '获取指定文本的文本范围
19.             Dim textRange As TextRange = selection.GetAsOneRange()
21.             '获取文本范围所在的段落
22.             Dim paragraph As Paragraph = textRange.OwnerParagraph
24.             '获取段落中文本范围的位置索引
25.             Dim index As Integer = paragraph.ChildObjects.IndexOf(textRange)
27.             '添加脚注
28.             Dim footnote As Footnote = paragraph.AppendFootnote(FootnoteType.Footnote)
30.             '在指定段落后插入脚注
31.             paragraph.ChildObjects.Insert(index + 1, footnote)
33.             '设置脚注的文本内容
34.             Dim text As TextRange = footnote.TextBody.AddParagraph().AppendText("不知道儿子的不幸在母亲那儿总是要加倍的。")
36.             '设置文本字体和颜色
37.             text.CharacterFormat.FontName = "宋体"
38.             text.CharacterFormat.FontSize = 12
39.             text.CharacterFormat.TextColor = Color.DarkBlue
41.             '设置脚注上标数字的格式
42.             footnote.MarkerCharacterFormat.FontName = "Calibri"
43.             footnote.MarkerCharacterFormat.FontSize = 15
44.             footnote.MarkerCharacterFormat.Bold = True
45.             footnote.MarkerCharacterFormat.TextColor = Color.DarkGreen
47.             '保存结果文档
48.             document.SaveToFile("插入脚注.docx", FileFormat.Docx)
49.         End Sub
50.     End Class
51. End Namespace

复制代码

效果图

—本文完—

来源:https://www.cnblogs.com/Carina-baby/archive/2023/03/08/17191420.html
免责声明：由于采集信息均来自互联网，如果侵犯了您的权益，请联系我们【E-Mail:cb@itdo.tech】 我们会及时删除侵权内容，谢谢合作！