C#/VB.NET: сравнение двух документов Word

PM> Install-Package Spire.Doc

using Spire.Doc;
    
    namespace CompareDocuments
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Load one Word document
                Document doc1 = new Document("C:\\Users\\Administrator\\Desktop\\original.docx");
    
                //Load the other Word document
                Document doc2 = new Document("C:\\Users\\Administrator\\Desktop\\revised.docx");
    
                //Compare two documents
                doc1.Compare(doc2, "John");
    
                //Save the differences in a third document
                doc1.SaveToFile("Differences.docx", FileFormat.Docx2013);
                doc1.Dispose();
            }
        }
    }

Imports Spire.Doc
    
    Namespace CompareDocuments
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Load one Word document
                Dim doc1 As Document =  New Document("C:\\Users\\Administrator\\Desktop\\original.docx")
    
                'Load the other Word document
                Dim doc2 As Document =  New Document("C:\\Users\\Administrator\\Desktop\\revised.docx")
    
                'Compare two documents
                doc1.Compare(doc2, "John")
    
                'Save the differences in a third document
                doc1.SaveToFile("Differences.docx", FileFormat.Docx2013)
                doc1.Dispose()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using Spire.Doc.Fields;
    using System;
    
    namespace GetDifferencesInList
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Load one Word document
                Document doc1 = new Document("C:\\Users\\Administrator\\Desktop\\original.docx");
    
                //Load the other Word document
                Document doc2 = new Document("C:\\Users\\Administrator\\Desktop\\revised.docx");
    
                //Compare the two Word documents
                doc1.Compare(doc2, "Author");
    
                //Get the revisions
                DifferRevisions differRevisions = new DifferRevisions(doc1);
    
                //Return the insertion revisions in a list
                var insetRevisionsList = differRevisions.InsertRevisions;
    
                //Return the deletion revisions in a list
                var deletRevisionsList = differRevisions.DeleteRevisions;
    
                //Create two int variables
                int m = 0;
                int n = 0;
    
                //Loop through the insertion revision list
                for (int i = 0; i < insetRevisionsList.Count; i++)
                {
                    if (insetRevisionsList[i] is TextRange)
                    {
                        m += 1;
                        //Get the specific revision and get its content
                        TextRange textRange = insetRevisionsList[i] as TextRange;
                        Console.WriteLine("Insertion #" + m + ":" + textRange.Text);
                    }
                }
                Console.WriteLine("=====================");
    
                //Loop through the deletion revision list
                for (int i = 0; i < deletRevisionsList.Count; i++)
                {
                    if (deletRevisionsList[i] is TextRange)
                    {
                        n += 1;
                        //Get the specific revision and get its content
                        TextRange textRange = deletRevisionsList[i] as TextRange;
                        Console.WriteLine("Deletion #" + n + ":" + textRange.Text);
                    }
                }
                Console.ReadKey();
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Fields
    Imports System
    
    Namespace GetDifferencesInList
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Load one Word document
                Dim doc1 As Document =  New Document("C:\\Users\\Administrator\\Desktop\\original.docx")
    
                'Load the other Word document
                Dim doc2 As Document =  New Document("C:\\Users\\Administrator\\Desktop\\revised.docx")
    
                'Compare the two Word documents
                doc1.Compare(doc2, "Author")
    
                'Get the revisions
                Dim differRevisions As DifferRevisions =  New DifferRevisions(doc1)
    
                'Return the insertion revisions in a list
                Dim insetRevisionsList As var =  differRevisions.InsertRevisions
    
                'Return the deletion revisions in a list
                Dim deletRevisionsList As var =  differRevisions.DeleteRevisions
    
                'Create two int variables
                Dim m As Integer =  0
                Dim n As Integer =  0
    
                'Loop through the insertion revision list
                Dim i As Integer
                For  i = 0 To  insetRevisionsList.Count- 1  Step  i + 1
                    If TypeOf insetRevisionsList(i) Is TextRange Then
                        m += 1
                        'Get the specific revision and get its content
                        Dim textRange As TextRange =  insetRevisionsList(i) as TextRange
                        Console.WriteLine("Insertion #" + m + ":" + textRange.Text)
                    End If
                Next
                Console.WriteLine("=====================")
    
                'Loop through the deletion revision list
                Dim i As Integer
                For  i = 0 To  deletRevisionsList.Count- 1  Step  i + 1
                    If TypeOf deletRevisionsList(i) Is TextRange Then
                        n += 1
                        'Get the specific revision and get its content
                        Dim textRange As TextRange =  deletRevisionsList(i) as TextRange
                        Console.WriteLine("Deletion #" + n + ":" + textRange.Text)
                    End If
                Next
                Console.ReadKey()
            End Sub
        End Class
    End Namespace