Как из textbox перенести данные в word - VB
Формулировка задачи:
Доброго времени суток, есть программа на vba 6.0, заполняются разные textbox.
Задача такая: нужно открыть шаблон word, и перенести данные из textbox в определенные закладки????
Помогиите пожалуйста, очень нужно, заранее огромное спасибо!!!
Решение задачи: «Как из textbox перенести данные в word»
textual
Листинг программы
Private Sub ВСТАВКА_ПО_МЕТКЕ(МЕТКА, ТЕКСТ)
Dim R2
On Error GoTo 13
DocWord.Bookmarks(МЕТКА).Select
If (DocWord.Bookmarks(МЕТКА).End - DocWord.Bookmarks(МЕТКА).Start) > 1 Then
Set R2 = DocWord.Range(DocWord.Bookmarks(МЕТКА).Start + 1, DocWord.Bookmarks(МЕТКА).End)
R2.Delete
End If
Selection.InsertBefore (" " & ТЕКСТ)
Exit Sub
13
MsgBox "METKA " & МЕТКА & " NE NAYDENA!!!!!", vbCritical, "VNIMANIE!!!"
End Sub