Dim wd As Object
Set wd = CreateObject ("Word.Basic")
wd.AppShow
wd.FileNewDefault
wd.FontSize 24
wd.Insert "Hello, World"
More Sample Word Code
wd.FileOpen "MyDoc.Doc"
wd.FileNewDefault
wd.FileNew "invoice.dot" 'template name
wd.FileSave
wd.FileSaveAs "NEWNAME.DOC"
wd.FileClose
wd.Fileprint
Set wd = Nothing 'closes Word if no one else is using it
|