PM> Install-Package Spire.Doc

using Spire.Doc;

namespace CompareDocuments
{
    class Program
    {
        static void Main(string[] args)
        {
            //Wordドキュメントを読み込む
            Document doc1 = new Document("C:\\Sample1.docx");

            //もう一方のWordドキュメントを読み込む
            Document doc2 = new Document("C:\\Sample2.docx");

            //Compare two documents
            doc1.Compare(doc2, "桜桃子");

            //Save the differences in a third document
            doc1.SaveToFile("違い.docx", FileFormat.Docx2013);
            doc1.Dispose();
        }
    }
}

Imports Spire.Doc

Namespace CompareDocuments
    Class Program
        Shared Sub Main(ByVal args() As String)
            'Wordドキュメントを読み込む
            Dim doc1 As Document = New Document("C:\\Sample1.docx")

            'もう一方のWordドキュメントを読み込む
            Dim doc2 As Document = New Document("C:\\Sample2.docx")

            'Compare two documents
            doc1.Compare(doc2, "桜桃子")

            'Save the differences in a third document
            doc1.SaveToFile("違い.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)
        {
            //Wordドキュメントを読み込む
            Document doc1 = new Document("C:\\Sample1.docx");

            //もう一方のWordドキュメントを読み込む
            Document doc2 = new Document("C:\\Sample2.docx");

            //2つのWordドキュメントを比較する
            doc1.Compare(doc2, "桜桃子");

            //改訂を取得する
            DifferRevisions differRevisions = new DifferRevisions(doc1);

            //挿入の改訂を返し、リストに入れる
            var insetRevisionsList = differRevisions.InsertRevisions;

            //削除の改訂を返し、リストに入れる
            var deletRevisionsList = differRevisions.DeleteRevisions;

            //2つのint型変数を作成する
            int m = 0;
            int n = 0;

            //挿入改訂のリストをループする
            for (int i = 0; i < insetRevisionsList.Count; i++)
            {
                if (insetRevisionsList[i] is TextRange)
                {
                    m += 1;
                    //特定の改訂を取得し、その内容を取得する
                    TextRange textRange = insetRevisionsList[i] as TextRange;
                    Console.WriteLine("挿入 #" + m + ":" + textRange.Text);
                }
            }
            Console.WriteLine("=====================");

            //削除改訂のリストをループする
            for (int i = 0; i < deletRevisionsList.Count; i++)
            {
                if (deletRevisionsList[i] is TextRange)
                {
                    n += 1;
                    //特定の改訂を取得し、その内容を取得する
                    TextRange textRange = deletRevisionsList[i] as TextRange;
                    Console.WriteLine("削除 #" + 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)
            'Wordドキュメントを読み込む
            Dim doc1 As Document = New Document("C:\\Sample1.docx")

            'もう一方のWordドキュメントを読み込む
            Dim doc2 As Document = New Document("C:\\Sample2.docx")

            '2つのWordドキュメントを比較する
            doc1.Compare(doc2, "桜桃子")

            '改訂を取得する
            Dim differRevisions As DifferRevisions = New DifferRevisions(doc1)

            '挿入の改訂を返し、リストに入れる
            Dim insetRevisionsList As var = differRevisions.InsertRevisions

            '削除の改訂を返し、リストに入れる
            Dim deletRevisionsList As var = differRevisions.DeleteRevisions

            '2つのint型変数を作成する
            Dim m As Integer = 0
            Dim n As Integer = 0

            '挿入改訂のリストをループする
            Dim i As Integer
            For i = 0 To insetRevisionsList.Count - 1 Step i + 1
                If TypeOf insetRevisionsList(i) Is TextRange Then
                    m += 1
                    '特定の改訂を取得し、その内容を取得する
                    Dim textRange As TextRange = insetRevisionsList(i) As TextRange 
                    Console.WriteLine("挿入 #" + m + ":" + textRange.Text)
                End If
            Next
            Console.WriteLine("=====================")

            '削除改訂のリストをループする
            Dim i As Integer
            For i = 0 To deletRevisionsList.Count - 1 Step i + 1
                If TypeOf deletRevisionsList(i) Is TextRange Then
                    n += 1
                    '特定の改訂を取得し、その内容を取得する
                    Dim textRange As TextRange = deletRevisionsList(i) As TextRange 
                    Console.WriteLine("削除 #" + n + ":" + textRange.Text)
                End If
            Next
            Console.ReadKey()
        End Sub
    End Class
End Namespace