/ / Vergleichen Sie drei oder mehr Word-Dokumente (* .docx) - Microsoft-Word, Microsoft-Word-2010, Diff, Vergleich, Dateivergleich

Vergleichen Sie drei oder mehr Word-Dokumente (* .docx) - Microsoft-Word, Microsoft-Word-2010, Diff, Vergleich, Dateivergleich

Ich habe mehrere Fragen und Antworten daf√ľr gesehen, wieum zwei Word-Dokumente zu vergleichen, und ich habe einige Fragen und Antworten zum Vergleichen von drei oder mehr Rohtextdateien gesehen, aber ich habe M√ľhe, eine Methode zum Vergleichen von drei oder mehr Word-Dokumenten zu finden.

Ich brauche die Formatierung nicht verglichen und ich nichtst√∂rt es, wenn ich sie nicht bearbeiten oder zusammenf√ľhren kann, aber ich m√∂chte die hervorgehobenen Unterschiede der Dateien sehen k√∂nnen. Ich wei√ü, dass ich den Text in Textdateien kopieren und in Nur-Rohtext-Diff-Tools verwenden kann, aber einige der zu vergleichenden Word-Dokumente sind ziemlich umfangreich.

Antworten:

0 f√ľr Antwort ‚ĄĖ 1

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

Wenn Sie √ľber mehrere Revisionsdokumente verf√ľgen, k√∂nnen Sie diese zu einem neuen Dokument zusammenfassen. Wahrscheinlich kennen Sie diese Funktion 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

0 f√ľr Antwort ‚ĄĖ 2

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

Dort sind einige Plugins verf√ľgbar, die Ihnen mit dem Wortteil Ihrer Frage helfen k√∂nnten.

Das Vergleichen von Text ist jedoch wahrscheinlich am leistungsfähigsten.