View Single Post
Old 24-11-2005, 08:02 AM   #6 (permalink)
us-media
www.us-media.co.uk
 
Join Date: Mar 2004
Location: West Midlands
Posts: 13
Example Macro (startup)

Dim objWord

' create object
Set objWord = CreateObject("Word.Application")

' open word template
With objWord
.Visible = True
.Documents.Add CurrentProject.Path & "Test.dot"
End With

' grab a field from a form in access
strTest = Me.Text1 ' or whatever

' insert into word bookmark
With objWord.ActiveDocument.Bookmarks
.Item(test1).Range.Text = strTest
End With

' destroy object
Set objWord = Nothing

Rob.
__________________
Regards,
Us Media

Visit our website http://www.us-media.co.uk

Last edited by us-media; 24-11-2005 at 06:24 PM.
us-media is offline   Reply With Quote