Excel Userform TextBox.Value Заполнить закладки MS Word - PullRequest
Новая
       24

Excel Userform TextBox.Value Заполнить закладки MS Word

0 голосов
/ 27 октября 2018 
Private Sub CommandButton3_Click()

 Dim wApp As Object
 Dim wDoc As Object

 Set wApp = CreateObject("Word.Application")
 wApp.Visible = True

 Set wDoc = wApp.Documents.Open(Filename:="C:\template1.dotm ", ReadOnly:=False)
    With wDoc.Selection
    .Bookmarks("bookmark1") = UserForm5.TextBox1.Value
    .Bookmarks("bookmark2") = UserForm5.TextBox2.Value
    End With

 WordDoc.Close
 WordApp.Quit
 Set WordDoc = Nothing
 Set WordApp = Nothing

End Sub

Привет всем,

Я надеялся, что кто-нибудь поможет мне в этом.Как показано в приведенном выше коде, я пытаюсь получить значение текстового поля пользовательской формы и заполнить его в MS Word, используя закладки.

Проблема заключается в том, что когда я нажимаю командную кнопку 3 на пользовательской форме, слово MS открывается, нозакладки все еще пустые, т.е. не имеют значения

Я был бы признателен за помощь, поскольку я пытался решить эту проблему в течение нескольких часов.Большое спасибо.

С уважением, Кевин

1 Ответ

0 голосов
/ 27 октября 2018

Команды закладки нуждаются в свойствах Range и Text.Пример 

.Bookmarks("bookmark1").Range.Text = UserForm5.TextBox1.Value
...