2 pametna načina da prikažete sve oznake u vašem Word dokumentu

U ovom članku želimo vam pružiti 2 pametna načina da prikažete sve oznake u vašem Word dokumentu.

S vremena na vrijeme ubacimo marker za odabir teksta koji želimo kasnije ponovo posjetiti. Ali priroda obeleživača u Word-u čini da ga je teško identifikovati. Drugim rečima, ne možemo direktno da pregledamo obeleživače bez uključivanja nekih opcija u Word-u.    

Ovaj članak je posvećen tome da vam pomogne da vidite oznake na jasan način. Možete odabrati bilo koji način vježbanja.

Metoda 1: Prikaži zagrade obeleživača

1. Prvo i najvažnije, kliknite na karticu "Datoteka" na vrpci.
2. Zatim kliknite na "Opcije" da otvorite dijaloški okvir "Opcije riječi".
3. Zatim kliknite na "Napredno" u lijevoj koloni.
4. Pomaknite se prema dolje do odjeljka "Prikaži sadržaj dokumenta" i označite okvir "Prikaži oznake".
5. Konačno, kliknite na “OK” da biste spremili izmjenu.

Sada postoje uglaste zagrade oko označenih stavki. Vidite da su ove zagrade u sivoj boji što ponekad nije toliko uočljivo. I možete ih pobrkati sa normalnim uglastim zagradama.

Stoga želimo da vam preporučimo makro za isticanje obeleživača kako biste ih na bolji način istakli.

Metoda 2: Istaknite više oznaka

1. Za početak, pritisnite “Alt+ F11” da biste pozvali VBA editor.
2. Zatim kliknite na "Normalni" projekat.
3. Zatim kliknite na karticu "Insert" na traci menija i izaberite "Module" na padajućem meniju.
4. I dvaput kliknite na novi modul da otvorite njegov prostor za uređivanje na desnoj strani.
5. Tamo zalijepite sljedeći 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. Na kraju, ali ne i najmanje važno, kliknite na “Run” ili pritisnite “F5”.

Sljedeće što vidite je da su sve oznake označene zelenom bojom, kao što je dolje:

Iznad makroa označite sve oznake u trenutno aktivnom dokumentu. U slučaju da postoji nekoliko dokumenata za obradu, tada vam je potreban ovaj makro:

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

Prije pokretanja ovog makroa, morate sve ciljne dokumente staviti u istu mapu. Pokretanje makroa će pokrenuti prozor "Pregledaj". Samo odaberite mapu u kojoj čuvate svoje dokumente.

Uslužni program za popravku dokumenata

Ako naiđete na Oštećenje riječi, postoji velika mogućnost da može izbrisati neke kritične informacije sa vašeg računara. Ne može biti velika stvar ako imate najnoviju rezervnu kopiju koju možete uputiti. Međutim, ako ne, odmah će vam trebati alat za popravku.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com