1

Тема: Узнать номер последнего созданного элемента последовательности

Здравствуйте!

У меня есть задача написать макрос, который будет создавать заготовку под вставку рисунка и вставлять в текст ссылку на рисунок.

В заготовке под вставку есть абзац с номером рисунка. рисунки нумеруются так:

Selection.TypeText Text:="SEQ Рис. \* ARABIC"

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

2

Re: Узнать номер последнего созданного элемента последовательности

Aleks пишет:

Можете подсказать как узнать этот номер? Другое решение тоже подойдет ))

Попробуйте другой вариант (добавленный номер будет в переменной snr):

Sub getseqnumber()
Dim snr As Long
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
       "SEQ Рис."
Selection.MoveLeft unit:=wdCharacter, Extend:=wdExtend
snr = CLng(Selection.Range.Fields(1).Result)
Selection.MoveRight unit:=wdCharacter, Extend:=wdMove

End Sub

3

Re: Узнать номер последнего созданного элемента последовательности

Спасибо!
Фактически мне была нужна только одна строчка ))

snr = CLng(Selection.Range.Fields(1).Result)