Assuming the records are in this recordset
Code:
Private Sub cmdcreate_Click()
On Error GoTo MergeButton_Err
Dim objWord As Word.Application
Dim rsCOA As DAO.Recordset
Set objWord = GetObject("Word.Application")
Set rsCOA = CurrentDb.OpenRecordset("frmcoa")
With objWord
.Visible = True
.Documents.Open ("H:\Certificate.docx")
rsCOA.MoveFirst
.ActiveDocument.Bookmarks("txtwbcnum").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtwbcnum]))
.ActiveDocument.Bookmarks("txtordernum").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtordernum]))
.ActiveDocument.Bookmarks("txtbookingnum").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtbookingnum]))
.ActiveDocument.Bookmarks("txtsupplier").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtsupplier]))
.ActiveDocument.Bookmarks("txtsaddress1").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtsaddress1]))
.ActiveDocument.Bookmarks("txtsaddress2").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtsaddress2]))
.ActiveDocument.Bookmarks("txtsaddress3").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtsaddress3]))
.ActiveDocument.Bookmarks("txtconsignee").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtconsignee]))
.ActiveDocument.Bookmarks("txtdeladdress1").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtdeladdress1]))
.ActiveDocument.Bookmarks("txtdeladdress2").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtdeladdress2]))
.ActiveDocument.Bookmarks("txtdeladdress3").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtdeladdress3]))
.ActiveDocument.Bookmarks("txtcountry").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtcountry]))
.ActiveDocument.Bookmarks("txtcustomer").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtcustomer]))
.ActiveDocument.Bookmarks("txtaddress1").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtaddress1]))
.ActiveDocument.Bookmarks("txtaddress2").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtaddress2]))
.ActiveDocument.Bookmarks("txtaddress3").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtaddress3]))
.ActiveDocument.Bookmarks("txtccountry").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtCcountry]))
.ActiveDocument.Bookmarks("txtloadportname").Selec t
.Selection.Text = (CStr(Forms![frmcoa]![txtloadportname]))
.ActiveDocument.Bookmarks("txtvesselvoyage").Selec t
.Selection.Text = (CStr(Forms![frmcoa]![txtvesselvoyage]))
.ActiveDocument.Bookmarks("dtmsailingdate").Select
.Selection.Text = (CStr(Forms![frmcoa]![dtmsailingdate]))
.ActiveDocument.Bookmarks("txtdisportname").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtdisportname]))
.ActiveDocument.Bookmarks("txtdcountry").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtDcountry]))
.ActiveDocument.Bookmarks("txtcontainernum").Selec t
.Selection.Text = (CStr(Forms![frmcoa]![txtcontainernum]))
.ActiveDocument.Bookmarks("txtpackages").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtpackages]))
.ActiveDocument.Bookmarks("txtproductname").Select
.Selection.Text = (CStr(Forms![frmcoa]![txtproductname]))
.ActiveDocument.Bookmarks("numahecc").Select
.Selection.Text = (CStr(Forms![frmcoa]![numahecc]))
.ActiveDocument.Bookmarks("numweight").Select
.Selection.Text = (CStr(Forms![frmcoa]![numweight]))
Do Until .EOF
'Add the five fields inside here
'Not sure how youare putting them in Word
rsCOA.MoveNext
Loop
End With
Set objWord = Nothing
Set rsCOA = Nothing
Exit Sub
MergeButton_Err:
If Err.Number <> 0 Then
Set objWord = New Word.Application
Resume Next
End If
End Sub