Ich verwende einen Code, mit dem ich alle nachverfolgten Änderungen automatisch in hervorgehobenen Text konvertieren kann. Wenn die Spuränderung jedoch eine Unterdrückung ist, gibt es natürlich nach "Akzeptiere alle Änderungen" keine Hervorhebung. Daher suche ich nach einem Code, der es mir erlaubt, 2 Zeichen vor und 2 Zeichen nach allen nachverfolgten Änderungen hervorzuheben . Wenn ich alle Änderungen akzeptiert habe, kann ich mir vorstellen, wo Unterdrückungen gemacht wurden.
Hier ist mein Code:
Sub tracked_to_highlighted() tempState = ActiveDocument.TrackRevisions ActiveDocument.TrackRevisions = False For Each Change In ActiveDocument.Revisions Set myRange = Change.Range myRange.Revisions.AcceptAll myRange.HighlightColorIndex = wdGreen Next ActiveDocument.TrackRevisions = tempState End Sub Vielen Dank
Versuche dies ...
Sub tracked_to_highlighted() Dim myRange As word.Range tempState = ActiveDocument.TrackRevisions ActiveDocument.TrackRevisions = False For Each Change In ActiveDocument.Revisions Set myRange = Change.Range myRange.MoveStart word.WdUnits.wdCharacter, Count:=-2 myRange.MoveEnd word.WdUnits.wdCharacter, Count:=2 myRange.HighlightColorIndex = wdGreen myRange.Revisions.AcceptAll Next ActiveDocument.TrackRevisions = tempState End Sub