Ok, thanks. That solves the issue for my first textfield that i want to fill, but not the next two
Highlightened and marked bm2 and bm3
Private Sub CommandButton1_Click()
With ActiveDocument.Bookmarks("bmKursdato").Range.Fields(1).Result.Text = TextBox1
.Bookmarks("bmKurstid").Range.Fields(2).Result.Text = TextBox2
.Bookmarks("bmTamed").Range.Fields(3).Result.Text = TextBox3
End With
UserForm1.hide
End Sub
Reply With Quote
