Ich habe einige Word-Dokumente mit nicht akzeptierten, nachverfolgten Änderungen. Ich möchte sie akzeptieren, aber immer noch rot in meinen Dokumenten. Ich denke, ein guter Weg, dies zu tun wäre eine Platzhaltersuche für nicht akzeptierte Änderungen und ersetzen sie mit dem gleichen Text in rot, aber ich weiß nicht, ob dies möglich ist. Ich bin auch glücklich mit anderen Möglichkeiten, um mein Ziel zu erreichen, ohne Wildcards.Verwenden von Wort-Wildcards, um nicht akzeptierte Änderungen zu finden
0
A
Antwort
0
Das Anwenden der Formatierung auf Revisionen kann nicht mit dem Standard-Suchbefehl von Word & durchgeführt werden. Sie können jedoch ein Makro schreiben, das alle Revisionen auflistet und dann Formatierungen für alle Revisionen anwendet.
Es gibt einen Block Beitrag von Chris Rae, die ein Makro enthält, die Revisionen Standardformatierung konvertiert:
Enumerating edits on large documents (AKA converting tracked changes to conventional formatting)
Das Makro kann noch nicht genau das tun, was man braucht, aber es sollte fang an.
Als Referenz hier ist eine Kopie des Makros:
Sub EnumerateChanges()
Dim rAll As Revision
Dim dReport As Document
Dim dBigDoc As Document
Set dBigDoc = ActiveDocument
If dBigDoc.Revisions.Count = 0 Then
MsgBox "There are no revisions in the active document.", vbCritical
ElseIf MsgBox(“This will enumerate the changes in '" + dBigDoc.Name + "' in a new document and close the original WITHOUT saving changes. Continue?", vbYesNo) <> vbNo Then
Set dReport = Documents.Add
dBigDoc.Activate ' really just so we can show progress by selecting the revisions
dBigDoc.TrackRevisions = False ' Leaving this on results in a disaster
For Each rAll In dBigDoc.Revisions
' Now find the nearest section heading downwards
Dim rFindFirst As Range, rFindLast As Range
Set rFindLast = rAll.Range.Paragraphs(1).Range
While Not IsNumberedPara(rFindLast.Next(wdParagraph))
Set rFindLast = rFindLast.Next(wdParagraph)
Wend
' Now head back up to the next numbered section header
Set rFindFirst = rFindLast
Do
Set rFindFirst = rFindFirst.Previous(wdParagraph)
Loop Until IsNumberedPara(rFindFirst) Or (rFindFirst.Previous(wdParagraph) Is Nothing)
ConvertNumberedToText rFindFirst
Dim rChangedSection As Range
Set rChangedSection = dBigDoc.Range(rFindFirst.Start, rFindLast.End)
' Properly tag all the revisions in this whole section
Dim rOnesInThisSection As Revision
For Each rOnesInThisSection In rChangedSection.Revisions
rOnesInThisSection.Range.Select ' just for visual update
DoEvents ' update the screen so we can see how far we are through
If rOnesInThisSection.Type = wdRevisionDelete Then
rOnesInThisSection.Reject
With Selection.Range
.Font.ColorIndex = wdRed
.Font.StrikeThrough = True
End With
dBigDoc.Comments.Add Selection.Range, “deleted”
Else
If rOnesInThisSection.Type = wdRevisionInsert Then
rOnesInThisSection.Accept
With Selection.Range
.Font.ColorIndex = wdBlue
End With
dBigDoc.Comments.Add Selection.Range, “inserted”
End If
End If
Next
' Now copy the whole thing into our new document
rChangedSection.Copy
Dim rOut As Range
Set rOut = dReport.Range
rOut.EndOf wdStory, False
rOut.Paste
Next rAll
' There should end up being no numbered paragraphs at all in the
' new doc (they were converted to text), so delete them
Dim pFinal As Paragraph
For Each pFinal In dReport.Paragraphs
If IsNumberedPara(pFinal.Range) Then
pFinal.Range.ListFormat.RemoveNumbers
End If
Next
dBigDoc.Close False
End If
End Sub
Sub ConvertNumberedToText(rOf As Range)
If InStr(rOf.ListFormat.ListString, “.”) > 0 Then
rOf.InsertBefore "Changes to section " + rOf.ListFormat.ListString + " "
End If
End Sub
Function IsNumberedPara(rOf As Range) As Boolean
If rOf Is Nothing Then ‘ if the document doesn’t have numbered sections, this will cause changes to be enumerated in the whole thing
IsNumberedPara = True
ElseIf rOf.ListFormat.ListString <> "" Then
If Asc(rOf.ListFormat.ListString) <> 63 Then
IsNumberedPara = True
End If
End If
End Function
Verwandte Themen
- 1. Verwenden von Delphi, um Änderungen an Ordner zu verfolgen?
- 2. Verwenden von geschachtelten Funktionen, um Produkt von Zahlen zu finden
- 3. Regex verwenden, um ungültige Postleitzahl zu finden
- 4. Verwenden von Pandas, um Mindestwerte von gruppierten Zeilen zu finden
- 5. Akzeptierte bedingte Anzahl (um den Webverkehr zu sessionisieren) in R
- 6. GCC verwenden, um nicht erreichbare Funktionen zu finden ("toter Code")
- 7. Um mem zu verwenden und dann zu finden oder zu verwenden, um die Ausnahme zu finden und zu behandeln?
- 8. Felddefinitionen Änderungen von PostSharp nicht freundlich zu Lambda-Ausdrücke verwenden
- 9. Verwenden von Lookahead, um das letzte Zeichen zu finden
- 10. Verwenden von Stanford Parser (CoreNLP), um Satzköpfe zu finden
- 11. Verwenden von awk, um übereinstimmenden Inhalt zu finden
- 12. Verwenden Sie RE, um die Übereinstimmung von Wörtern zu finden
- 13. Verwenden von FindControl(), um das Steuerelement zu finden
- 14. Verwenden von `Quick-Look`, um bestimmte Element zu finden
- 15. Verwenden Sie jQuery, um div von Hintergrundfarbe zu finden
- 16. Verwenden von OpenCV in Android, um eine Bildübereinstimmung zu finden
- 17. Verwenden von Doppel-Arrays, um den Modus zu finden?
- 18. Verwenden Sie AJAX, um SQL-Datenbank nach Änderungen zu beobachten
- 19. Wie find() zu verwenden, in MATLAB, um Dezimalstellen zu finden
- 20. Verwenden von reagieren, um externe Änderungen aus der Datenschicht widerzuspiegeln
- 21. Inhalt in Textbereichen gesetzt nicEdit nicht zu verwenden, zu aktualisieren Benutzer, um Änderungen
- 22. Verschlüsselung, um Dateien vor Änderungen zu schützen
- 23. Kann Selen nicht finden, um Element zu finden
- 24. Nicht akzeptierte Lizenzvereinbarungen für CMake 3.6.3155560
- 25. Dropzone akzeptierte Dateien und maxFiles
- 26. Kann nicht regex_search finden, um alle Übereinstimmungen zu finden
- 27. Regex verwenden, um sich wiederholende Gruppen in Telefonnummern zu finden
- 28. Verwenden der Volltextsuche, um Teilwörter zu finden (SQL Server 2008)
- 29. Verwenden Sie awk, um den Durchschnitt einer Spalte zu finden
- 30. Verwenden Sie GHCi Breakpoint Debugger, um Zwischenergebnisse zu finden?