Word控件Spire.Doc 【评论】教程(3)：在C#、VB.NET中从Word文档中提取注释并保存在TXT文件中

最新推荐文章于 2023-02-06 10:45:48 发布

慧都小妮子

最新推荐文章于 2023-02-06 10:45:48 发布

阅读量282

点赞数

分类专栏： Spire.Doc for.net 教程（完）文章标签： word c# .net spire.doc 文档管理

本文链接：https://blog.csdn.net/m0_67129275/article/details/128452370

版权

Spire.Doc for.net 教程（完）专栏收录该内容

248 篇文章 41 订阅

订阅专栏

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

文字评论可以是对部分内容的评论或思考，也可以是作者对特定词组、句子或段落的解释或引用。此外，可以从文档中提取现有评论，本指南中的解决方案演示了如何通过 Spire.Doc for .NET 在 C# 和 Visual Basic 中提取 Word 评论并保存到 TXT 文件。

Spire.Doc for .NET是一个易于使用的 .NET Word 组件，用于执行 Word 任务，它提供了一个 Comment 类，使用户能够在 Word 中获取评论和评论正文的段落。下面的屏幕截图显示了带有两条评论的原始文档。

下载并安装 Spire.Doc for .NET并按照步骤提取 Word 注释。首先，初始化一个 StringBuilder 实例来保存提取的评论。其次，使用一个foreach 语句获取Word 中的所有评论，并使用另一个foreach 语句获取每个评论正文的每个段落。然后，调用 StringBuilder.AppendLine 方法将后跟默认行终止符的注释字符串的副本附加到当前 StringBuilder 对象的末尾。传递给此方法的参数是字符串值，即注释段落文本。第三，调用 File.WrtieAllText 方法创建一个新的 TXT 文件，内容为评论文本。传递给该方法的参数是字符串路径和字符串内容。代码如下：

[C#]

using System.Text;
using System.IO;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

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

//Extract Comment
StringBuilder SB = new StringBuilder();

foreach(Comment comment in doc.Comments)
{
foreach (Paragraph p in comment.Body.Paragraphs)
{
SB.AppendLine(p.Text);
}
}

//Save to TXT File
File.WriteAllText("CommentExtraction.txt", SB.ToString());
System.Diagnostics.Process.Start("CommentExtraction.txt");
}
}
}

[VB.NET]

Imports System.Text
Imports System.IO
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields

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

'Extract Comment
Dim SB As New StringBuilder()

For Each comment As Comment In doc.Comments
For Each p As Paragraph In comment.Body.Paragraphs
SB.AppendLine(p.Text)
Next p
Next comment

'Save to TXT File
File.WriteAllText("CommentExtraction.txt", SB.ToString())
System.Diagnostics.Process.Start("CommentExtraction.txt")
End Sub
End Class
End Namespace

调试后会出现如下结果：