Skip i'r prif gynnwys

Sut i dderbyn newidiadau trac fformat yn unig yn nogfen Word?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2018-09-19

Os oes gennych ddogfen Word sydd yn y modd newidiadau trac, pan fyddwch yn defnyddio'r Derbyn Pob Newid nodwedd, derbynnir yr holl newidiadau trac. Ond, weithiau, 'ch jyst eisiau derbyn y newidiadau fformat fformatio heb dderbyn y mewnosodiadau neu'r dileu. Bydd yr erthygl hon yn siarad am sut i ddatrys y dasg hon yn nogfen Word.

Derbyn dim ond newidiadau trac fformatio yn Word gyda chod VBA

Derbyn dim ond newidiadau trac fformatio yn Word gyda swyddogaeth Show Markup


Derbyn dim ond newidiadau trac fformatio yn Word gyda chod VBA

Gall y cod VBA canlynol eich helpu i dderbyn y newidiadau trac fformatio yn nogfen Word yn unig, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Derbyn newidiadau trac fformat yn unig yn nogfen 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. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, a dim ond y newidiadau trac fformatio sydd wedi'u derbyn yn y ddogfen Word weithredol ar unwaith. Gweler y screenshot:

doc derbyn fformatio 1


Derbyn dim ond newidiadau trac fformatio yn Word gyda swyddogaeth Show Markup

Yn nogfen Word, gallwch hefyd gymhwyso'r Dangos Markup swyddogaeth i orffen y swydd hon, gwnewch y camau canlynol:

1. Yn y ffeil modd newidiadau trac, cliciwch adolygiad > Dangos Markup, ac yna dad-diciwch y sylwadau ac Mewnosodiadau a Dileu opsiynau, a gadael y Fformatio opsiwn wedi'i wirio, gweler y screenshot:

doc derbyn fformatio 2

2. Ac yn awr, gallwch weld y newidiadau fformatio wedi'u tracio, yna, ewch ymlaen i glicio adolygiad > Derbyn > Derbyn Pob Newid a Ddangosir fel y dangosir y screenshot canlynol:

doc derbyn fformatio 3

3. Ac mae'r holl newidiadau trac fformatio wedi'u derbyn, nawr, mae angen i chi ddychwelyd ar y Sylwadau, Mewnosodiadau a Dileu opsiynau trwy eu gwirio o'r Dangos Markup rhestr ostwng, gweler y screenshot:

doc derbyn fformatio 4

4. Nawr, gallwch weld bod y newidiadau trac fformatio wedi'u derbyn, a bod newidiadau trac eraill yn dal i gael eu cadw, gweler y screenshot:

doc derbyn fformatio 1

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys  /  Ailysgrifennu Testun  /  Crynhoi Dogfennau  /  Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith...

Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog  /  Newid Maint Pob Llun  /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /  Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...

Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  / Darganfod mwy yn y Mewnosod Grŵp...

🔍 Detholiadau Manwl: pinbwynt tudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  / Gwella llywio gyda mwy Dewiswch nodweddion...

Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Mae Kutools ar gyfer Word yn cynnig a Treial am ddim 60-dydd, heb unrhyw gyfyngiadau! 🚀
 
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