Ga naar hoofdinhoud

Hoe wijzigingen in het formaat van het spoor alleen in Word-document accepteren?

Als u een Word-document heeft dat zich in de trackwijzigingsmodus bevindt, wanneer u het Accepteer alle wijzigingen functie, worden alle trackwijzigingen geaccepteerd. Maar soms wilt u gewoon de wijzigingen in de opmaaktrack accepteren zonder de invoegingen of verwijderingen te accepteren. In dit artikel wordt besproken hoe u deze taak in een Word-document kunt oplossen.

Accepteer alleen het opmaken van trackwijzigingen in Word met VBA-code

Accepteer alleen het opmaken van trackwijzigingen in Word met de functie Show Markup


Accepteer alleen het opmaken van trackwijzigingen in Word met VBA-code

De volgende VBA-code kan u helpen om de wijzigingen van de opmaaktrack alleen in Word-document te accepteren, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: accepteer wijzigingen in het formaatspoor alleen in Word-document

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. En druk vervolgens op F5 toets om deze code uit te voeren, en alleen de opmaaktrackwijzigingen zijn onmiddellijk in het actieve Word-document geaccepteerd. Zie screenshot:

doc accepteren opmaak 1


Accepteer alleen het opmaken van trackwijzigingen in Word met de functie Show Markup

In Word-document kunt u ook het Toon markeringen functie om deze klus te klaren, voer de volgende stappen uit:

1. Klik in het trackwijzigingsmodusbestand op Beoordeling > Toon markeringenen schakel het selectievakje Heb je vragen? Stel ze hier. en Invoegingen en verwijderingen opties, en laat het opmaak optie aangevinkt, zie screenshot:

doc accepteren opmaak 2

2. En nu kunt u alleen de opmaak bijgehouden wijzigingen zien en vervolgens blijven klikken Beoordeling > ACCEPTEREN > Accepteer alle weergegeven wijzigingen zoals volgend screenshot getoond:

doc accepteren opmaak 3

3. En alle wijzigingen in het opmaaktrack zijn geaccepteerd, nu moet u terugkeren op het Opmerking, Invoegingen en verwijderingen opties door ze aan te vinken in het Toon markeringen vervolgkeuzelijst, zie screenshot:

doc accepteren opmaak 4

4. Nu kunt u zien dat de wijzigingen aan de opmaaktrack zijn geaccepteerd en dat andere trackwijzigingen nog steeds worden bewaard, zie screenshot:

doc accepteren opmaak 1

Beste Office-productiviteitstools

Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!

🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren  /  Herschrijf tekst  /  Documenten samenvatten  /  Informeer voor informatie gebaseerd op document, allemaal binnen Word

📘 Documentbeheersing: Pagina's splitsen  /  Voeg documenten samen  /  Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...)  /  Batchconversie naar PDF  /  Pagina's exporteren als afbeeldingen  /  Meerdere bestanden tegelijk afdrukken...

Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden  /  Formaat van alle afbeeldingen wijzigen  /  Tabelrijen en -kolommen transponeren  /  Converteer tabel naar tekst...

🧹 Moeiteloos schoon: Veeg weg Extra ruimtes  /  Sectie-onderbrekingen  /  Alle koppen  /  Tekstvakken  /  hyperlinks  / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...

Creatieve invoegingen: Invoegen Duizend scheidingstekens  /  Vink vakjes aan  /  Radio knoppen  /  QR Code  /  Barcode  /  Diagonale lijntabel  /  Vergelijking bijschrift  /  Bijschrift bij afbeelding  /  Tabel titel  /  Meerdere afbeeldingen  / Ontdek meer in de Groep invoegen...

???? Precisieselecties: Vaststellen specifieke pagina's  /  tafels  /  vormen  /  kop paragrafen  / Verbeter de navigatie met meer Selecteer functies...

Sterverbeteringen: Navigeer snel naar elke locatie  /  automatisch herhaalde tekst invoegen  /  naadloos schakelen tussen documentvensters  /  11 Conversiehulpmiddelen...

👉 Wil je deze functies proberen? Kutools voor Word biedt een Gratis proefperiode van 60-dag, zonder beperkingen! 🚀
 
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