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

Узнай цену своей работы

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

Я - начинающий... Есть код:
При запуске вылетает ошибка

"Run-time error 424: object required"

на строке
Посмотрел в дебагере

wdLine

,

wdCharacter

и

wdExtend = Empty

. Разумный вопрос: почему?
А вообще, задача состоит в том, чтобы удалить всю строку со словом "@Заменяемый_текст@".

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

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 из 5
Похожие ответы