Добрый день!
Помогите плз с решением такой задачи:
имеется документ, содержащий определённые коды полей. Эти коды я должен заменять на соответствующие значения из txt файла. Эту задачу я победил для основной области документа. Не могу победить до конца задачу для "сносок".

Вот код:

Public Sub snoska_search(targ As String, rep As String)
With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:=ActiveDocument.Content.End)
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Footnotes.Add Range:=Selection.Range ', Reference:=""
'загвоздка как раз здесь, как я понимаю. При обращении к этой функции у меня каждый раз генерится строчка в сносках, как мне просто переместить выделение в сноски и не добавлять туда строку?
End With
With Selection.Find
.ClearFormatting
.Text = targ
.Replacement.Text = rep
.Forward = True
.Wrap = wdFindContinue
.Execute
End With

With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceAll
End With
End Sub

Заранее спасибо!

проблема решена. спасибо за внимание :)