How insert info into Word bookmark?

[upplepop]

How do I insert something in a text field into a MS Word bookmark. I already have code to create the word document.

I found this code somewhere, but it doesn't work:

appWord.Goto Name:="FirstName"
appWord.TypeText Text:=strFirstName

"FirstName" is the name of the Word Bookmark; I already stored the First name in strFirstName.

 

[upplepop]

Does anyone know how to reference an existing word bookmark? I still have not found the code!

 

[ninash]

Hi Upplepop,

Try this.

Function PrintReportWithWord(frmDataSource As Form)

Dim objWord As Word.Application
Dim rst As Recordset
Dim strSQL As String

' Launch Word and load the report template
Set objWord = New Word.Application
objWord.Documents.Add _
Application.CurrentProject.Path & "\HSInitial.dot"'the template I am exporting too
objWord.Visible = True

With objWord.ActiveDocument.Bookmarks

'**** Repeat this line of code for as many controls\bookmarks needed

'test each line for null.
If IsNull(Forms![Add Site Details to Area Office]![Address 1]) Then 'on the result of this test
objWord.ActiveDocument.Bookmarks("areaaddress1&quot.Range.Paragraphs(1).Range.Delete 'delete bookmark if field is null
.Item("AreaInsertPoint&quot.Range.Text = vbCr 'add a carrage return
Else
.Item("areaaddress1&quot.Range.Text = Forms![Add Site Details to Area Office]![Address 1] 'or fill in the bookmark
End If

End With

' We're done
Set objWord = Nothing
End Function


I hope this works for you

Tony