Gå til hovedindhold

Hvordan accepteres kun formatsporændringer i Word-dokument?

Hvis du har et Word-dokument, der er i sporskiftetilstand, når du anvender Accepter alle ændringer funktion accepteres alle sporændringer. Men nogle gange vil du bare acceptere ændringerne af formateringssporet uden at acceptere indsættelserne eller sletningerne. Denne artikel vil tale om, hvordan du løser denne opgave i Word-dokument.

Accepter kun formatering af sporændringer i Word med VBA-kode

Accepter kun formatering af sporændringer i Word med Vis markup-funktion


Accepter kun formatering af sporændringer i Word med VBA-kode

Følgende VBA-kode kan kun hjælpe dig med at acceptere ændringer i formateringssporet i Word-dokument.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbne blanke modul:

VBA-kode: Accepter kun formatsporændringer 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. Og tryk derefter på F5 nøgle til at køre denne kode, og kun ændringer af formateringssporet er blevet accepteret i det aktive Word-dokument med det samme. Se skærmbillede:

doc accepter formatering 1


Accepter kun formatering af sporændringer i Word med Vis markup-funktion

I Word-dokument kan du også anvende Vis markering funktion til at afslutte dette job, skal du gøre med følgende trin:

1. Klik på i filen med sporskiftstilstand anmeldelse > Vis markering, og fjern derefter markeringen af Kommentarer , Indsætninger og sletninger valgmuligheder, og lad Formatering mulighed markeret, se skærmbillede:

doc accepter formatering 2

2. Og nu kan du bare se de sporede ændringer af formateringen, og fortsæt med at klikke anmeldelse > Acceptere > Accepter alle viste ændringer som følgende skærmbillede vist:

doc accepter formatering 3

3. Og alle ændringer af formateringssporet er blevet accepteret. Nu skal du vende tilbage til Kommentar, Indsætninger og sletninger valgmuligheder ved at kontrollere dem fra Vis markering rulleliste, se skærmbillede:

doc accepter formatering 4

4. Nu kan du se, at ændringerne af formateringssporet er blevet accepteret, og andre sporændringer bevares stadig, se skærmbillede:

doc accepter formatering 1

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang...

Indholdsredigering: Batch Find og erstat på tværs af flere filer  /  Ændr størrelse på alle billeder  /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...

Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af specifikke sider  /  tabeller  /  former  /  overskrifter  / Forbedre navigation med mere Vælg funktioner...

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
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