Přejít k hlavnímu obsahu

Jak přijímat změny formátu stopy pouze v dokumentu Word?

Pokud máte dokument Word, který je v režimu sledování změn, po použití Přijmout všechny změny funkce, budou přijaty všechny změny stopy. Někdy však chcete pouze přijmout změny stopy formátování, aniž byste přijímali vložení nebo odstranění. Tento článek bude hovořit o tom, jak vyřešit tento úkol v dokumentu Word.

Přijměte pouze změny formátování stopy v aplikaci Word s kódem VBA

Přijměte pouze změny formátování stopy ve Wordu pomocí funkce Zobrazit označení


Přijměte pouze změny formátování stopy v aplikaci Word s kódem VBA

Následující kód VBA vám může pomoci přijmout změny stopy formátování pouze v dokumentu Word, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:

Kód VBA: Přijměte změny formátu stopy pouze 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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a v aktivním dokumentu Word byly okamžitě přijaty pouze změny stopy formátování. Viz snímek obrazovky:

doc přijmout formátování 1


Přijměte pouze změny formátování stopy ve Wordu pomocí funkce Zobrazit označení

V dokumentu Word můžete také použít Zobrazit označení k dokončení této úlohy, proveďte následující kroky:

1. V souboru režimu změn stopy klikněte na přezkoumání > Zobrazit označenía potom zrušte zaškrtnutí políčka Komentáře a Vkládání a mazání možnosti a ponechte Formátování zaškrtnuta možnost, viz screenshot:

doc přijmout formátování 2

2. Nyní můžete vidět pouze sledované změny formátování a poté klikat přezkoumání > akceptovat > Přijmout všechny zobrazené změny jak je zobrazeno následující screenshot:

doc přijmout formátování 3

3. A všechny změny formátovací stopy byly přijaty, nyní se musíte vrátit na Komentář, Vkládání a mazání možnosti zaškrtnutím v Zobrazit označení rozevírací seznam, viz screenshot:

doc přijmout formátování 4

4. Nyní můžete vidět, že byly přijaty změny stopy formátování a další změny stopy jsou stále zachovány, viz screenshot:

doc přijmout formátování 1

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Vyžádejte si informace na základě dokumentu, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????
Stažení zdarma     Více     Kup nyní
 
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