Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ընդունել ձևաչափի հետագծի փոփոխությունները միայն 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges ()
Dim xRev As Revision
Յուրաքանչյուր xRev-ի համար ActiveDocument.Revisions-ում
If Left(xRev.FormatDescription, 12) = "Mis en form" Ապա
xRev.Accept
Վերջ: Եթե
հաջորդ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Dans toutes les langues.

Sub AcceptFormatChanges ()
Dim xRev As Revision
Յուրաքանչյուր xRev-ի համար ActiveDocument.Revisions-ում
Եթե ​​xRev.FormatDescription <> "" Ապա
xRev.Accept
Վերջ: Եթե
հաջորդ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր