Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ընդունել ձևաչափի հետագծի փոփոխությունները միայն Word փաստաթղթում:

Եթե ​​ունեք Word փաստաթուղթ, որը հետագծի փոփոխության ռեժիմում է, ապա այն կիրառելիս Ընդունեք բոլոր փոփոխությունները առանձնահատկությունը, ուղու բոլոր փոփոխությունները կընդունվեն: Բայց, երբեմն, դուք պարզապես ցանկանում եք ընդունել ձևաչափման ուղու փոփոխությունները ՝ առանց ընդունելու ներմուծումները կամ ջնջումները: Այս հոդվածում կխոսվի այն մասին, թե ինչպես լուծել այս խնդիրը Word փաստաթղթում:

Ընդունեք Word- ում միայն VBA կոդով ձևաչափման հետագծի փոփոխությունները

Ընդունեք միայն Word- ի ձևաչափման հետքերի փոփոխությունները Show Markup գործառույթով


Ընդունեք Word- ում միայն VBA կոդով ձևաչափման հետագծի փոփոխությունները

Հետևյալ VBA կոդը կարող է օգնել ձեզ ընդունել ձևաչափման ուղու փոփոխությունները միայն Word փաստաթղթում, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.

VBA կոդ. Ընդունեք ձևաչափի հետագծի փոփոխությունները միայն 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, Եվ հետո սեղմեք F5 այս կոդը գործելու բանալին, և միայն ֆորմատավորման ուղու փոփոխություններն անմիջապես ընդունվել են ակտիվ Word փաստաթղթում: Տեսեք,

փաստաթուղթն ընդունում է ձևաչափումը 1


Ընդունեք միայն Word- ի ձևաչափման հետքերի փոփոխությունները Show Markup գործառույթով

Word փաստաթղթում կարող եք նաև կիրառել Showուցադրել ցուցանշումը Այս գործն ավարտելու գործառույթը կատարեք հետևյալ քայլերով.

1, Հետագծի փոփոխությունների ռեժիմի ֆայլում կտտացրեք տեսություն > Showուցադրել ցուցանշումըև ապա հանել ընտրությունը մեկնաբանություններ և Տեղադրումներ և ջնջումներ տարբերակները, և թողեք այն Չափանշում տարբերակը ստուգված է, տես նկարի նկարը.

փաստաթուղթն ընդունում է ձևաչափումը 2

2, Եվ հիմա, դուք պարզապես կարող եք տեսնել, թե ինչպես է ձևաչափումը հետևում փոփոխություններին, ապա անցեք կտտացնելով տեսություն > Ընդունել > Ընդունեք ցուցադրված բոլոր փոփոխությունները ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթուղթն ընդունում է ձևաչափումը 3

3, Եվ ձևաչափման ուղու բոլոր փոփոխություններն ընդունվել են, այժմ դուք պետք է վերադարձեք այն մեկնաբանություն, Տեղադրումներ և ջնջումներ ընտրանքներ ՝ դրանք ստուգելով Showուցադրել ցուցանշումը բացվող ցուցակ, տես նկարի նկարը.

փաստաթուղթն ընդունում է ձևաչափումը 4

4, Այժմ, կտեսնեք, որ ձևաչափման հետագծի փոփոխություններն ընդունվել են, և հետագծի այլ փոփոխությունները դեռ պահպանվում են, տես նկարի նկարը.

փաստաթուղթն ընդունում է ձևաչափումը 1

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
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