Konvertierte Änderungen in hervorgehobene umwandeln (Fortsetzung)

332
MGF777

Gibt es eine Zeile, die wir der folgenden VBA-Routine hinzufügen könnten, um einen Buchstaben vor und einen Buchstaben nach dem gesamten gelöschten Text hervorzuheben, so dass, wenn alle Änderungen akzeptiert werden, immer noch sichtbar ist, wo etwas Text gelöscht wurde? Hier ist der Code, über den ich aus einem früheren Beitrag spreche:

Es gibt das Revisionsobjekt in VBA. Von hier aus können Sie jedes Revisionselement einfach durchlaufen, mit einer vordefinierten Farbe akzeptieren und hervorheben.

Zusätzlich müssen wir das Tracking vorübergehend deaktivieren.

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
0
Sagen Sie nicht einfach "(Fortsetzung)" in Ihrem Titel. Wenn Sie sich auf eine vorherige Frage beziehen möchten, verknüpfen Sie * mit *. Scott vor 6 Jahren 0
Ich werde das nächste Mal sicher! Vielen Dank MGF777 vor 6 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme