У меня есть большой текстовый документ с множеством перекрестных ссылок на рисунки, таблицы и т. д.
Как добавить номер страницы к этим ссылкам?
Так, например, «См. Таблицу 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
.
Я ожидаю, что это будет работать в равной степени с таблицами и уравнениями, а также (возможно, с некоторыми изменениями) с заголовками разделов.