Excel 用户表单 TextBox.Value 填充 MS Word 书签

Question

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 word 打开但书签仍然是空的，即没有值

感谢您的帮助，因为我已经尝试解决这个问题几个小时了。非常感谢。

此致，凯文

Answer 1

书签命令需要 Range 和 Text 属性。例子

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

Excel 用户表单 TextBox.Value 填充 MS Word 书签

Excel Userform TextBox.Value Populate MS Word Bookmarks

excel

vba

ms-word

userform