I artikkelen nedenfor ønsker vi å gi deg 2 riktige måter å endre et bokmerkenavn i Word-dokumentet.
Når du utarbeider et langt Word-dokument, kan bokmerker og kryssreferanser bli vår beste venn ved å spare oss for mye tid på å forklare det samme punktet på nytt. Uventede problemer kan imidlertid oppstå. For eksempel, hvis du endrer et bokmerkenavn og oppdaterer kryssreferansene, vil du sikkert mislykkes og avslutte med referansefeil som nedenfor:
Årsaken er at når du endrer bokmerkenavnet, slettet du ved et uhell selve bokmerket. Nå vil vi vise deg 2 metoder for å løse dette problemet.
Metode 1: Endre bokmerkenavnet og oppdater kryssreferanser manuelt
- For å starte, klikk på "Sett inn"-fanen, og klikk deretter på "Bokmerke" i "Lenker"-gruppen.

- Klikk deretter for å velge målbokmerket og klikk på «Gå til».
- Du vil se at bokmerketekstene er i utvalg innen da. Klikk på "Slett".

- Skriv deretter inn et nytt bokmerkenavn og klikk "Legg til".
- Trykk "Alt+ F9" for å vise feltkodene.
- Hvis du har flere kryssreferanser, anbefaler vi at du bruker "Finn og erstatt"-funksjonen. Bare trykk "Ctrl + H" for å starte dialogboksen "Finn og erstatt".
- Skriv nå inn "REF DWORDR" i tekstboksen "Finn hva" og "REF DWORDR2" i "Erstatt med". "DWORDR" er det originale bokmerkenavnet og "DWORDR2" er det nye.
- Klikk deretter på "Erstatt alle".
- Lukk "Finn og erstatt"-boksen og trykk "Alt + F9" for å vise referanseinnholdet igjen.
- Trykk deretter "Ctrl+ A" og "F9" ved siden av for å oppdatere alle feltene i dokumentet.
Når du flytter markøren over kryssreferansen, kan du se det nye bokmerkenavnet på skjermtipsboksen.
Metode 2: Endre bokmerkenavnet og oppdater kryssreferanser via VBA
- Først, trykk "Alt + F11" for å utløse VBA-editor.
- Gå til "Normal"-prosjektet for å sette inn en ny modul ved å klikke på "Sett inn"-fanen først.
- Velg deretter "Modul" på rullegardinmenyen.
- Dobbeltklikk på den nyopprettede modulen for å åpne redigeringsområdet på høyre side.
- Deretter limer du inn følgende makro der:
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
- Klikk "Kjør" eller trykk "F5".
- Skriv nå inn det originale bokmerkenavnet i den første boksen som dukker opp og klikk "OK".
- Skriv inn det nye navnet på den andre og klikk "OK".
Til slutt vil det være en boks som viser deg resultatet.
Ta vare på Word-dokumenter
Kostnaden for a ødelagt Word dokumentet er ikke begrenset til svimlende forretningstap, men gjør også folk følelsesmessig fortvilet. Derfor er det ekstremt nødvendig å ta forebyggende tiltak for å omgå de uheldige, for eksempel sikkerhetskopiering av dokumenter.
Forfatterintroduksjon:
Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xlsx reparasjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med







