Получить номер последнего абзаца в стиле «Заголовок 1» над курсором с помощью VBA в Microsoft Word - PullRequest
Новая
       77

Получить номер последнего абзаца в стиле «Заголовок 1» над курсором с помощью VBA в Microsoft Word

1 голос
/ 26 сентября 2019

Например,

Это абзац заголовка 1

5.1.Это абзац заголовка 2

Это текст.

Когда курсор находится где-то в «Это текст», я хочу получить 5, которое являетсяномер абзаца в стиле Heading1 сверху.

В данный момент я использую 

Dim myField As Field

Set myField = ActiveDocument.Fields.Add(Selection.Range, Type:=wdFieldEmpty, Text:="STYLEREF  ""Heading 1"" \n ")

       If myField.result = index Then
               ....
       End If

Хотя myField.result получает нужное мне число, оно также добавляет его к тексту, где бы ни находился курсор, чего я и не делаю.не хочу

Мне нужно это число, чтобы сравнить его с существующим индексом в моем коде.

Как я могу это сделать?

...