Sunday, October 3, 2010

Working with Word Docs

Working with Word Docs
Dim objWD
Set objWD = CreateObject("Word.Application")
objWD.Documents.Add

objWD.Selection.TypeText "This is some text." & Chr(13) & "This is some more text"
objWD.ActiveDocument.SaveAs "D:\test.doc"
objWD.Quit

No comments: