Ugrás a tartalomra

Hogyan fogadhatjuk el a formátumkövetési változásokat csak a Word dokumentumban?

Ha van egy Word-dokumentuma, amely sávváltási módban van, akkor a Minden módosítás elfogadása funkcióval minden pályamódosítás elfogadható. De néha csak a formázási sávváltozásokat akarja elfogadni a beillesztések vagy törlések elfogadása nélkül. Ez a cikk arról fog szólni, hogyan oldhatja meg ezt a feladatot a Word dokumentumban.

Csak a sávváltozások formázását fogadja el a Wordben VBA kóddal

Csak a sávváltozások formázását fogadja el a Wordben a Jelölés megjelenítése funkcióval


Csak a sávváltozások formázását fogadja el a Wordben VBA kóddal

A következő VBA-kód segíthet abban, hogy a formázási sávváltozásokat csak a Word dokumentumban fogadja el, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba:

VBA kód: Csak a Word dokumentumban fogadja el a formátum sávváltozásokat

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és csak a formázási sávváltozásokat fogadták el azonnal az aktív Word dokumentumban. Lásd a képernyőképet:

doc elfogadja a formázást 1


Csak a sávváltozások formázását fogadja el a Wordben a Jelölés megjelenítése funkcióval

A Word dokumentumban a Megjelölés megjelenítése funkció befejezéséhez, kérjük, tegye a következőket:

1. A sávváltási mód fájlban kattintson a gombra Felülvizsgálat > Megjelölés megjelenítése, majd törölje a jelölést Hozzászólások és a Beillesztések és törlések opciókat, és hagyja a formázás opció be van jelölve, lásd a képernyőképet:

doc elfogadja a formázást 2

2. És most csak láthatja a formázással nyomon követett változásokat, majd kattintson a gombra Felülvizsgálat > Elfogad! > Minden megjelenített változás elfogadása a következő képernyőképen:

doc elfogadja a formázást 3

3. És minden formázási sávváltozást elfogadtak, most vissza kell térnie a Megjegyzés, Beillesztések és törlések opciókat a Megjelölés megjelenítése legördülő lista, lásd a képernyőképet:

doc elfogadja a formázást 4

4. Most láthatja, hogy a formázási sávváltozásokat elfogadták, és a többi sávmódosítás továbbra is megmarad, lásd a képernyőképet:

doc elfogadja a formázást 1

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása  /  Szöveg átírása  /  Összefoglalja a dokumentumokat  /  Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...)  /  Kötegelt konvertálás PDF-be  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre...

Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között  /  Minden kép átméretezése  /  Transzponálja a táblázat sorait és oszlopait  /  Táblázat konvertálása szöveggé...

🧹 Könnyed tisztítás: Söpörj el Extra helyek  /  Szakaszszünetek  /  Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...

Kreatív betétek: Beszúrás Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  / Fedezzen fel többet a Csoport beszúrása...

???? Precíziós kiválasztás: Pontosan konkrét oldalak  /  asztalok  /  formák  /  címsor bekezdései  / A navigáció javítása a következővel: több Jelölje ki a funkciókat...

Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök...

???? Ki szeretné próbálni ezeket a funkciókat? A Kutools for Word kínál a 60 napos ingyenes próba, korlátozások nélkül! 🚀
 
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