как же узнать реальное начало поля в Ворде

[Ципихович Эндрю]

пробую так:

Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.Start
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.End
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.Start
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.End
 
            ActiveDocument.Fields(Обрабатываемое_поле_номер).Update
 
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.Start
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.End
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.Start
            Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.End

До обновления и после обновления поля в интермедии значения одни и те же
????
Пробовал так:
Dim oRng As Range
Set oRng = ThisDocument.Range.GoTo(wdGoToField s, wdGoToNext, , "3")
MsgBox oRng.Start

Посчитало как 0
???

[Пименов Александр]

Попробуй такой код:
Sub InfoFild()
Dim fld As Field, rng As Range
If ActiveDocument.Fields.Count = 0 Then
MsgBox "Нет полей", vbCritical
Exit Sub
End If
Set fld = ActiveDocument.Fields(InputBox("Вве дите номер поля от 1 до " & ActiveDocument.Fields.Count))
fld.Select
Set rng = Selection.Range
MsgBox "Начало поля: " & rng.Start & Chr(13) & "Конец поля: " & rng.End
End Sub
У меня работает......

[Вождь]

Область поля содержит: Chr(19) + код + Chr(21) + результат
Начало поля: Field.Code.Start - 1
Конец поля: Field.Result.End

[Ципихович Эндрю]

Сообщение от Пименов Александр

У меня работает......

никто не сомневался, мне не нужно с выделением, пример Вождя подходит тем, что он без выделения, но я пробовал так

Debug.Print Field(Обрабатываемое_поле_номер).Code.Start - 1
            Debug.Print Field(Обрабатываемое_поле_номер).Result.End
и так
            Debug.Print Fields(Обрабатываемое_поле_номер).Code.Start - 1
            Debug.Print Fields(Обрабатываемое_поле_номер).Result.End

не жуётся
??

[Ципихович Эндрю]

спасибо, так идёт код

 Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.Start - 1
    Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.End

    ActiveDocument.Fields(Обрабатываемое_поле_номер).Update

    Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Code.Start - 1
    Debug.Print ActiveDocument.Fields(Обрабатываемое_поле_номер).Result.End

Правильно ли считает проверю, если нет сообщу