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

PM> Install-Package Spire.Doc

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintWordDocument
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)";
    
                //Specify the range of pages to print
                printDoc.PrinterSettings.FromPage = 1;
                printDoc.PrinterSettings.ToPage = 10;
    
                //Set the number of copies to print
                printDoc.PrinterSettings.Copies = 1;
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintWordDocument
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)"
    
                'Specify the range of pages to print
                printDoc.PrinterSettings.FromPage = 1
                printDoc.PrinterSettings.ToPage = 10
    
                'Set the number of copies to print
                printDoc.PrinterSettings.Copies = 1
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace SilentlyPrintWord
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)";
    
                //Specify the print controller to StandardPrintController
                printDoc.PrintController = new StandardPrintController();
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace SilentlyPrintWord
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)"
    
                'Specify the print controller to StandardPrintController
                printDoc.PrintController = New StandardPrintController()
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintWordToPdf
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Print the document to file
                printDoc.PrinterSettings.PrintToFile = true;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "Microsoft Print to PDF";
    
                //Specify the output file path and name
                printDoc.PrinterSettings.PrintFileName = @"C:\Users\Administrator\Desktop\ToPDF.pdf";
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintWordToPdf
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Print the document to file
                printDoc.PrinterSettings.PrintToFile = True
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "Microsoft Print to PDF"
    
                'Specify the output file path and name
                printDoc.PrinterSettings.PrintFileName = "C:\Users\Administrator\Desktop\ToPDF.pdf"
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintOnCustomSizedPaper
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF(HP Color LaserJet MFP M281fdw)";
    
                //Specify the paper size
                printDoc.DefaultPageSettings.PaperSize = new PaperSize("custom", 500, 800);
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintOnCustomSizedPaper
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF(HP Color LaserJet MFP M281fdw)"
    
                'Specify the paper size
                printDoc.DefaultPageSettings.PaperSize = New PaperSize("custom", 500, 800)
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using Spire.Doc.Printing;
    using System.Drawing.Printing;
    
    namespace PrintMultiplePagesOnOneSheet
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Instantiate an instance of the Document class
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\\Users\\Administrator\\Desktop\\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Enable single-sided printing
                printDoc.PrinterSettings.Duplex = Duplex.Simplex;
    
                //Specify the number of pages to be printed on one page and print the document
                doc.PrintMultipageToOneSheet(PagesPreSheet.TwoPages, false);
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Printing
    Imports System.Drawing.Printing
    
    Namespace PrintMultiplePagesOnOneSheet
        Friend Class Program
            Shared  Sub Main(ByVal args() As String)
                'Instantiate an instance of the Document class
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Enable single-sided printing
                printDoc.PrinterSettings.Duplex = Duplex.Simplex
    
                'Specify the number of pages to be printed on one page and print the document
                doc.PrintMultipageToOneSheet(PagesPreSheet.TwoPages, False)
            End Sub
        End Class
    End Namespace

PM> Install-Package Spire.Doc

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintWordDocument
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)";
    
                //Specify the range of pages to print
                printDoc.PrinterSettings.FromPage = 1;
                printDoc.PrinterSettings.ToPage = 10;
    
                //Set the number of copies to print
                printDoc.PrinterSettings.Copies = 1;
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintWordDocument
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)"
    
                'Specify the range of pages to print
                printDoc.PrinterSettings.FromPage = 1
                printDoc.PrinterSettings.ToPage = 10
    
                'Set the number of copies to print
                printDoc.PrinterSettings.Copies = 1
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace SilentlyPrintWord
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)";
    
                //Specify the print controller to StandardPrintController
                printDoc.PrintController = new StandardPrintController();
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace SilentlyPrintWord
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)"
    
                'Specify the print controller to StandardPrintController
                printDoc.PrintController = New StandardPrintController()
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintWordToPdf
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Print the document to file
                printDoc.PrinterSettings.PrintToFile = true;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "Microsoft Print to PDF";
    
                //Specify the output file path and name
                printDoc.PrinterSettings.PrintFileName = @"C:\Users\Administrator\Desktop\ToPDF.pdf";
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintWordToPdf
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Print the document to file
                printDoc.PrinterSettings.PrintToFile = True
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "Microsoft Print to PDF"
    
                'Specify the output file path and name
                printDoc.PrinterSettings.PrintFileName = "C:\Users\Administrator\Desktop\ToPDF.pdf"
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintOnCustomSizedPaper
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF(HP Color LaserJet MFP M281fdw)";
    
                //Specify the paper size
                printDoc.DefaultPageSettings.PaperSize = new PaperSize("custom", 500, 800);
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintOnCustomSizedPaper
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF(HP Color LaserJet MFP M281fdw)"
    
                'Specify the paper size
                printDoc.DefaultPageSettings.PaperSize = New PaperSize("custom", 500, 800)
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using Spire.Doc.Printing;
    using System.Drawing.Printing;
    
    namespace PrintMultiplePagesOnOneSheet
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Instantiate an instance of the Document class
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\\Users\\Administrator\\Desktop\\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Enable single-sided printing
                printDoc.PrinterSettings.Duplex = Duplex.Simplex;
    
                //Specify the number of pages to be printed on one page and print the document
                doc.PrintMultipageToOneSheet(PagesPreSheet.TwoPages, false);
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Printing
    Imports System.Drawing.Printing
    
    Namespace PrintMultiplePagesOnOneSheet
        Friend Class Program
            Shared  Sub Main(ByVal args() As String)
                'Instantiate an instance of the Document class
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Enable single-sided printing
                printDoc.PrinterSettings.Duplex = Duplex.Simplex
    
                'Specify the number of pages to be printed on one page and print the document
                doc.PrintMultipageToOneSheet(PagesPreSheet.TwoPages, False)
            End Sub
        End Class
    End Namespace

PM> Install-Package Spire.Doc

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintWordDocument
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)";
    
                //Specify the range of pages to print
                printDoc.PrinterSettings.FromPage = 1;
                printDoc.PrinterSettings.ToPage = 10;
    
                //Set the number of copies to print
                printDoc.PrinterSettings.Copies = 1;
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintWordDocument
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)"
    
                'Specify the range of pages to print
                printDoc.PrinterSettings.FromPage = 1
                printDoc.PrinterSettings.ToPage = 10
    
                'Set the number of copies to print
                printDoc.PrinterSettings.Copies = 1
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace SilentlyPrintWord
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)";
    
                //Specify the print controller to StandardPrintController
                printDoc.PrintController = new StandardPrintController();
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace SilentlyPrintWord
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF (HP Color LaserJet MFP M281fdw)"
    
                'Specify the print controller to StandardPrintController
                printDoc.PrintController = New StandardPrintController()
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintWordToPdf
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Print the document to file
                printDoc.PrinterSettings.PrintToFile = true;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "Microsoft Print to PDF";
    
                //Specify the output file path and name
                printDoc.PrinterSettings.PrintFileName = @"C:\Users\Administrator\Desktop\ToPDF.pdf";
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintWordToPdf
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Print the document to file
                printDoc.PrinterSettings.PrintToFile = True
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "Microsoft Print to PDF"
    
                'Specify the output file path and name
                printDoc.PrinterSettings.PrintFileName = "C:\Users\Administrator\Desktop\ToPDF.pdf"
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using System.Drawing.Printing;
    
    namespace PrintOnCustomSizedPaper
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF(HP Color LaserJet MFP M281fdw)";
    
                //Specify the paper size
                printDoc.DefaultPageSettings.PaperSize = new PaperSize("custom", 500, 800);
    
                //Print the document
                printDoc.Print();
            }
        }
    }

Imports Spire.Doc
    Imports System.Drawing.Printing
    
    Namespace PrintOnCustomSizedPaper
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\Users\Administrator\Desktop\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Specify the printer name
                printDoc.PrinterSettings.PrinterName = "NPI7FE2DF(HP Color LaserJet MFP M281fdw)"
    
                'Specify the paper size
                printDoc.DefaultPageSettings.PaperSize = New PaperSize("custom", 500, 800)
    
                'Print the document
                printDoc.Print()
            End Sub
        End Class
    End Namespace

using Spire.Doc;
    using Spire.Doc.Printing;
    using System.Drawing.Printing;
    
    namespace PrintMultiplePagesOnOneSheet
    {
        internal class Program
        {
            static void Main(string[] args)
            {
                //Instantiate an instance of the Document class
                Document doc = new Document();
    
                //Load a Word document
                doc.LoadFromFile(@"C:\\Users\\Administrator\\Desktop\\input.docx");
    
                //Get the PrintDocument object
                PrintDocument printDoc = doc.PrintDocument;
    
                //Enable single-sided printing
                printDoc.PrinterSettings.Duplex = Duplex.Simplex;
    
                //Specify the number of pages to be printed on one page and print the document
                doc.PrintMultipageToOneSheet(PagesPreSheet.TwoPages, false);
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Printing
    Imports System.Drawing.Printing
    
    Namespace PrintMultiplePagesOnOneSheet
        Friend Class Program
            Shared  Sub Main(ByVal args() As String)
                'Instantiate an instance of the Document class
                Document doc  =  New Document()
    
                'Load a Word document
                doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\input.docx")
    
                'Get the PrintDocument object
                Dim printDoc As PrintDocument =  doc.PrintDocument
    
                'Enable single-sided printing
                printDoc.PrinterSettings.Duplex = Duplex.Simplex
    
                'Specify the number of pages to be printed on one page and print the document
                doc.PrintMultipageToOneSheet(PagesPreSheet.TwoPages, False)
            End Sub
        End Class
    End Namespace