export fields from current record to ms word document

[toffa]

i have a dbase thathas certain feilds that i want to go into a word document.
the code i use is
On Error GoTo MergeButton_Err

Dim objWord As Word.Application


Set objWord = CreateObject("Word.Application")

With objWord
.Visible = True


.Documents.Open ("C:\Circs\accessdocs\Request for Docs.doc")

'Move to each bookmark and insert text from the form.
.ActiveDocument.Bookmarks("bus").Select
.Selection.Text = (CStr(Forms!jobs!busname))
.ActiveDocument.Bookmarks.Add Name:="bus", Range:=Selection.Range
.ActiveDocument.Bookmarks("buscon").Select
.Selection.Text = (CStr(Forms!jobs!buscon))
.ActiveDocument.Bookmarks.Add Name:="buscon", Range:=Selection.Range
.ActiveDocument.Bookmarks("busfax").Select
.Selection.Text = (CStr(Forms!jobs!busfax))
.ActiveDocument.Bookmarks.Add Name:="busfax", Range:=Selection.Range
.ActiveDocument.Bookmarks("busphone").Select
.Selection.Text = (CStr(Forms!jobs!busphone))
.ActiveDocument.Bookmarks.Add Name:="busphone", Range:=Selection.Range
.ActiveDocument.Bookmarks("busemail").Select
.Selection.Text = (CStr(Forms!jobs!busemail))
.ActiveDocument.Bookmarks.Add Name:="busemail", Range:=Selection.Range
.ActiveDocument.Bookmarks("cl").Select
.Selection.Text = (CStr(Forms!jobs!cl))
.ActiveDocument.Bookmarks.Add Name:="cl", Range:=Selection.Range
.ActiveDocument.Bookmarks("clnumb").Select
.Selection.Text = (CStr(Forms!jobs!clnumb))
.ActiveDocument.Bookmarks.Add Name:="clnumb", Range:=Selection.Range
.ActiveDocument.Bookmarks("dofinj").Select
.Selection.Text = (CStr(Forms!jobs!dofinj))
.ActiveDocument.Bookmarks.Add Name:="dofinj", Range:=Selection.Range
.ActiveDocument.Bookmarks("inscon").Select
.Selection.Text = (CStr(Forms!jobs!inscon))
.ActiveDocument.Bookmarks.Add Name:="inscon", Range:=Selection.Range
.ActiveDocument.Bookmarks("inscomp").Select
.Selection.Text = (CStr(Forms!jobs!inscomp))
.ActiveDocument.Bookmarks.Add Name:="inscomp", Range:=Selection.Range

End With


MergeButton_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
MsgBox Err.Description
objWord.Selection.Text = ""
Resume Next
Else
MsgBox Err.Description
End If

Exit Sub
The problem i ma having is that when i click on the button it opens the document that is good. but i can not get it to fill into the right areas especially if i have to enter the same field in twice or three time which is very posible depending on the document.

Can you help me
Chris