Редактирование файла .doc при помощи Visual basic 6.0

[aleksandr_mo19]

Доброго времени суток!

Есть шаблон в формате .doc с закладками. При запуске формы в vb 6.0 необходимо ввести данные в textbox, которые при нажатии кнопки заменяют закладки в шаблоне и сохраняют его под другим именем.

Это получилось реализовать.

Проблема в том, что не получается реализовать условие при котором две закладки должны удаляться из шаблона. Условие следующие: если в определенный textbox введен пробел (например), то надо удалить закладку.

Кто может помочь разобраться в этом?

Private Sub Command1_Click()
Set wordapp = New Word.Application
wordapp.Visible = False
Set DocWord = wordapp.Documents.Open("C:\PP_1830\files\kugi_otchet.docx")
DocWord.Bookmarks("Adresat").Range.Text = Text3
DocWord.Bookmarks("Obraschenie").Range.Text = Text4
DocWord.Bookmarks("Area").Range.Text = Text5
DocWord.Bookmarks("Adres").Range.Text = Text1
DocWord.Bookmarks("Aim").Range.Text = Text2
DocWord.Bookmarks("Adresat_1").Range.Text = Text8
DocWord.Bookmarks("Rukovodit_2").Range.Text = Combo3.Text
DocWord.Bookmarks("Rukovodit_1").Range.Text = Text10
DocWord.Bookmarks("Ispolnitel_1").Range.Text = Combo2.Text
DocWord.Bookmarks("Ispolnitel_2").Range.Text = Text9
DocWord.Bookmarks("Shema_odd").Range.Text = Text11
DocWord.Bookmarks("Data").Range.Text = Text7
DocWord.Bookmarks("Nomer").Range.Text = Text6
If Text13.Text = " " Then
DocWord.Bookmarks("Red_lines").Delete
DocWord.Bookmarks("Street").Delete
                         End If
DocWord.Bookmark("Red_lines").Range.Text = Text13
DocWord.Bookmark("Street").Range.Text = Text12

DocWord.Activate


                         
    If DocWord.Saved = False Then
DocWord.SaveAs "C:\PP_1830\Otchet\Ìîé îò÷åò.docx"
    End If
    
    If DocWord.Saved = True Then
DocWord.Close
    End If
    
End Sub

[aleksandr_mo19]

кто-нибудь поможет?

[aleksandr_mo19]

Ну пожалуйста, реально нужна помощь!!!

[Stilet]

Что-т я не понимаю чем код не устроил?
Проверка же правильно написана.

[aleksandr_mo19]

Вот и я не могу понять...в чем дело....при запуске кода дает ошибку 438 "Object does not support the property or method"/
Отладка отправляет на строку:

DocWord.Bookmark("Red_lines").Range.Text = Text13
DocWord.Bookmark("Street").Range.Text = Text12

Связано это как я понимаю с тем, что сначала проверяется условие и если оно верное, то в шаблоне word удаляются эти закладки, а в тексте кода далее идут команды по их замене текстом из combobox.

Т.е. условие должно быть как-то по другому написано, описывая два варианта, что если условие такое удалить, а если другое то передать значения из таких то combobox

А как его написать не могу понять

[aleksandr_mo19]

пропущен оператор else....все работает