[RESOLVED] VBA pop up

Hi yall.

I'm sitting here getting a bit frustrated, as i usually do, when i'm sitting with this codes that doesnt work for me.

The pop up loads, but i get an error message, as attached images tells.

Private Sub CommandButton1_Click()
With ActiveDocument
.Bookmarks("bmKursdato").Range ("TextBox1")
.InsertBefore TextBox1
.Bookmarks("bmKursklokke").Range ("TextBox2")
.InsertBefore TextBox2
.Bookmarks("bmTamed").Range ("TextBox3")
.InsertBefore TextBox3
End With
UserForm1.hide
End Sub

Where do i do the wrong code?

Thank you

i am unable to be sure from your code as to what you are trying to do, my guess is put the content of textbox1 into the form field
try like

vb Code:

ThisDocument.Bookmarks("bmKursdato").Range.Fields(1).Result.Text = textbox1

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

they should all be fields(1)
only one field to each bookmark i think

Code:

---

With ActiveDocument
        .Bookmarks("bmKursdato").Range.Text = Me.TextBox1.Value
        .Bookmarks("bmKurstid").Range.Text = Me.TextBox2.Value
        .Bookmarks("bmTamed").Range.Text = Me.TextBox3.Value
    End With

---

Was the way to do it.. :)