Ako je možné v dokumente Word hromadne zmeniť viac mien záložiek

V dnešnom článku vám poskytneme spôsob hromadnej zmeny viacerých názvov záložiek v dokumente Word.

Zmena názvu záložky v dokumente Word je trochu zložitá. A v jednom z našich predchádzajúcich článkov sme vám vysvetlili spôsoby. Podrobné informácie nájdete na tomto odkaze: 2 správne spôsoby zmeny názvu záložky v dokumente Word

Tentokrát vám chceme ponúknuť spôsob hromadnej zmeny viacerých názvov záložiek v dokumente.

Dávková zmena viacerých názvov záložiek pomocou VBA

1. V prvom radeost, vložte na koniec svojej tabuľky s dvoma stĺpcami viac riadkov tarzískať dokument. V tabuľke zadajte do prvého stĺpca pôvodné názvy záložiek. A do druhej zadajte nové mená. Nezabudnite tiež umiestniť kurzor do tabuľky. Tu je príklad:
2. Potom vyvolajte editor VBA v programe Word stlačením kombinácie klávesov „Alt + F11“.
3. Ďalej v editore kliknite na „Normálny“ v ľavom stĺpci.
4. Na paneli s ponukami vyššie kliknite na kartu „Vložiť“.
5. V rozbaľovacej ponuke „Vložiť“ vyberte „Modul“.
6. Dvojitým kliknutím otvorte nový modul a potom vložte nasledujúce kódy do oblasti kódovania:

Sub BatchChangeTheBookMarkNameAndUpdateCrossReference () Dim nCurrentTableIndex As Integer Dim objTable As Table Dim nRowNumber As Integer Dim objOriBookMarkList As Cell Dim objNewBookMarkListR As Range Dim objNewBookMarkListR As Range Dim strBook DimR AsSt String As String String As ActiveDocument.Range (0, Selection.Tables (1) .Range.End) .Tables.Count Set objTable = ActiveDocument.Tables (nCurrentTableIndex) nRowNumber = 1 Pre každý objOriBookMarkList In objTable.Columns (1). Cells Set objOriBookMarkListR = objOriBookMark Rozsah objOriBookMarkListR.MoveEnd Jednotka: = wdCharacter, Počet: = - 1 Nastaviť objNewBookMarkListR = objTable.Cell (nRowNumber, 2). Rozsah objNewBookMarkListR.MoveEnd Jednotka: = wdCharacter, Počet: = - 1 Ak objOriBookMarkListR.Text <> = objOriBookMarkListR.Text strNewName = objNewBookMarkListR.Text Koniec, ak s ActiveDocument, ak .Bookmarks.Exists (strBookMarkName) Th sk Nastaviť objBookMarkRange = .Bookmarks (strBookMarkName). Range. Bookmarks (strBookMarkName). Odstrániť .Bookmarks.Add Name: = strNewName, Range: = objBookMarkRange 'Aktualizovať krížový odkaz Ak .Fields.Count> = 1 Potom pre každý objField In .Fields strFieldCode = objField.Code.Text Ak strFieldCode = "REF" & strBookMarkName & "\ h" Potom objField.Code.Text = Nahradiť (strFieldCode, strBookMarkName, strNewName,, 1, vbTextCompare) objField.Update Koniec Ak Ďalej objField If Else MsgBox ("The bookmark:" & strBookMarkName & "is not found.") End If End With Set objBookMarkRange = Nothing nRowNumber = nRowNumber + 1 Next MsgBox ("Všetky záložky v zozname tabuliek boli premenované.") End Sub

7. V neposlednom rade spustíte kódy kliknutím na tlačidlo „Spustiť“ alebo na kláves „F5“.

Po dokončení procesu sa zobrazí okno so správou, napríklad nižšie:

Môžete tiež kliknúť na kartu „Vložiť“ a potom na položku „Záložka“, čím sa spustí dialógové okno „Záložka“. Teraz vidíte, že názvy záložiek boli zmenené.

Riešenie slovných chýb

Pretože Word nie je imúnny voči chybám, je potrebné podniknúť správne kroky Korupcia slova stane sa. Most času, môžete získať dáta späť výberom zdatného nástroja na opravu.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S