Using EXCEL VBA to create word ,insert header in word, add textbox in header and fill pic

Hello,
I'm using EXCEL VBA to create word ,insert header in word and add textbox in header, then,fill picture in the textbox. I finished The former steps , but I can not insert picture into textbox in the header using EXCEL VBA through the function of fill.picture or inlineaddpicture.Is there any way or example to display the step?
Best Regards,
Roger

Hi, Norie
Thank you for your reply, but I'm sorry I have no code for this problem now. I deal with some works using EXCEL VBA, so I put it in my working pc. There is the code I found in the forum and my code is similar to it.
[/php]

Sub CreateWordDocWithHeader()
Dim WApp As Word.Application
Dim WDoc As Word.Document
Dim WRng As Word.Range

Set WApp = New Word.Application
WApp.Visible = False

Filename = "C:\Users\hyl24065\Desktop\dev\test.doc"

Set WDoc = WApp.Documents.Add
WDoc.SaveAs Filename

Set WRng = WDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
WDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select

WDoc.Shapes(1).Fill.UserPicture "C:\Users\hyl24065\Desktop\dev\test.JPG"

Set WRng = Nothing
Set WDoc = Nothing
Set WApp = Nothing
End Sub

[/php]

The above code can be inserted textbox and picture into the word, but not the header in word. The textbox produced by my code can be added to header in word, but can not be filled picture into textbox. I'm new to EXCEL VBA and have no idea. Can you help me, Norie ? Thank you.

Hi, Norie
Thank you for your reply, but I'm sorry I have no code for this problem now. I deal with some works using EXCEL VBA, so I put it in my working pc. There is the code I found in the forum and my code is similar to it.
[/php]

Sub CreateWordDocWithHeader()
Dim WApp As Word.Application
Dim WDoc As Word.Document
Dim WRng As Word.Range

Set WApp = New Word.Application
WApp.Visible = False

Filename = "C:\Users\hyl24065\Desktop\dev\test.doc"

Set WDoc = WApp.Documents.Add
WDoc.SaveAs Filename

Set WRng = WDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
WDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select

WDoc.Shapes(1).Fill.UserPicture "C:\Users\hyl24065\Desktop\dev\test.JPG"

Set WRng = Nothing
Set WDoc = Nothing
Set WApp = Nothing
End Sub

[/php]

The above code can be inserted textbox and picture into the word, but not the header in word. The textbox produced by my code can be added to header in word, but can not be filled picture into textbox. I'm new to EXCEL VBA and have no idea. Can you help me, Norie ? Thank you.

Originally Posted by Norie

Roger

Can you post the code you have so far?

Hi, Norie
Thank you for your reply, but I'm sorry I have no code for this problem now. I deal with some works using EXCEL VBA, so I put it in my working pc. There is the code I found in the forum and my code is similar to it.
[/php]

Sub CreateWordDocWithHeader()
Dim WApp As Word.Application
Dim WDoc As Word.Document
Dim WRng As Word.Range

Set WApp = New Word.Application
WApp.Visible = False

Filename = "C:\Users\hyl24065\Desktop\dev\test.doc"

Set WDoc = WApp.Documents.Add
WDoc.SaveAs Filename

Set WRng = WDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
WDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 120#, 27#, 72#, 63#).Select

WDoc.Shapes(1).Fill.UserPicture "C:\Users\hyl24065\Desktop\dev\test.JPG"

Set WRng = Nothing
Set WDoc = Nothing
Set WApp = Nothing
End Sub

[/php]

The above code can be inserted textbox and picture into the word, but not the header in word. The textbox produced by my code can be added to header in word, but can not be filled picture into textbox. I'm new to EXCEL VBA and have no idea. Can you help me, Norie ? Thank you.

Originally Posted by Norie

Roger

Can you post the code you have so far?

Hi, Norie
Thank you for your reply, but I'm sorry I have no code for this problem now. I deal with some works using EXCEL VBA, so I put it in my working pc. There is the code I found in the forum and my code is similar to it.

Please Login or Register  to view this content.

The above code can be inserted textbox and picture into the word, but not the header in word. The textbox produced by my code can be added to header in word, but can not be filled picture into textbox. I'm new to EXCEL VBA and have no idea. Can you help me, Norie ? Thank you.