footnote)Exit ForEnd IfEnd IfNextDim text As TextRange = fo

脚注和尾注是对文本的增补说明。脚注一般位于页面的底部，可以作为文档某处内容的注释；尾注一般位于文档的末尾，列出引文 的来由等。在本示例中将介绍如何来添加或删除Word脚注。

工具使用

Free Spire. Doc for .NET

第一步 dll引用

第二步 添加Word脚注、尾注

【C#】

using Spire.Doc; using Spire.Doc.Documents; using Spire.Doc.Fields; using System.Drawing; namespace InsertFootnote_Doc { class Program { static void Main(string[] args) { //新建一个word文档东西并加载需要添加脚注尾注的word文档 Document document = new Document(); document.LoadFromFile("sample.docx", FileFormat.Docx2010); //获取第3个段落 Paragraph paragraph = document.Sections[0].Paragraphs[2]; //添加脚注 Footnote footnote = paragraph.AppendFootnote(FootnoteType.Footnote); //在第一段里查找指定字符串，并添加脚注 DocumentObject obj = null; for (int i = 0; i < paragraph.ChildObjects.Count; i++) { obj = paragraph.ChildObjects[i]; if (obj.DocumentObjectType == DocumentObjectType.TextRange) { TextRange textRange = obj as TextRange; if (textRange.Text == "中国——东盟自贸区框架") { //为添加脚注的字符串设置加粗格局 textRange.CharacterFormat.Bold = true; //插入脚注 paragraph.ChildObjects.Insert(i + 1, footnote); break; } } } //添加脚注内容被设置字体格局 TextRange text = footnote.TextBody.AddParagraph().AppendText("2002年11月4日，*总理和东盟10国带领人配合签署了《中国-东盟全面经济合作框架协议》，这标识表记标帜着中国与东盟的经贸合作进入了一个新的历史阶段。"); text.CharacterFormat.FontName = "Arial Black"; text.CharacterFormat.FontSize = 9; text.CharacterFormat.TextColor = Color.DarkGray; footnote.MarkerCharacterFormat.FontName = "Calibri"; footnote.MarkerCharacterFormat.FontSize = 12; footnote.MarkerCharacterFormat.Bold = true; footnote.MarkerCharacterFormat.TextColor = Color.DarkGreen; //获取第5段落 Paragraph paragraph2 = document.Sections[0].Paragraphs[4]; //添加尾注并设置尾注和格局 Footnote endnote = paragraph2.AppendFootnote(FootnoteType.Endnote); TextRange text2 = endnote.TextBody.AddParagraph().AppendText("党的十七大呈报明确指出：“对峙对外开放的根基国策，把‘引进来’和‘走出去’更好地结合起来，扩大开放范围，优化开放布局，提高开放质量，，完善表里联动，互利共赢、安适高效的开放型经济体系，形成经济全球化条件下参预国际经济合作和竞争的新优势。"); text2.CharacterFormat.FontName = "Arial Black"; text2.CharacterFormat.FontSize = 9; text2.CharacterFormat.TextColor = Color.Black; endnote.MarkerCharacterFormat.FontName = "Calibri"; endnote.MarkerCharacterFormat.FontSize = 12; endnote.MarkerCharacterFormat.Bold = false; endnote.MarkerCharacterFormat.TextColor = Color.DarkGreen; //生存并打开文档 document.SaveToFile("添加脚注尾注.docx", FileFormat.Docx2010); System.Diagnostics.Process.Start("添加脚注尾注.docx"); } } }

测试功效：

【VB.NET】

Imports Spire.Doc Imports Spire.Doc.Documents Imports Spire.Doc.Fields Imports System.Drawing Namespace InsertFootnote_Doc Class Program Private Shared Sub Main(ByVal args As String()) Dim document As Document = New Document() document.LoadFromFile("sample.docx", FileFormat.Docx2010) Dim paragraph As Paragraph = document.Sections(0).Paragraphs(2) Dim footnote As Footnote = paragraph.AppendFootnote(FootnoteType.Footnote) Dim obj As DocumentObject = Nothing For i As Integer = 0 To paragraph.ChildObjects.Count - 1 obj = paragraph.ChildObjects(i) If obj.DocumentObjectType = DocumentObjectType.TextRange Then Dim textRange As TextRange = TryCast(obj, TextRange) If textRange.Text = "中国——东盟自贸区框架" Then textRange.CharacterFormat.Bold = True paragraph.ChildObjects.Insert(i + 1, footnote) Exit For End If End If Next Dim text As TextRange = footnote.TextBody.AddParagraph().AppendText("2002年11月4日，*总理和东盟10国带领人配合签署了《中国-东盟全面经济合作框架协议》，这标识表记标帜着中国与东盟的经贸合作进入了一个新的历史阶段。") text.CharacterFormat.FontName = "Arial Black" text.CharacterFormat.FontSize = 9 text.CharacterFormat.TextColor = Color.DarkGray footnote.MarkerCharacterFormat.FontName = "Calibri" footnote.MarkerCharacterFormat.FontSize = 12 footnote.MarkerCharacterFormat.Bold = True footnote.MarkerCharacterFormat.TextColor = Color.DarkGreen Dim paragraph2 As Paragraph = document.Sections(0).Paragraphs(4) Dim endnote As Footnote = paragraph2.AppendFootnote(FootnoteType.Endnote) Dim text2 As TextRange = endnote.TextBody.AddParagraph().AppendText("党的十七大呈报明确指出：“对峙对外开放的根基国策，把‘引进来’和‘走出去’更好地结合起来，扩大开放范围，优化开放布局，提高开放质量，完善表里联动，互利共赢、安适高效的开放型经济体系，形成经济全球化条件下参预国际经济合作和竞争的新优势。") text2.CharacterFormat.FontName = "Arial Black" text2.CharacterFormat.FontSize = 9 text2.CharacterFormat.TextColor = Color.Black endnote.MarkerCharacterFormat.FontName = "Calibri" endnote.MarkerCharacterFormat.FontSize = 12 endnote.MarkerCharacterFormat.Bold = False endnote.MarkerCharacterFormat.TextColor = Color.DarkGreen document.SaveToFile("添加脚注尾注.docx", FileFormat.Docx2010) System.Diagnostics.Process.Start("添加脚注尾注.docx") End Sub End Class End Namespace 第三步 读取脚注尾注