PM> Install-Package Spire.PDF

using Spire.Pdf;
    
    namespace ConvertPdfToHtml
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument instance
                PdfDocument pdf = new PdfDocument();
                //Load a PDF document
                pdf.LoadFromFile(@"C:\Users\Administrator\Desktop\Sample.pdf");
    
                //Save the PDF document as HTML
                pdf.SaveToFile(@"C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML);
            }
        }
    }

Imports Spire.Pdf
    
    Namespace ConvertPdfToHtml
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Create a PdfDocument instance
                Dim pdf As PdfDocument = New PdfDocument()
                'Load a PDF document
                pdf.LoadFromFile("C:\Users\Administrator\Desktop\Sample.pdf")
    
                'Save the PDF document as HTML
                pdf.SaveToFile("C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML)
            End Sub
        End Class
    End Namespace

PM> Install-Package Spire.PDF

using Spire.Pdf;
    
    namespace ConvertPdfToHtml
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument instance
                PdfDocument pdf = new PdfDocument();
                //Load a PDF document
                pdf.LoadFromFile(@"C:\Users\Administrator\Desktop\Sample.pdf");
    
                //Save the PDF document as HTML
                pdf.SaveToFile(@"C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML);
            }
        }
    }

Imports Spire.Pdf
    
    Namespace ConvertPdfToHtml
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Create a PdfDocument instance
                Dim pdf As PdfDocument = New PdfDocument()
                'Load a PDF document
                pdf.LoadFromFile("C:\Users\Administrator\Desktop\Sample.pdf")
    
                'Save the PDF document as HTML
                pdf.SaveToFile("C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML)
            End Sub
        End Class
    End Namespace

PM> Install-Package Spire.PDF

using Spire.Pdf;
    
    namespace ConvertPdfToHtml
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument instance
                PdfDocument pdf = new PdfDocument();
                //Load a PDF document
                pdf.LoadFromFile(@"C:\Users\Administrator\Desktop\Sample.pdf");
    
                //Save the PDF document as HTML
                pdf.SaveToFile(@"C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML);
            }
        }
    }

Imports Spire.Pdf
    
    Namespace ConvertPdfToHtml
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Create a PdfDocument instance
                Dim pdf As PdfDocument = New PdfDocument()
                'Load a PDF document
                pdf.LoadFromFile("C:\Users\Administrator\Desktop\Sample.pdf")
    
                'Save the PDF document as HTML
                pdf.SaveToFile("C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML)
            End Sub
        End Class
    End Namespace

PM> Install-Package Spire.PDF

using Spire.Pdf;
    
    namespace ConvertPdfToHtml
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a PdfDocument instance
                PdfDocument pdf = new PdfDocument();
                //Load a PDF document
                pdf.LoadFromFile(@"C:\Users\Administrator\Desktop\Sample.pdf");
    
                //Save the PDF document as HTML
                pdf.SaveToFile(@"C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML);
            }
        }
    }

Imports Spire.Pdf
    
    Namespace ConvertPdfToHtml
        Friend Class Program
            Private Shared Sub Main(ByVal args As String())
                'Create a PdfDocument instance
                Dim pdf As PdfDocument = New PdfDocument()
                'Load a PDF document
                pdf.LoadFromFile("C:\Users\Administrator\Desktop\Sample.pdf")
    
                'Save the PDF document as HTML
                pdf.SaveToFile("C:\Users\Administrator\Desktop\ToHtml.html", FileFormat.HTML)
            End Sub
        End Class
    End Namespace

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

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

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

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

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

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