V následujícím článku bychom vám chtěli poskytnout 2 správné způsoby, jak změnit název záložky v dokumentu Word.
Při přípravě dlouhého dokumentu Wordu se záložky a křížové odkazy mohou stát naším nejlepším přítelem, protože nám ušetří spoustu času při opakování stejného bodu. Může však dojít k neočekávanému problému. Například pokud změníte název záložky a aktualizujete křížové odkazy, určitě selžete a skončíte s referenčními chybami, například níže:
Důvodem je to, že při změně názvu záložky jste omylem smazali samotnou záložku. Nyní vám ukážeme 2 metody řešení tohoto problému.
Metoda 1: Ruční změna názvu záložky a ruční aktualizace křížových odkazů
- Chcete-li začít, klikněte na kartu „Vložit“ a poté ve skupině „Odkazy“ klikněte na „Záložka“.
- Dále kliknutím vyberte cílovou záložku a klikněte na tlačítko „Přejít na“.
- Do té doby uvidíte, že texty záložek jsou ve výběru. Klikněte na „Odstranit“.
- Poté zadejte nový název záložky a klikněte na „Přidat“.
- Stisknutím kláves „Alt + F9“ zobrazíte kódy polí.
- Pokud máte více křížových odkazů, doporučujeme vám použít funkci „Najít a nahradit“. Jednoduše stiskněte „Ctrl + H“, čímž vyvoláte dialogové okno „Najít a nahradit“.
- Nyní zadejte text „REF DWORDR“ do textového pole „Najít co“ a „REF DWORDR2“ do pole „Nahradit“. „DWORDR“ je původní název záložky a „DWORDR2“ je nový.
- Dále klikněte na „Nahradit vše“.
- Zavřete pole „Najít a nahradit“ a stiskněte „Alt + F9“, abyste znovu zobrazili referenční obsah.
- Poté stiskněte „Ctrl + A“ a „F9“ vedle a aktualizujte všechna pole v dokumentu.
Když přesunete kurzor nad křížový odkaz, uvidíte nový název záložky v poli tipu na obrazovce.
Metoda 2: Změňte název záložky a aktualizujte křížové odkazy pomocí VBA
- Nejprve stisknutím klávesy „Alt + F11“ spusťte editor VBA.
- Přejděte do projektu „Normální“ a vložte nový modul kliknutím na kartu „Vložit“.
- Poté v rozevírací nabídce vyberte možnost „Modul“.
- Poklepáním na nově vytvořený modul otevřete editační prostor na pravé straně.
- Dále tam vložte následující makro:
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
- Klikněte na „Spustit“ nebo stiskněte „F5“.
- Nyní zadejte název původní záložky do prvního vyskakovacího pole a klikněte na „OK“.
- Do druhého zadejte nový název a klikněte na „OK“.
Nakonec bude pole s výsledkem.
Postarejte se o dokumenty Word
Náklady na a poškozené slovo dokument se neomezuje na ohromující obchodní ztrátu, ale také lidi emocionálně rozrušuje. Proto je nesmírně nutné přijmout preventivní opatření k obejití smůly, jako je zálohování dokumentů.
Úvod autora:
Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xlsx oprava a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com