Allolevas artiklis soovime teile pakkuda 2 õiget viisi järjehoidja nime muutmiseks oma Wordi dokumendis.
Pika Wordi dokumendi koostamisel võivad järjehoidjad ja ristviited saada meie parimaks sõbraks, säästes meile palju aega sama punkti uuesti selgitamisel. Siiski võib tekkida ootamatu probleem. Näiteks kui muudate järjehoidja nime ja värskendate ristviiteid, siis kindlasti ebaõnnestute ja lõpetate viitevigade, nagu näiteks allpool:
Põhjus on selles, et järjehoidja nime muutmise ajal kustutasite kogemata järjehoidja enda. Nüüd näitame teile 2 meetodit selle probleemi lahendamiseks.
1. meetod: muutke järjehoidja nime ja värskendage ristviiteid käsitsi
- Alustamiseks klõpsake vahekaarti „Lisa“ ja seejärel jaotises „Lingid“ nuppu „Järjehoidja“.

- Järgmisena klõpsake sihtmärgi valimiseks ja klõpsake nuppu „Mine”.
- Näete, et järjehoidjate tekstid on selleks ajaks valitud. Klõpsake nuppu "Kustuta".

- Seejärel sisestage uus järjehoidja nimi ja klõpsake nuppu "Lisa".
- Väljakoodide kuvamiseks vajutage "Alt+ F9".
- Kui teil on mitu ristviidet, soovitame kasutada funktsiooni „Otsi ja asenda”. Dialoogiboksi "Otsi ja asenda" avamiseks vajutage lihtsalt klahvikombinatsiooni "Ctrl + H".
- Nüüd sisestage tekstikasti "Find what" "REF DWORDR" ja "Asenda millega" "REF DWORDR2". "DWORDR" on järjehoidja algne nimi ja "DWORDR2" on uus.
- Järgmisena klõpsake nuppu "Asenda kõik".
- Viite sisu uuesti kuvamiseks sulgege kast "Otsi ja asenda" ja vajutage "Alt + F9".
- Seejärel vajutage kõigi dokumendi väljade värskendamiseks kõrval klahve "Ctrl+A" ja "F9".
Kui liigutate kursorit ristviite kohale, näete ekraani vihjekastis uut järjehoidja nime.
2. meetod: muutke järjehoidja nime ja värskendage ristviiteid VBA kaudu
- Esiteks vajutage VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
- Uue mooduli sisestamiseks minge projekti "Tavaline", klõpsates esmalt vahekaarti "Lisa".
- Seejärel valige selle rippmenüüst "Moodul".
- Topeltklõpsake vastloodud moodulil, et avada parempoolses redigeerimisruum.
- Järgmisena kleepige sinna järgmine 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
- Klõpsake nuppu "Käivita" või "F5".
- Nüüd sisestage esimesele avanevale kastile algne järjehoidja nimi ja klõpsake "OK".
- Sisestage teisele uus nimi ja klõpsake "OK".
Lõpuks on kast, mis näitab teile tulemust.
Vaadake Wordi dokumente
A rikutud Word dokument ei piirdu hämmastava ärikahjumiga, vaid muudab inimesed ka emotsionaalselt häiritud. Seetõttu on äärmiselt vajalik võtta ennetavaid meetmeid, et ebaõnnetest mööda hiilida, näiteks dokumentide varundamine.
Autori sissejuhatus:
Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xlsx remont ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom







