2 modi corretti per modificare il nome di un segnalibro nel documento di Word

Condividi ora:

Nell'articolo seguente, vorremmo fornirti 2 modi corretti per modificare il nome di un segnalibro nel tuo documento Word.

Durante la stesura di un lungo documento Word, i segnalibri e i riferimenti incrociati possono diventare i nostri migliori amici facendoci risparmiare un sacco di tempo per spiegare nuovamente lo stesso punto. Tuttavia, possono verificarsi problemi imprevisti. Ad esempio, se modifichi il nome di un segnalibro e aggiorni i riferimenti incrociati, fallirai sicuramente e finirai con errori di riferimento come il seguente:Errore di riferimento

Il motivo è che quando modifichi il nome del segnalibro, hai cancellato accidentalmente il segnalibro stesso. Ora ti mostreremo 2 metodi per affrontare questo problema.

Metodo 1: modificare manualmente il nome del segnalibro e aggiornare i riferimenti incrociati

  1. Per iniziare, fai clic sulla scheda "Inserisci" e poi su "Aggiungi ai segnalibri" nel gruppo "Collegamenti".Fai clic su "Inserisci"->Fai clic su "Segnalibro"
  2. Successivamente, fai clic per selezionare il segnalibro di destinazione e fai clic su "Vai a".
  3. Vedrai che i testi dei segnalibri sono già selezionati. Fare clic su "Elimina".Scegli Segnalibro->Fai clic su "Vai a"->Fai clic su "Elimina"
  4. Quindi inserisci un nuovo nome per il segnalibro e fai clic su "Aggiungi".
  5. Premere "Alt+ F9" per visualizzare i codici di campo.Premere "Alt+ F9" per visualizzare i codici di campo
  6. In caso di riferimenti incrociati multipli, ti consigliamo di utilizzare la funzione "Trova e sostituisci". Basta premere "Ctrl + H" per richiamare la finestra di dialogo "Trova e sostituisci".
  7. Ora inserisci "REF DWORDR" nella casella di testo "Trova cosa" e "REF DWORDR2" in quella "Sostituisci con". "DWORDR" è il nome del segnalibro originale e "DWORDR2" è quello nuovo.
  8. Quindi fai clic su "Sostituisci tutto".Inserisci i nomi dei segnalibri -> Fai clic su "Sostituisci tutto"
  9. Chiudi la casella "Trova e sostituisci" e premi "Alt + F9" per visualizzare nuovamente i contenuti di riferimento.
  10. Quindi premi "Ctrl + A" e "F9" accanto per aggiornare tutti i campi nel documento.

Quando si sposta il cursore sul riferimento incrociato, è possibile vedere il nuovo nome del segnalibro nella casella dei suggerimenti sullo schermo.L'effetto

Metodo 2: modificare il nome del segnalibro e aggiornare i riferimenti incrociati tramite VBA

  1. Innanzitutto, premi "Alt + F11" per attivare l'editor VBA.
  2. Vai al progetto "Normale" per inserire un nuovo modulo facendo prima clic sulla scheda "Inserisci".
  3. Quindi scegli "Modulo" nel menu a discesa.Fai clic su "Normale"->Fai clic su "Inserisci"->Fai clic su "Modulo"
  4. Fare doppio clic sul modulo appena creato per aprire lo spazio di modifica sul lato destro.
  5. Quindi incolla la seguente macro lì:
Sub ChangeTheBookMarkNameAndUpdateCrossReference()
  Dim strBookMarkName As String
  Dim strNewName As String
  Dim objBookMarkRange As Range
  Dim objField As Field
  Dim strFieldCode As String
 
  '  Rename the bookmark name.
  strBookMarkName = InputBox("Enter the bookmark name which you want to change", "BookMark Name", "For example: DWORDR")
  strNewName = InputBox("Enter the New bookmark Name", "New Bookmark Name", "For example: New text")
 
  With ActiveDocument
    If .Bookmarks.Exists(strBookMarkName) Then
      Set objBookMarkRange = .Bookmarks(strBookMarkName).Range
      .Bookmarks(strBookMarkName).Delete
      .Bookmarks.Add Name:=strNewName, Range:=objBookMarkRange
 
      '  Update the cross-reference
      If .Fields.Count >= 1 Then
        For Each objField In .Fields
          strFieldCode = objField.Code.Text
          If strFieldCode = " REF " & strBookMarkName & " \h " Then
            objField.Code.Text = Replace(strFieldCode, strBookMarkName, strNewName, , 1, vbTextCompare)
            objField.Update
            MsgBox ("Code = " & objField.Code & vbCr & "Result = " & objField.Result & vbCr)
          End If 
        Next objField 
      End If
    Else
      MsgBox ("The Bookmark: " & strBookMarkName & " is not founded.")
    End If
  End With

  Set objBookMarkRange = Nothing
End Sub
  1. Fare clic su "Esegui" o premere "F5".Incolla codici-> Fai clic su "Esegui"
  2. Ora inserisci il nome del segnalibro originale nella prima casella che si apre e fai clic su "OK".Inserisci il nome originale->Fai clic su "OK"
  3. Immettere il nuovo nome sul secondo e fare clic su "OK".Inserisci il nuovo nome del segnalibro-> Fai clic su "OK"

Infine, ci sarà una casella che mostra il risultato.Casella che mostra il risultato

Prenditi cura dei documenti di Word

Il costo di a Parola corrotta documento non si limita a sconcertanti perdite di affari, ma rende anche le persone emotivamente sconvolte. Pertanto è estremamente necessario adottare misure preventive per aggirare gli sfortunati come il backup dei documenti.

Introduzione dell'autore:

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

Condividi ora:

I commenti sono chiusi.