Word automatization
Window Vairables:FunctionalVar: WordApp
Class: Word__Application
Functions:
Function: StartWord
Description:
Returns
Boolean:
Parameters
Static Variables
Local variables
Actions
If Not SalActiveXGetActiveObject(WordApp,'Word.Application')
If WordApp.CreateObject('Word.Application')
Call WordApp.PropSetVisible( TRUE )
Return TRUE
Return FALSE
Else
Return TRUE
Function: OpenNamedTemplate
Description:
Returns
Boolean:
Parameters
String: templateFileName
Static Variables
Local variables
FunctionalVar: vTemplateName
Class: Variant
FunctionalVar: vOptional
Class: Variant
FunctionalVar: vNew
Class: Variant
Actions
If WordApp.PropGetDocuments(WordDocs)
Call vTemplateName.SetString( templateFileName )
Call vNew.SetBoolean( FALSE )
Call vOptional.MakeOptional()
! We open our word template
If WordDocs.Add( vTemplateName, vNew, vOptional, vOptional, InvoiceDoc )
Return TRUE
Return FALSE
CTD 6, SP4.
Samples, which are included in the section SQLWindows\ActiveX, part Microsoft Office Automation\ are not my cup of tea.
I need:
1. start WORD (ok, works)
2. open a WORD dokument (doesn't work with Word_Documents.Open )
3. open a template (ok, works woth Word_Documents.Add)
頁:
[1]