C# /VB.NET操作Word批注（一）—— 插入、修改、删除Word批注

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

namespace InsertComment_Word
{
    class Program
    {
        static void Main(string[] args)
        { 
            //实例化一个Document类对象，并加载Word文档
            Document document = new Document();
            document.LoadFromFile("sample.docx");

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

            //添加文本到批注
            string str = "This paragraph describes the origin and the purpose of WEF";
            Comment comment = paragraph.AppendComment(str);
            //添加批注作者
            comment.Format.Author = "E-iceblue";
          
            //保存并打开文档
            document.SaveToFile("Comments.docx", FileFormat.Docx2010);
            System.Diagnostics.Process.Start("Comments.docx");
        }
    }
}

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

Namespace InsertComment_Word
    
    Class Program
        
        Private Shared Sub Main(ByVal args() As String)
            '实例化一个Document类对象，并加载Word文档
            Dim document As Document = New Document
            document.LoadFromFile("sample.docx")
            '获取第一段第一节
            Dim section As Section = document.Sections(0)
            Dim paragraph As Paragraph = section.Paragraphs(0)
            '添加文本到批注
            Dim str As String = "This paragraph describes the origin and the purpose of WEF"
            Dim comment As Comment = paragraph.AppendComment(str)
            '添加批注作者
            comment.Format.Author = "E-iceblue"
            '保存并打开文档
            document.SaveToFile("Comments.docx", FileFormat.Docx2010)
            System.Diagnostics.Process.Start("Comments.docx")
        End Sub
    End Class
End Namespace

using Spire.Doc;

namespace ReplaceAndRemoveComment_Word
{
    class Program
    {
        static void Main(string[] args)
        {
            //初始化Document类实例，加载带有批注的Word文档
            Document document = new Document();
            document.LoadFromFile("test.docx");

            //修改第一个批注内容
            document.Comments[0].Body.Paragraphs[0].Replace("This paragraph describes the origin and the purpose of WEF", "What is the WEF ?", false, false);

            //移除第二个批注
            document.Comments.RemoveAt(1);

            //保存并打开文档
            document.SaveToFile("RemoveAndReplace.docx", FileFormat.Docx);
            System.Diagnostics.Process.Start("RemoveAndReplace.docx");
        }
    }
}

Imports Spire.Doc

Namespace ReplaceAndRemoveComment_Word
    
    Class Program
        
        Private Shared Sub Main(ByVal args() As String)
            '初始化Document类实例，加载带有批注的Word文档
            Dim document As Document = New Document
            document.LoadFromFile("test.docx")
            '修改第一个批注内容
            document.Comments(0).Body.Paragraphs(0).Replace("This paragraph describes the origin and the purpose of WEF", "What is the WEF ?", false, false)
            '移除第二个批注
            document.Comments.RemoveAt(1)
            '保存并打开文档
            document.SaveToFile("RemoveAndReplace.docx", FileFormat.Docx)
            System.Diagnostics.Process.Start("RemoveAndReplace.docx")
        End Sub
    End Class
End Namespace