Как из 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы