Hello, can you help?  I'm at the end of what I know how to do.  I have a
template that merges itself with data from a Word table stored in another
document (this part works fine).  The form collects some info from the user
and has option buttons and check boxes.  I can't get these to work.  I've
checked the spelling and usage of bookmarks and box/button names and they are
correct.  My Combobox1 has a selection of delivery options and so does
Combobox 2.  I can get this code to work in other templates that do not
invoke a merge.  I'm on Word XP and here's my macro:

The entire macro follows, but the portion that I have here in caps is the
part that doesn't work.  

   ODOC.BOOKMARKS("BKDELIVERY").RANGE.TEXT = FRMSELECT.COMBOBOX1.TEXT +
FRMSELECT.COMBOBOX2.TEXT
'        END IF

IF FRMSELECT.OPTPERS.VALUE = TRUE THEN
ODOC.BOOKMARKS("BKPANDC").RANGE.TEXT = "PERSONAL AND CONFIDENTIAL"
END IF

IF FRMSELECT.OPTATTORNEY.VALUE = TRUE THEN
ODOC.BOOKMARKS("BKPANDC").RANGE.TEXT = "ATTORNEY CLIENT PRIVILEGE"

END IF

Private Sub Document_New()

Dim ComboBox1 As ComboBox
Dim ComboBox2 As ComboBox
Dim oDoc As Document
Dim ofrmSelect As frmSelect
Set ofrmSelect = New frmSelect
Set oDoc = ActiveDocument

Load ofrmSelect

ofrmSelect.MyList.Clear

If ofrmSelect.cmdCancel = True Then ActiveDocument.Close wdDoNotSaveChanges
DoEvents
oDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord
Do
      ofrmSelect.MyList.AddItem oDoc.MailMerge.DataSource.DataFields("Name")
       nCurrRecord = oDoc.MailMerge.DataSource.ActiveRecord
       oDoc.MailMerge.DataSource.ActiveRecord = wdNextRecord
   Loop Until nCurrRecord = oDoc.MailMerge.DataSource.ActiveRecord
   
   ofrmSelect.MyList.ListIndex = -1
   ofrmSelect.Show
   
   oDoc.Bookmarks("bkDelivery").Range.Text = frmSelect.ComboBox1.Text +
frmSelect.ComboBox2.Text
'        End If

If frmSelect.optPers.Value = True Then
oDoc.Bookmarks("bkPandc").Range.Text = "PERSONAL AND CONFIDENTIAL"
End If

If frmSelect.optAttorney.Value = True Then
oDoc.Bookmarks("bkPandc").Range.Text = "ATTORNEY CLIENT PRIVILEGE"

End If

   If ofrmSelect.mReturn Then
       
       nListIndex = ofrmSelect.MyList.ListIndex

  Unload ofrmSelect

Set ofrmSelect = Nothing
       'Unload ofrmSelect
  End If
 
       If nListIndex <> -1 Then
           oDoc.MailMerge.DataSource.ActiveRecord = nListIndex + 1
               
           sName = oDoc.MailMerge.DataSource.DataFields("Name")
       
         
       End If

  oDoc.Bookmarks("bkName").Range.Text =
oDoc.MailMerge.DataSource.DataFields("Name")
  oDoc.Bookmarks("bkDD").Range.Text =
oDoc.MailMerge.DataSource.DataFields("DD")
  oDoc.Bookmarks("bkEMail").Range.Text =
oDoc.MailMerge.DataSource.DataFields("Email")
  oDoc.Bookmarks("bkSig").Range.Text =
oDoc.MailMerge.DataSource.DataFields("Sig")

 
       nStart = 1
       Do
           nNext = InStr(nStart, sAddress, Chr(13), vbBinaryCompare)
           nLineCount = nLineCount + 1
           nStart = nNext + 1
       Loop Until nNext = 0
       oDoc.Range.InsertAfter (sAddress & Chr(13))
       
       Selection.MoveUntil Chr(9), wdForward
       Selection.Expand wdParagraph
       

   oDoc.MailMerge.MainDocumentType = wdNotAMergeDocument
   Set oDoc = Nothing
 
   Selection.GoTo what:=wdGoToBookmark, Name:="bkStop"
   

  End Sub
 
 
THANKS FOR ANY SUGGESTIONS