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!

Dyk in i de markerade funktionerna nedan eller klicka här för att utforska den fulla kraften i Kutools för Word.

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/XLSX)  /  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öringSvep bort Extra utrymmen  /  Avsnitt bryter  /   Alla rubriker  /  Textrutor  /  Hyperlänkar  /  För fler borttagningsverktyg, gå till vår Remove Group

Kreativa inlägg: Insert Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  /  Upptäck mer i vår Insert Group

🔍 Precisionsval: Hitta specifika sidor  /  Tabellerna  /  former  /  rubrikerna  /  Navigera med lätthet med hjälp av vår Select Group

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 ...

Förvandla dina Word-uppgifter med Kutools. 👉 Ladda ner med 30-dagars provversion nu 🚀.

Läs mer       Gratis nedladdning      Inköp
 
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