1 Тема от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

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

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

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

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

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

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

2 Ответ от yshindin

  • yshindin
  • генерал-полковник
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 12.05.2012
  • Сообщений: 447
  • Поблагодарили: 171
  • За сообщение: 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

Сайтyshindin

3 Ответ от Aleks

  • Aleks
  • майор
  • Неактивен
  • Зарегистрирован: 19.05.2014
  • Сообщений: 69
  • Поблагодарили: 21

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

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

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