Заменить текст\Удалить строку в VB6 - VB

Формулировка задачи:

Я - начинающий... Есть код:
Public Sub PrintPotreb()    
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    objWord.Documents.Add App.Path & "\Samples\DogLPH1Z.dot"
    f = SetFieldsStr("@Заменяемый_текст@", "")
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
End Sub
 
 
Function SetFieldsStr(Text1 As String, Text2 As String)
           With objWord.Selection.Find
             .ClearFormatting
             .Forward = True
             .Wrap = wdFindContinue
             .Text = Text1
             .Replacement.Text = Text2
             .Replacement.ClearFormatting
             .Execute
          End With
End Function
При запуске вылетает ошибка "Run-time error 424: object required" на строке
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Посмотрел в дебагере wdLine,wdCharacter и wdExtend = Empty. Разумный вопрос: почему?Добавлено через 8 минут А вообще, задача состоит в том, чтобы удалить всю строку со словом "@Заменяемый_текст@".

Код к задаче: «Заменить текст\Удалить строку в VB6 - VB»

textual
Sub PrintPotreb()
    Dim objWord As Object, oDoc As Object
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    Set oDoc = objWord.Documents.Add(App.Path & "\Samples\DogLPH1Z.dot")
    If SetFieldsStr("@Заменяемый_текст@", "", oDoc) Then
        objWord.Selection.EndKey Unit:=5, Extend:=1
        objWord.Selection.Delete Unit:=1, Count:=1
    End If
End Sub
Function SetFieldsStr(Text1 As String, Text2 As String, oDoc As Object) As Boolean
    With oDoc.Range.Find
        .ClearFormatting
        .Forward = True
        .Wrap = 1
        .Text = Text1
        .Replacement.Text = Text2
        .Replacement.ClearFormatting
        SetFieldsStr = .Execute
    End With
End Function

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ