В долната статия бихме искали да ви предоставим 2 правилни начина за промяна на името на отметката във вашия документ на Word.
Докато съставяме дълъг документ на Word, отметките и препратките могат да се превърнат в най-добрия ни приятел, като ни спестят много време за повторно обяснение на същата точка. Въпреки това може да възникне неочакван проблем. Например, ако промените името на отметката и актуализирате кръстосаните препратки, със сигурност ще се провалите и ще завършите с референтни грешки като по-долу:
Причината е, че когато промените името на отметката, случайно сте изтрили самата отметка. Сега ще ви покажем 2 метода за решаване на този проблем.
Метод 1: Променете името на отметката и ръчно актуализирайте кръстосани препратки
- За да започнете, щракнете върху раздела „Вмъкване“, след което щракнете върху „Отметки“ в групата „Връзки“.

- След това щракнете, за да изберете целевия отметка, и щракнете върху „Отиди на“.
- Дотогава ще видите текстовете на отметките в избор. Щракнете върху „Изтриване“.

- След това въведете ново име на отметка и щракнете върху „Добавяне“.
- Натиснете “Alt + F9”, за да покажете кодовете на полетата.
- В случай, че имате множество кръстосани препратки, препоръчваме ви да използвате функцията „Намиране и замяна“. Просто натиснете „Ctrl + H“, за да извикате диалоговия прозорец „Намиране и замяна“.
- Сега въведете „REF DWORDR“ в текстовото поле „Find what“ и „REF DWORDR2“ в „Replace with“. „DWORDR“ е оригиналното име на отметката, а „DWORDR2“ е новото.
- След това кликнете върху „Замяна на всички“.
- Затворете полето „Намери и замени“ и натиснете „Alt + F9“, за да се покаже отново референтното съдържание.
- След това натиснете „Ctrl + A“ и „F9“ до да актуализирате всички полета в документа.
Когато преместите курсора върху кръстосаната препратка, можете да видите новото име на отметка в полето за подсказка на екрана.
Метод 2: Променете името на отметката и актуализирайте кръстосани препратки чрез VBA
- Първо, натиснете „Alt + F11“, за да задействате редактора на VBA.
- Отидете на проекта „Нормално“, за да вмъкнете нов модул, като първо щракнете върху раздела „Вмъкване“.
- След това изберете „Модул“ от падащото меню.
- Щракнете двукратно върху новосъздадения модул, за да отворите пространството за редактиране от дясната страна.
- След това поставете следния макрос там:
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
- Щракнете върху „Run“ или натиснете „F5“.
- Сега въведете оригиналното име на отметката в първото изскачащо поле и щракнете върху „OK“.
- Въведете новото име на втория и щракнете върху „OK“.
И накрая, ще има поле, показващо резултата.
Погрижете се за Word документи
Цената на a повредена дума документът не се ограничава до зашеметяваща бизнес загуба, но също така кара хората емоционално да се безпокоят. Поради това е изключително необходимо да се вземат превантивни мерки за заобикаляне на нещастниците, като архивиране на документи.
Въведение на автора:
Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx ремонт и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com







