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!

Dyk ned i de fremhævede funktioner nedenfor eller klik her for at udforske den fulde kraft af Kutools for Word.

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/XLSX)  /  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øringFej væk Ekstra pladser  /  Afsnit bryder  /   Alle overskrifter  /  Tekstbokse  /  Hyperlinks  /  For flere fjernelsesværktøjer, gå til vores Fjerngruppe

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

???? Præcisionsvalg: Find bestemte sider  /  tabeller  /  former  /  overskrifter  /  Naviger nemt ved hjælp af vores udvalgte gruppe

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

Transformer dine Word-opgaver med Kutools. 👉 Download med 30-dages prøveversion nu 🚀.

Læs mere       Gratis download      Køb
 
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