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

大家好，

我希望有人可以帮助我。如上面的代码所示，我试图获取userform文本框值，并使用书签将其填充到MS Word中。

问题是，当我单击用户窗体上的命令按钮3时，MS字会打开，但书签仍为空，即没有值

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

关于，凯文

Answer 1

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

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

Excel用户窗体TextBox.Value填充MS Word书签

1 个答案: