Preskoči na glavno vsebino

Kako sprejeti spremembe formata skladbe samo v dokumentu Word?

Če imate Wordov dokument, ki je v načinu sprememb sprememb, ko uporabite Sprejmi vse spremembe funkcije, bodo sprejete vse spremembe skladbe. Včasih pa preprosto želite sprejeti spremembe skladbe za oblikovanje, ne da bi sprejeli vstavke ali izbrise. Ta članek govori o tem, kako rešiti to nalogo v dokumentu Word.

Sprejemite samo spremembe skladb za formatiranje v Wordu s kodo VBA

Sprejmite samo spremembe skladb za formatiranje v Wordu s funkcijo Show Markup


Sprejemite samo spremembe skladb za formatiranje v Wordu s kodo VBA

Naslednja koda VBA vam lahko pomaga, da sprejmete spremembe skladbe za oblikovanje samo v dokumentu Word, naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:

Koda VBA: Sprejem sprememb skladbe oblike samo v dokumentu Word

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. In nato pritisnite F5 tipko za zagon te kode in v aktivnem dokumentu Word so bile takoj sprejete le spremembe skladbe za oblikovanje. Oglejte si posnetek zaslona:

doc sprejme oblikovanje 1


Sprejmite samo spremembe skladb za formatiranje v Wordu s funkcijo Show Markup

V dokumentu Word lahko uporabite tudi Pokaži oznake funkcijo, da dokončate to opravilo, naredite naslednje:

1. V datoteki načina spreminjanja skladbe kliknite pregled > Pokaži oznakein nato počistite polje Komentarji in Vstavki in izbrisi možnosti in pustite Oblikovanje možnost označena, glej posnetek zaslona:

doc sprejme oblikovanje 2

2. Zdaj lahko vidite spremembe, ki jim je sledilo oblikovanje, nato pa kliknite na pregled > Sprejmi > Sprejmi vse prikazane spremembe kot je prikazan naslednji posnetek zaslona:

doc sprejme oblikovanje 3

3. In vse spremembe formatiranja skladbe so bile sprejete, zdaj se morate vrniti na komentar, Vstavki in izbrisi možnosti, tako da jih preverite v Pokaži oznake spustni seznam, glej posnetek zaslona:

doc sprejme oblikovanje 4

4. Zdaj lahko vidite, da so spremembe formata skladbe sprejete, druge spremembe skladb pa se še vedno hranijo, glejte posnetek zaslona:

doc sprejme oblikovanje 1

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀
 
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