Word控件Spire.Doc 【评论】教程(2)：在 C#、VB.NET 中删除和替换 Word 文档中的注释

news2024/11/24 0:01:27

Spire.Doc for .NET是一款专门对 Word 文档进行操作的 .NET 类库。在于帮助开发人员无需安装 Microsoft Word情况下，轻松快捷高效地创建、编辑、转换和打印 Microsoft Word 文档。拥有近10年专业开发经验Spire系列办公文档开发工具，专注于创建、编辑、转换和打印Word/PDF/Excel等格式文件处理，小巧便捷。

Spire.Doc for.NET 最新下载（qun：767755948）https://www.evget.com/product/3368/download

Word 中的评论是作者对指定内容的评论。它可以被删除并替换为其他评论以显示不同的评论。Spire.Doc for .NET提供了多种方法供用户在不同情况下删除和替换注释。下面的截图是一个没有删除和替换的带有注释的文档。

消除

删除评论有三种可能性。

删除一条评论：方法Document.Comments.RemoveAt使用户能够删除一个指定的评论项。索引号被传递给此方法以确认将删除哪个评论。
删除所有评论：方法Document.Comments.Clear()使用户能够删除加载的 Word 文档中的所有评论。
Remove Part of One Comment (Body Paragraph)：首先获取文档中指定的评论项。其次，获取评论正文中的段落集合。第三，使用方法ParagraphCollection.RemoveAt方法删除正文段落。索引号被传递给此方法以确认将删除哪个段落。

代替

意思是在一个指定的评论中替换正文段落的内容。所以一开始要获取评论正文中的评论项和段落项。方法Paragraph.Replace方法可用于替换注释。此方法提供了六种可能性。

用替换字符串（新注释）替换正则表达式模式。
用文本选择替换正则表达式模式。
考虑到保留评论格式，用文本选择替换正则表达式模式。
考虑到区分大小写和整个单词选项，用替换字符串替换给定的字符串（原始评论内容）。
用文本选择替换给定的字符串，同时考虑区分大小写和整个单词选项。
将给定字符串替换为文本选择，同时考虑区分大小写、整个单词选项和格式保留。

以下示例显示如何替换第一条评论的正文段落并删除加载文档中的整个第二条评论。下载并安装 Spire.Doc for .NET并使用以下代码。

[C#]

using Spire.Doc;

namespace RemoveandReplace
{
class Program
{
static void Main(string[] args)
{
//Load Document
Document document = new Document();
document.LoadFromFile(@"E:\work\Documents\WordDocuments\A GOOD MAN IS HARD TO FIND.docx");

//Replace Contents of The First Comment
document.Comments[0].Body.Paragraphs[0].Replace("It’s a title with Mistral font style.", "This comment is changed.", false, false);

//Remove The Second Comment
document.Comments.RemoveAt(1);

//Save and Launch
document.SaveToFile("RemoveandReplace.docx", FileFormat.Docx);
System.Diagnostics.Process.Start("RemoveandReplace.docx");
}
}
}

[VB.NET]

Imports Spire.Doc

Namespace RemoveandReplace
Friend Class Program
Shared Sub Main(ByVal args() As String)
'Load Document
Dim document As New Document()
document.LoadFromFile("E:\work\Documents\WordDocuments\A GOOD MAN IS HARD TO FIND.docx")

'Replace Contents of The First Comment
document.Comments(0).Body.Paragraphs(0).Replace("It’s a title with Mistral font style.", "This comment is changed.", False, False)

'Remove The Second Comment
document.Comments.RemoveAt(1)

'Save and Launch
document.SaveToFile("RemoveandReplace.docx", FileFormat.Docx)
System.Diagnostics.Process.Start("RemoveandReplace.docx")
End Sub
End Class
End Namespace