[OT] Updating MS Word Documents through MS Access M odules - SO

I'm sorry if no-one is interested in this, but I thought I'd post the
solution since I posted the problem(s). This is a great tool for me now
that I know how to use it and it could be beneficial to others as well:)

Function FindBMark()
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim WordRange As Word.Range

Set Wordbook = Create Object("Word.Application")
Set WordDoc = WordObj.Documents.Open("C:\test.doc")
WordObj.Visible = True

'this part of the program inserts text at a bookmark in the body of the doc
only (excluding Header/Footer)
Set WordRange = WordDoc.Goto(What:=wdGoToBookmark, Name:="bktestname")
WordRange.InsertAfter "sarah is a winner"

'this part of the program inserts text at a bookmark anywhere in the doc
(including Header/Footer)
WordDoc.Bookmarks("headerbkmk1").Select
WordDoc.Bookmarks("headerbkmk1").Range.Text = "This is a sample"

WordObj.Quit SaveChanges:=wdSaveChanges

Set WordObj = Nothing

End Function