2 modi intelligenti per mostrare tutti i segnalibri nel tuo documento di Word

In questo articolo, vorremmo fornirti 2 modi intelligenti per mostrare tutti i segnalibri nel tuo documento Word.

Ogni tanto inseriamo un segnalibro per una selezione di testo che vogliamo rivedere in seguito. Ma la natura del segnalibro in Word rende difficile l'identificazione. In altre parole, non possiamo visualizzare direttamente i segnalibri senza attivare alcune opzioni in Word.    

Questo articolo è dedicato ad aiutarti a vedere i segnalibri in modo chiaro. Puoi scegliere uno dei due modi per esercitarti.

Metodo 1: mostra le parentesi dei segnalibri

1. Innanzitutto, fai clic sulla scheda "File" nella barra multifunzione.
2. Quindi fare clic su "Opzioni" per aprire la finestra di dialogo "Opzioni di Word".
3. Quindi fai clic su "Avanzate" nella colonna di sinistra.
4. Scorri verso il basso fino alla sezione "Mostra contenuto documento" e seleziona la casella "Mostra segnalibri".
5. Infine, fare clic su "OK" per salvare la modifica.

Ora ci sono parentesi quadre attorno agli elementi con segnalibro. Puoi vedere che queste parentesi sono di colore grigio che a volte non è così evidente. E potresti confonderli con normali parentesi quadre.

Pertanto, vogliamo consigliarti una macro per evidenziare i segnalibri in modo da distinguerli in modo migliore.

Metodo 2: evidenziare più segnalibri

1. Per cominciare, premi "Alt + F11" per richiamare l'editor VBA.
2. Quindi fai clic sul progetto "Normale".
3. Quindi fare clic sulla scheda "Inserisci" sulla barra dei menu e scegliere "Modulo" nel menu a discesa.
4. E fai doppio clic sul nuovo modulo per aprire il suo spazio di modifica sul lato destro.
5. Incolla la seguente macro qui:

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. Ultimo ma non meno importante, fai clic su "Esegui" o premi "F5".

La prossima cosa che vedi è che tutti i segnalibri sono evidenziati in verde, come di seguito:

Sopra la macro evidenzia tutti i segnalibri nel documento attivo corrente. Nel caso in cui ci siano diversi documenti da elaborare, allora hai bisogno di questa macro:

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

Prima di eseguire questa macro, è necessario inserire tutti i documenti di destinazione nella stessa cartella. L'esecuzione della macro aprirà la finestra "Sfoglia". Seleziona la cartella in cui sono archiviati i tuoi documenti.

Utility per riparare i documenti

Se ti imbatti in Danno di parole, c'è un'alta possibilità che possa cancellare alcune informazioni critiche dal tuo computer. Non può essere un grosso problema se hai un backup più recente a cui fare riferimento. Tuttavia, in caso contrario, avrai immediatamente bisogno di uno strumento di riparazione.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare xlsx and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com