2 nutikat viisi kõigi järjehoidjate kuvamiseks oma Wordi dokumendis

Selles artiklis soovime teile pakkuda 2 nutikat viisi, kuidas näidata kõiki Wordi dokumendis olevaid järjehoidjaid.

Aeg-ajalt lisame järjehoidja tekstivalikule, mida tahame hiljem uuesti vaadata. Kuid järjehoidja olemus Wordis muudab selle tuvastamise keeruliseks. Teisisõnu, me ei saa järjehoidjaid otse vaadata, ilma Wordis mõnda valikut sisse lülitamata.    

Selle artikli eesmärk on aidata teil järjehoidjaid selgelt näha. Harjutamiseks võite valida mõlema viisi.

1. meetod: järjehoidjate sulgude kuvamine

1. Kõigepealt klõpsake lindil vahekaarti „Fail”.
2. Seejärel klõpsake dialoogiboksi "Wordi suvandid" avamiseks nuppu "Valikud".
3. Järgmisena klõpsake vasakpoolses veerus "Täpsemalt".
4. Kerige alla jaotiseni "Kuva dokumendi sisu" ja märkige ruut "Kuva järjehoidjad".
5. Lõpuks klõpsake muudatuse salvestamiseks "OK".

Nüüd on järjehoidjatesse lisatud üksuste ümber nurksulud. Näete, et need sulgud on halli värvi, mis mõnikord pole nii ilmne. Ja võite need segamini ajada tavaliste nurksulgudega.

Seetõttu tahame teile järjehoidjate esiletõstmiseks soovitada makrot, et need paremini esile tõsta.

2. meetod: tõstke esile mitu järjehoidjat

1. Alustuseks vajutage VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
2. Järgmisena klõpsake nuppu "Tavaline" projekt.
3. Seejärel klõpsake menüüribal vahekaarti "Sisesta" ja valige rippmenüüst "Moodul".
4. Ja topeltklõpsake uuel moodulil, et avada selle paremas servas redigeerimisruum.
5. Kleepige sinna järgmine makro:

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. Viimaseks, kuid mitte vähem tähtsaks, klõpsake nuppu "Käivita" või "F5".

Järgmine asi, mida näete, on kõik järjehoidjad roheliselt esile tõstetud, näiteks allpool:

Makro kohal tõstke esile kõik aktiivses dokumendis olevad järjehoidjad. Kui töödeldakse mitut dokumenti, vajate selle asemel seda makrot:

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

Enne selle makro käivitamist peate kõik sihtdokumendid samasse kausta panema. Makro käivitamine avab akna „Sirvi“. Valige lihtsalt kaust, kuhu oma dokumendid salvestate.

Utiliit dokumentide parandamiseks

Kui satute Sõnakahjustus, on suur tõenäosus, et see võib teie arvutist mõne kriitilise teabe kustutada. Kui teil on viidata uusim varukoopia, pole sellest midagi suurt. Kui aga mitte, vajate kohe remonditööriista.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom