I created a form in Access 2000 the function of which is to create an Access report.

One thing that I want it to is to write the report into a Word document and this I do with the Access Outputto method. There are no problems up this point.

However, what I also want to do is to insert the comapny's logo in the header of the newly created Word document at the same time ie programmatically, rather by manually copying and pasting the image in.

I need to use the Word object model but, despite looking for quite sometime I cannot find an appropriate method. Unfortunately I have very little to do normally with Word VBA and so I need to ask for some help

Am I asking for the impossible?


Any advice will be greatly appreciated.





Michael109


:)

Michael109

Here you have

Sub Word_Insert_Image_in_Header()

Dim oWD As Word.Document

Set oWD = ActiveDocument

    With oWD.Sections(1)
        .Headers(wdHeaderFooterPrimary).Range.Text = "Text as Header"
        .Headers(wdHeaderFooterPrimary).Range.InlineShapes .AddPicture "c:\simulation.jpg"
    End With

End Sub

Cheers
Shasur:)

http://www.vbadud.blogspot.com

I forgot to mention that I was accessing the Word document from Access VBA. All that needs to be added is the creation of a word application object so that one can access the relevant file with the correct file path. I didn't use the ActiveDocument constant but

Set oWD = Word.Documents.Open("C:\MyFilePath.doc")

The code now works in the way that I want it to.

Many thanks. It is much appreciated



:):D:D:)

Michael109