Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Word SaveAs OLE Code

Keywords: 	 Word SaveAs msword.exe

cAPP = ObjectOpen("Word.Application")
oDOC = cAPP.Application
oDOC.visible = @true
oDOC.ChangeFileOpenDirectory("C:\windeal\")
oDocument =oDOC.Documents
oDocument.Add
oSelection = oDOC.Selection
oSelection.TypeText("Here is Your Graph,")
oSelection.TypeParagraph
oSelection.Paste
oActive = oDOC.ActiveDocument
oActive.SaveAs("wordsamp.doc")

oActive.Close

objectclose(oSelection)
objectclose(oDocument)
oDOC.Quit
objectclose(oDOC)

Article ID:   W14482

Filename:   Word SaveAs.txt