Salt la conținutul principal

Cum se acceptă modificările urmăririi formatului numai în documentul Word?

Dacă aveți un document Word care se află în modul de schimbare a pistelor, atunci când aplicați fișierul Acceptați toate modificările caracteristică, toate modificările pistei vor fi acceptate. Dar, uneori, doriți doar să acceptați modificările piesei de formatare fără a accepta inserțiile sau ștergerile. Acest articol va vorbi despre cum să rezolvați această sarcină în documentul Word.

Acceptați doar modificările de formatare a pistelor în Word cu cod VBA

Acceptați doar modificările de formatare a pieselor în Word cu funcția Afișare marcare


Acceptați doar modificările de formatare a pistelor în Word cu cod VBA

Următorul cod VBA vă poate ajuta să acceptați modificările piesei de formatare numai în documentul Word, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:

Cod VBA: acceptați modificările urmăririi formatului numai în documentul 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. Și apoi apăsați F5 tasta pentru a rula acest cod și numai modificările urmăririi formatării au fost acceptate imediat în documentul Word activ. Vedeți captura de ecran:

doc acceptă formatarea 1


Acceptați doar modificările de formatare a pieselor în Word cu funcția Afișare marcare

În documentul Word, puteți aplica și fișierul Afișați marcajul pentru a finaliza această lucrare, vă rugăm să efectuați următorii pași:

1. În fișierul modului de modificare a pieselor, faceți clic pe Recenzie > Afișați marcajul, apoi debifați Comentarii și Inserții și ștergeri opțiuni și lăsați fișierul Formatarea opțiune bifată, vezi captura de ecran:

doc acceptă formatarea 2

2. Și acum, puteți vedea doar modificările urmărite de formatare, apoi continuați să faceți clic Recenzie > Accept > Acceptați toate modificările afișate după cum se arată în următoarea captură de ecran:

doc acceptă formatarea 3

3. Și toate modificările pistei de formatare au fost acceptate, acum, trebuie să reveniți pe Comentariu, Inserții și ștergeri opțiuni verificându-le din Afișați marcajul lista derulantă, vezi captura de ecran:

doc acceptă formatarea 4

4. Acum, puteți vedea modificările de formatare a pistei au fost acceptate, iar alte modificări ale pistei sunt încă păstrate, a se vedea captura de ecran:

doc acceptă formatarea 1

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Solicitați informații pe baza Documentului, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie pagini specifice  /  tabele  /  forme  /  paragrafele de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Kutools pentru Word oferă a 60-zi de încercare gratuită, fără limitări! 🚀
 
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