Direkt zum Inhalt

Wie akzeptiere ich Formatverfolgungsänderungen nur in Word-Dokumenten?

Wenn Sie ein Word-Dokument haben, das sich im Änderungsmodus befindet, wenden Sie beim Anwenden des Akzeptieren Sie alle Änderungen Funktion werden alle Spuränderungen akzeptiert. Manchmal möchten Sie jedoch nur die Änderungen der Formatierungsspur akzeptieren, ohne die Einfügungen oder Löschungen zu akzeptieren. In diesem Artikel wird erläutert, wie Sie diese Aufgabe im Word-Dokument lösen können.

Akzeptieren Sie nur die Formatierung von Spuränderungen in Word mit VBA-Code

Akzeptieren Sie nur das Formatieren von Spuränderungen in Word mit der Funktion "Markup anzeigen"


Akzeptieren Sie nur die Formatierung von Spuränderungen in Word mit VBA-Code

Der folgende VBA-Code kann Ihnen dabei helfen, die Änderungen der Formatierungsspur nur in Word-Dokumenten zu akzeptieren. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Und dann klicken Insert > ModulKopieren Sie den folgenden Code und fügen Sie ihn in das geöffnete leere Modul ein:

VBA-Code: Akzeptieren Sie Änderungen an der Formatverfolgung nur im Word-Dokument

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. Und dann drücken F5 Schlüssel zum Ausführen dieses Codes, und nur die Änderungen der Formatierungsspur wurden sofort im aktiven Word-Dokument akzeptiert. Siehe Screenshot:

doc akzeptiert Formatierung 1


Akzeptieren Sie nur das Formatieren von Spuränderungen in Word mit der Funktion "Markup anzeigen"

Im Word-Dokument können Sie auch das anwenden Markup anzeigen Funktion, um diesen Job zu beenden, führen Sie bitte die folgenden Schritte aus:

1. Klicken Sie in der Datei für den Änderungsmodus auf Bewertung > Markup anzeigenund deaktivieren Sie dann das Kontrollkästchen Ihre Nachricht und Einfügungen und Löschungen Optionen, und verlassen Sie die Formatierung: Option aktiviert, siehe Screenshot:

doc akzeptiert Formatierung 2

2. Und jetzt können Sie nur noch die nachverfolgten Formatierungsänderungen sehen und dann weiter klicken Bewertung > Akzeptieren > Akzeptieren Sie alle angezeigten Änderungen wie folgt Screenshot gezeigt:

doc akzeptiert Formatierung 3

3. Und alle Änderungen an der Formatierungsspur wurden akzeptiert. Jetzt müssen Sie auf die zurückkehren Kommentar, Einfügungen und Löschungen Optionen, indem Sie sie von der überprüfen Markup anzeigen Dropdown-Liste, siehe Screenshot:

doc akzeptiert Formatierung 4

4. Jetzt können Sie sehen, dass die Formatierungsspuränderungen akzeptiert wurden und andere Spuränderungen weiterhin beibehalten werden (siehe Screenshot:

doc akzeptiert Formatierung 1

Beste Office-Produktivitätstools

Kutools for Word - Steigern Sie Ihr Word-Erlebnis mit Over 100 Bemerkenswerte Funktionen!

🤖 Kutools KI-Assistent: Verwandeln Sie Ihr Schreiben mit KI – Inhalte generieren  /  Text umschreiben  /  Dokumente zusammenfassen  /  Erkundigen Sie sich nach Informationen basierend auf Dokument, alles in Word

📘 Dokumentenbeherrschung: Seiten teilen  /  Dokumente zusammenführen  /  Auswahl in verschiedenen Formaten exportieren (PDF/TXT/DOC/HTML...)  /  Stapelkonvertierung in PDF  /  Seiten als Bilder exportieren  /  Drucken Sie mehrere Dateien gleichzeitig...

Inhaltsbearbeitung: Batch suchen und ersetzen über mehrere Dateien hinweg  /  Größe aller Bilder ändern  /  Vertauschen Sie Tabellenzeilen und -spalten  /  Tabelle in Text konvertieren...

🧹 Mühelose Reinigung: Wegfegen Zusätzliche Räume  /  Abschnittswechsel  /  Alle Header  /  Textfelder  /  Hyperlinks  / Weitere Entfernungswerkzeuge finden Sie auf unserer Gruppe entfernen...

Kreative Einsätze: Einfügen Tausend Trennzeichen  /  Kontrollkästchen  /  Radio Knöpfe  /  QR Code  /  Strichcode  /  Diagonale Linientabelle  /  Gleichungsbeschriftung  /  Bildunterschrift  /  Tabellenüberschrift  /  Mehrere Bilder  / Entdecken Sie mehr im Gruppe einfügen...

🔍 Präzise Auswahl: Punktgenau bestimmte Seiten  /  Tabellen  /  Formen  /  Überschriften von Absätzen  / Verbessern Sie die Navigation mit mehr Wählen Sie Funktionen aus...

Star-Verbesserungen: Navigieren Sie schnell zu jedem Ort  /  Sich wiederholenden Text automatisch einfügen  /  Wechseln Sie nahtlos zwischen Dokumentfenstern  /  11 Konvertierungstools...

👉 Möchten Sie diese Funktionen ausprobieren? Kutools für Word bietet a 60-Tage kostenlose Testversion, ohne Einschränkungen! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations