2 protingi būdai rodyti visas žymes jūsų „Word“ dokumente

Šiame straipsnyje norėtume pateikti jums 2 protingus būdus, kaip rodyti visas žymes jūsų Word dokumente.

Retkarčiais įterpiame žymę pasirinktam tekstui, kurį norime peržiūrėti vėliau. Tačiau dėl žymės pobūdžio programoje „Word“ sunku ją atpažinti. Kitaip tariant, negalime peržiūrėti žymių tiesiogiai, neperjungę kai kurių „Word“ parinkčių.    

Šis straipsnis skirtas padėti jums aiškiai matyti žymes. Galite pasirinkti bet kurį pratimo būdą.

1 būdas: Rodyti žymių skliaustus

1. Visų pirma, juostelėje spustelėkite skirtuką „Failas“.
2. Tada spustelėkite „Parinktys“, kad atidarytumėte dialogo langą „Word Options“.
3. Tada kairiajame stulpelyje spustelėkite „Išplėstinė“.
4. Slinkite žemyn iki skyriaus „Rodyti dokumento turinį“ ir pažymėkite laukelį „Rodyti žymes“.
5. Galiausiai spustelėkite „Gerai“, kad išsaugotumėte modifikaciją.

Dabar aplink pažymėtus elementus yra laužtiniai skliaustai. Galite matyti, kad šie skliausteliai yra pilkos spalvos, o tai kartais nėra tokia akivaizdi. Ir jūs galite juos supainioti su įprastais laužtiniais skliaustais.

Todėl norime jums rekomenduoti makrokomandą, kad paryškintumėte žymes, kad jas geriau išsiskirtumėte.

2 būdas: pažymėkite kelias žymes

1. Norėdami pradėti, paspauskite „Alt + F11“, kad iškviestumėte VBA redaktorių.
2. Tada spustelėkite „Įprastas projektas“.
3. Tada meniu juostoje spustelėkite skirtuką „Įterpti“ ir išskleidžiamajame meniu pasirinkite „Modulis“.
4. Ir dukart spustelėkite naują modulį, kad atidarytumėte jo redagavimo vietą dešinėje.
5. Įklijuokite ten šią makrokomandą:

Sub HighlightBookmarkedItemsInADoc()
  Dim objBookmark As Bookmark
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objBookmark In .Bookmarks
      objBookmark.Range.HighlightColorIndex = wdBrightGreen
    Next objBookmark
  End With
  Application.ScreenUpdating = True
End Sub

6. Paskutinis, bet ne mažiau svarbus dalykas, spustelėkite „Vykdyti“ arba paspauskite „F5“.

Kitas dalykas, kurį matote, yra visos žymės paryškintos žalia spalva, pvz., toliau:

Virš makrokomandos pažymėkite visas žymes dabartiniame aktyviame dokumente. Jei reikia apdoroti kelis dokumentus, vietoj to reikia šios makrokomandos:

Sub HighlightBookmarkedItemsInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "You need to select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
    With objDoc
      For Each objBookmark In .Bookmarks
        objBookmark.Range.HighlightColorIndex = wdBrightGreen
      Next objBookmark
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
 Wend
End Sub

Prieš paleisdami šią makrokomandą, turite visus tikslinius dokumentus įdėti į tą patį aplanką. Paleidus makrokomandą, atsidarys langas „Naršyti“. Tiesiog pasirinkite aplanką, kuriame saugomi jūsų dokumentai.

Naudingumas dokumentų taisymui

Jei susidursite Žodžio žala, yra didelė tikimybė, kad ji gali ištrinti tam tikrą svarbią informaciją iš jūsų kompiuterio. Tai negali būti didelė problema, jei turite naujausią atsarginę kopiją. Tačiau jei ne, jums nedelsiant reikės remonto įrankio.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontas xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com