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

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

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 Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Vous êtes mon héros. En français, le code serait le suivant:

Newidiadau Is-dderbynFformat()
Dim xRev Fel Diwygiad
Am Bob xRev Mewn ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Yna
xParch.Derbyn
Gorffennwch Os
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dans toutes les langues :

Newidiadau Is-dderbynFformat()
Dim xRev Fel Diwygiad
Am Bob xRev Mewn ActiveDocument.Revisions
If xRev.FormatDescription <> "" Yna
xParch.Derbyn
Gorffennwch Os
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Merci, en effet, la dernière modh fonctionne aussi en néerlandais
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir