Hoppa till huvudinnehåll

Hur accepterar jag endast formatändringar i Word-dokument?

Om du har ett Word-dokument som är i spårbytesläge, när du använder Acceptera alla ändringar funktionen kommer alla spårändringar att accepteras. Men ibland vill du bara acceptera ändringarna i formateringsspåret utan att acceptera infogningarna eller raderingarna. Denna artikel kommer att prata om hur man löser denna uppgift i Word-dokument.

Acceptera endast formatering av spårändringar i Word med VBA-kod

Acceptera endast formatering av spårändringar i Word med funktionen Visa markering


Acceptera endast formatering av spårändringar i Word med VBA-kod

Följande VBA-kod kan hjälpa dig att acceptera formateringsspårändringarna endast i Word-dokument, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:

VBA-kod: Acceptera endast formatändringar i 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. Och tryck sedan på F5 -knappen för att köra den här koden, och endast ändringar av formateringsspår har accepterats i det aktiva Word-dokumentet omedelbart. Se skärmdump:

doc accepterar formatering 1


Acceptera endast formatering av spårändringar i Word med funktionen Visa markering

I Word-dokument kan du också använda Visa markering för att avsluta det här jobbet, gör med följande steg:

1. Klicka på i filen för spårändringsläge översyn > Visa markering, och avmarkera sedan Kommentarer och Infogningar och raderingar och lämna formatering alternativ markerat, se skärmdump:

doc accepterar formatering 2

2. Och nu kan du bara se formaterade spårade ändringar, fortsätt sedan med att klicka översyn > Acceptera > Godkänn alla visade ändringar som följande skärmdump visas:

doc accepterar formatering 3

3. Och alla ändringar av formateringsspåren har accepterats, nu måste du återvända till Kommentar, Infogningar och raderingar alternativ genom att kontrollera dem från Visa markering rullgardinsmeny, se skärmdump:

doc accepterar formatering 4

4. Nu kan du se att formateringsspårändringarna har accepterats och andra spårändringar behålls fortfarande, se skärmdump:

doc accepterar formatering 1

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
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