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

552
zarose

Ich habe mehrere Fragen und Antworten zum Vergleich zweier Word-Dokumente gesehen und einige Fragen und Antworten zum Vergleich von drei oder mehr rohen Textdateien. Ich habe jedoch Schwierigkeiten, eine Methode zu finden, um drei oder mehr zu vergleichen Word-Dokumente.

Ich brauche die Formatierung nicht im Vergleich, und es macht mir nichts aus, wenn ich sie nicht bearbeiten oder zusammenführen kann, aber ich möchte, dass die Unterschiede der Dateien hervorgehoben werden. Ich weiß, dass ich den Text in Textdateien kopieren und in Nur-Text-Diff-Werkzeugen verwenden kann, aber einige der Word-Dokumente, die ich vergleichen muss, sind ziemlich groß.

0
Welche Version von Word verwenden Sie? Rich Michaels vor 6 Jahren 0
@ RichMichaels Ich verwende Word 2010. zarose vor 6 Jahren 0

1 Antwort auf die Frage

0
Rich Michaels

Ich kenne keinen Weg, mehr als zwei Dokumente gleichzeitig zu vergleichen, nebeneinander auf dem Bildschirm.

Wenn Sie über mehrere Revisionsdokumente verfügen, können Sie sie zu einem neuen Dokument zusammenfassen. Wahrscheinlich kennen Sie diese Funktion jedoch bereits.

Wenn Sie über mehrere Revisionsdokumente verfügen und den Prozess ein wenig "automatisieren" möchten, um einige manuelle Eingaben zu reduzieren, können Sie ein Makro wie das unten stehende 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

Verwandte Probleme