I den bølgende artikel vil vi gerne give dig 2 korrekte måder at ændre et bogmærke navn i dit Word-dokument.
Under udarbejdelsen af et langt Word-dokument kan bogmærker og krydsreferencer blive vores bedste ven ved at spare os meget tid på at forklare det samme punkt. Der kan dog opstå uventet problem. For eksempel, hvis du ændrer et bogmærkenavn og opdaterer krydsreferencer, vil du helt sikkert mislykkes og ende med referencefejl som nedenfor:
Årsagen er, at den tid, du ændrer bogmærkenavnet, ved et uheld slettede bogmærket selv. Nu viser vi dig to metoder til at løse dette problem.
Metode 1: Skift navn på bogmærke og opdater krydsreferencer manuelt
- For at starte skal du klikke på fanen "Indsæt" og derefter klikke på "Bogmærke" i gruppen "Links".
- Klik derefter for at vælge det ønskede bogmærke, og klik på "Gå til".
- Du vil se, at bogmærketeksterne er i valg inden da. Klik på "Slet".
- Indtast derefter et nyt bogmærkenavn, og klik på “Tilføj”.
- Tryk på “Alt + F9” for at få vist feltkoderne.
- Hvis du har flere krydsreferencer, anbefaler vi, at du bruger funktionen "Find og erstat". Bare tryk på "Ctrl + H" for at påkalde dialogboksen "Find og erstat".
- Indtast nu "REF DWORDR" i "Find hvad" tekstfeltet og "REF DWORDR2" i "Erstat med" en. “DWORDR” er det oprindelige bogmærkenavn, og “DWORDR2” er det nye.
- Klik derefter på "Erstat alle".
- Luk feltet "Find og erstat" og tryk på "Alt + F9" for at vise referenceindholdet igen.
- Tryk derefter på "Ctrl + A" og "F9" ved siden af for at opdatere alle felter i dokumentet.
Når du flytter markøren hen over krydsreferencen, kan du se det nye bogmærkenavn på skærmbilledet.
Metode 2: Skift bogmærke navn og opdater krydsreferencer via VBA
- For det første skal du trykke på “Alt + F11” for at udløse VBA-editor.
- Gå til “Normal” -projektet for at indsætte et nyt modul ved først at klikke på “Indsæt” -fanen.
- Vælg derefter “Modul” i rullemenuen.
- Dobbeltklik på det nyoprettede modul for at åbne redigeringsområdet på højre side.
- Indsæt derefter 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
- Klik på "Kør" eller tryk på "F5".
- Indtast nu det originale bogmærke navn i det første felt, der dukker op, og klik på “OK”.
- Indtast det nye navn på det andet, og klik på “OK”.
Endelig vil der være en boks, der viser dig resultatet.
Pas på Word-dokumenter
Omkostningerne ved a ødelagt Word dokumentet er ikke begrænset til svimlende forretningstab, men gør også folk følelsesmæssigt fortvivlede. Således er det yderst nødvendigt at tage forebyggende foranstaltninger for at omgå de uheldige som f.eks. Sikkerhedskopiering af dokumenter.
Forfatter Introduktion:
Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xlsx reparation og pdf produkter til reparation af software. For mere information besøg www.datanumen.com