MS Word — добавить номер страницы к нескольким перекрестным ссылкам

MS Word — добавить номер страницы к нескольким перекрестным ссылкам

У меня есть большой текстовый документ с множеством перекрестных ссылок на рисунки, таблицы и т. д.

Как добавить номер страницы к этим ссылкам?

Так, например, «См. Таблицу 2» станет «См. Таблицу 2 (стр. 123)».

Возможно ли это? Возможно, с помощью макроса или скрипта VB?

решение1

Я не знаю способа создать единую унифицированную перекрестную ссылку, которая включала бы как метку, так и номер (например, Таблицан, Фигуран, или уравнениен) и также номер страницы — но вы, безусловно, можете сделать это с помощью двух отдельных перекрестных ссылок на один и тот же элемент/подпись:

       

Я потратил пять минут на запись макроса, чтобы сделать «Рисунокн«ссылка и добавление» (страницачисло)”:

Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" (page "
Selection.PasteAndFormat (wdFormatOriginalFormatting)
Selection.TypeText Text:=")"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.MoveLeft Unit:=wdCharacter, Count:=4
Selection.MoveRight Unit:=wdCharacter, Count:=8
Selection.MoveLeft Unit:=wdCharacter, Count:=3
Selection.TypeText Text:="PAGE"
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
Selection.Fields.Update

Просто вставьте свой «Рисунок»н" перекрестная ссылка и запустить выше. Это

  • копирует ссылку, которую вы только что создали,
  • вставки «  (page »,
  • вставляет перекрестную ссылку,
  • вставки « )»,
  • перемещается назад (влево) и выбирает перекрестную ссылку, и
  • редактирует перекрестную ссылку, изменяя REFее на PAGEREF.

Я ожидаю, что это будет работать в равной степени с таблицами и уравнениями, а также (возможно, с некоторыми изменениями) с заголовками разделов.

Связанный контент