2 правилни начина за промяна на име на отметка във вашия документ на Word

Споделете сега:

В долната статия бихме искали да ви предоставим 2 правилни начина за промяна на името на отметката във вашия документ на Word.

Докато съставяме дълъг документ на Word, отметките и препратките могат да се превърнат в най-добрия ни приятел, като ни спестят много време за повторно обяснение на същата точка. Въпреки това може да възникне неочакван проблем. Например, ако промените името на отметката и актуализирате кръстосаните препратки, със сигурност ще се провалите и ще завършите с референтни грешки като по-долу:Референтна грешка

Причината е, че когато промените името на отметката, случайно сте изтрили самата отметка. Сега ще ви покажем 2 метода за решаване на този проблем.

Метод 1: Променете името на отметката и ръчно актуализирайте кръстосани препратки

  1. За да започнете, щракнете върху раздела „Вмъкване“, след което щракнете върху „Отметки“ в групата „Връзки“.Щракнете върху "Вмъкване" -> Щракнете върху "Отметка"
  2. След това щракнете, за да изберете целевия отметка, и щракнете върху „Отиди на“.
  3. Дотогава ще видите текстовете на отметките в избор. Щракнете върху „Изтриване“.Изберете Bookmark-> Щракнете върху "Go To" -> щракнете върху "Delete"
  4. След това въведете ново име на отметка и щракнете върху „Добавяне“.
  5. Натиснете “Alt + F9”, за да покажете кодовете на полетата.Натиснете "Alt + F9", за да покажете кодовете на полетата
  6. В случай, че имате множество кръстосани препратки, препоръчваме ви да използвате функцията „Намиране и замяна“. Просто натиснете „Ctrl + H“, за да извикате диалоговия прозорец „Намиране и замяна“.
  7. Сега въведете „REF DWORDR“ в текстовото поле „Find what“ и „REF DWORDR2“ в „Replace with“. „DWORDR“ е оригиналното име на отметката, а „DWORDR2“ е новото.
  8. След това кликнете върху „Замяна на всички“.Въведете имена на отметки -> Щракнете върху „Замяна на всички“
  9. Затворете полето „Намери и замени“ и натиснете „Alt + F9“, за да се покаже отново референтното съдържание.
  10. След това натиснете „Ctrl + A“ и „F9“ до да актуализирате всички полета в документа.

Когато преместите курсора върху кръстосаната препратка, можете да видите новото име на отметка в полето за подсказка на екрана.Ефектът

Метод 2: Променете името на отметката и актуализирайте кръстосани препратки чрез VBA

  1. Първо, натиснете „Alt + F11“, за да задействате редактора на VBA.
  2. Отидете на проекта „Нормално“, за да вмъкнете нов модул, като първо щракнете върху раздела „Вмъкване“.
  3. След това изберете „Модул“ от падащото меню.Щракнете върху "Нормално" -> Щракнете върху "Вмъкване" -> Щракнете върху "Модул"
  4. Щракнете двукратно върху новосъздадения модул, за да отворите пространството за редактиране от дясната страна.
  5. След това поставете следния макрос там:
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
  1. Щракнете върху „Run“ или натиснете „F5“.Поставяне на кодове-> Щракнете върху "Изпълни"
  2. Сега въведете оригиналното име на отметката в първото изскачащо поле и щракнете върху „OK“.Въведете оригиналното име-> Щракнете върху „OK“
  3. Въведете новото име на втория и щракнете върху „OK“.Въведете ново име на отметка-> Щракнете върху „OK“

И накрая, ще има поле, показващо резултата.Кутия, показваща резултата

Погрижете се за Word документи

Цената на a повредена дума документът не се ограничава до зашеметяваща бизнес загуба, но също така кара хората емоционално да се безпокоят. Поради това е изключително необходимо да се вземат превантивни мерки за заобикаляне на нещастниците, като архивиране на документи.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx ремонт и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.