Vergleichen Sie drei oder mehr Word Dokumente (*.docx)

Question

Vergleichen Sie drei oder mehr Word Dokumente (*.docx)

Ich habe mehrere Fragen und Antworten zum Vergleichen von zwei Word-Dokumenten gesehen, und ich habe einige Fragen und Antworten zum Vergleichen von drei oder mehr Rohtextdateien gesehen, aber ich habe Probleme, eine Methode zum Vergleichen von drei oder mehr Word-Dokumenten zu finden.

Ich brauche die Formatierung nicht verglichen, und es macht mir nichts aus, wenn ich sie nicht bearbeiten oder zusammenführen kann, aber ich möchte die Unterschiede der Dateien hervorgehoben sehen können. Ich weiß, dass ich den Text in Textdateien kopieren und verwenden kann das in Raw-Text-Only-Diff-Tools, aber einige der Word-Dokumente, die ich vergleichen muss, sind ziemlich groß.

1

diff file-comparison microsoft-word microsoft-word-2010 comparison

Author: zr00, 2018-10-05

Source

2 answers

score 0 · Answer 1

Die Software http://winmerge.org/ hat die Möglichkeit, einen 3-Wege-Dateivergleich durchzuführen. Link zum Screenshot.

Es stehen einige Plugins zur Verfügung, die Ihnen beim Wortteil Ihrer Frage helfen könnten.

Der Vergleich von Text ist jedoch wahrscheinlich am performantesten.

score 0 · Answer 2

Es gibt keine Möglichkeit, mehr als zwei Dokumente gleichzeitig auf dem Bildschirm nebeneinander zu vergleichen.

Wenn Sie mehrere Revisionsdokumente haben, können Sie diese zu einem neuen Dokument kombinieren, aber Sie kennen diese Funktion wahrscheinlich bereits.

Wenn Sie mehrere Revisionsdokumente haben und den Prozess ein wenig "automatisieren" möchten, um einige der manuellen Eingaben zu reduzieren, können Sie ein Makro wie das folgende verwenden.

Sub CompareDocs()
    Dim doc As word.Document, iDoc As word.Document, rDoc As word.Document
    Dim selFiles() As String, strFolderPath As String
    Dim Sep As String, i As Long
    On Error GoTo errHandler

    Sep = Application.PathSeparator
    Set doc = ActiveDocument
    Application.ScreenUpdating = False
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Select the files to compare to your source document"
        .InitialFileName = curDir
        .AllowMultiSelect = True
        If .Show = 0 Then
            Exit Sub
        End If
        ReDim Preserve selFiles(.SelectedItems.Count - 1)
        strFolderPath = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), Sep))
        For i = 0 To .SelectedItems.Count - 1
            selFiles(i) = .SelectedItems(i + 1)
        Next
    End With
    For i = 0 To UBound(selFiles)
        Set iDoc = Documents.Open(selFiles(i))
        Set rDoc = Application.CompareDocuments(OriginalDocument:=doc, RevisedDocument:=iDoc, _
        CompareFormatting:=False, CompareComments:=False)
        rDoc.SaveAs2 strFolderPath & "Compared_" & iDoc.Name
        rDoc.Close
        iDoc.Close
    Next
    Application.ScreenUpdating = True
    MsgBox "Document Compares Complete"
    Exit Sub
errHandler:
    MsgBox Err.Description, vbCritical, "Compare Docs"
    Err.Clear
    Application.ScreenUpdating = True
End Sub