2 slimme manieren om alle bladwijzers in uw Word-document weer te geven

In dit artikel willen we u 2 slimme manieren bieden om alle bladwijzers in uw Word-document weer te geven.

Af en toe voegen we een bladwijzer in voor een selectie tekst die we later opnieuw willen bezoeken. Maar de aard van een bladwijzer in Word maakt het moeilijk om te identificeren. Met andere woorden, we kunnen bladwijzers niet rechtstreeks bekijken zonder een aantal opties in Word om te schakelen.    

Dit artikel is bedoeld om u te helpen bladwijzers op een duidelijke manier te zien. Je kunt beide manieren kiezen om te oefenen.

Methode 1: bladwijzers weergeven

1. Klik allereerst op het tabblad "Bestand" in het lint.
2. Klik vervolgens op "Opties" om het dialoogvenster "Opties voor Word" te openen.
3. Klik vervolgens op "Geavanceerd" in de linkerkolom.
4. Scrol omlaag naar het gedeelte "Documentinhoud weergeven" en vink het vakje "Bladwijzers weergeven" aan.
5. Klik ten slotte op "OK" om de wijziging op te slaan.

Nu staan ​​er vierkante haken rond items met een bladwijzer. Je kunt zien dat deze haakjes een grijze kleur hebben, wat soms niet zo duidelijk is. En u kunt ze verwarren met normale vierkante haken.

Daarom willen we u een macro aanbevelen om bladwijzers te markeren om ze beter te laten opvallen.

Methode 2: markeer meerdere bladwijzers

1. Druk om te beginnen op "Alt + F11" om de VBA-editor op te roepen.
2. Klik vervolgens op “Normaal” project.
3. Klik vervolgens op het tabblad "Invoegen" op de menubalk en kies "Module" in het vervolgkeuzemenu.
4. En dubbelklik op de nieuwe module om de bewerkingsruimte aan de rechterkant te openen.
5. Plak daar de volgende macro:

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. Als laatste, maar niet de minste, klik op "Uitvoeren" of druk op "F5".

Het volgende dat u ziet, is dat alle bladwijzers groen zijn gemarkeerd, zoals hieronder:

Markeer boven de macro alle bladwijzers in het huidige actieve document. Als er meerdere documenten moeten worden verwerkt, heeft u in plaats daarvan deze macro nodig:

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

Voordat u deze macro uitvoert, moet u alle documenten die u wilt opslaan in dezelfde map plaatsen. Het uitvoeren van de macro zal het venster "Bladeren" openen. Selecteer eenvoudig de map waarin uw documenten zijn opgeslagen.

Hulpprogramma om documenten te herstellen

Als je tegenkomt Woordschade, is de kans groot dat het bepaalde kritieke informatie van uw computer wist. Het kan geen probleem zijn als u een laatste back-up heeft om door te verwijzen. Als dit niet het geval is, heeft u onmiddellijk een reparatietool nodig.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie xlsx en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com