I thought I had it worked out but it keeps coming up with an error when I run
my dialog box.

I have check boxes that I want the user to select to insert certain blocks
of text. There can be any combination of the six check boxes.

This is the abbreviated version of the code

Private Sub cmdok_Click()
' Insert information entered into the dialog box
' close dialog box and go to body of the letter to start typing

With ActiveDocument.AttachedTemplate

If chkb_ei.Value = True Then
.Bookmarks("ei_bm").Range.InsertAutoText ("EI_Assess")
End If

End With

If cb_pat = "four" Then
.Bookmarks("pp2_testpara").Range.InsertAutoText ("pp2_four_tests")
End If

End With

Unload frmbuilder
End Sub

It seemed to make logical sense but it keeps throwing me back to the code
with a 438 error message object doesn't support the property

Help would be appreciated. And advice on how to get a better understanding
of VB would be appreciated. I trawl the web but think I need to understand
what I am doing better.

Susan