Automation: Create Word file from Excel

[Steve C.]

Hi there,
I need to create a Word document from Excel in which I would like to insert
the date/time and file name (insert Auto Text) in the header through VBA. In
fact, I can create the Word file from Excel but encounter error when it comes
to inserting date and file name in the header.
Appreciate if anyone is kind enough to help me out.

Thanks in advance for your kind assistance!
Regards,

Steve C.

[michelxld]

Hello Steve

I'm not sure that is exactly what you need , but this macro create and save a Word doc , then insert the date and the name in the header



Sub insertInformation_Header()
'Activate Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add

WordDoc.SaveAs Filename:="C:\myDoc.doc"
With WordDoc.Sections(1)
.Headers(wdHeaderFooterPrimary).Range.Text = Date & " " & Time _
& vbLf & WordDoc.Name
.Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphLeft
End With

End Sub



regards ,
michel