Word automatization

admin

1. Window Vairables:
   
2. FunctionalVar: WordApp
   
3.    Class: Word__Application
   
4. 
   
5. Functions:
   
6. Function: StartWord
   
7.    Description:
   
8.    Returns
   
9.       Boolean:
   
10.    Parameters
    
11.    Static Variables
    
12.    Local variables
    
13.    Actions
    
14.       If Not SalActiveXGetActiveObject(WordApp,'Word.Application')
    
15.          If WordApp.CreateObject('Word.Application')
    
16.             Call WordApp.PropSetVisible( TRUE )
    
17.             Return TRUE
    
18.          Return FALSE
    
19.       Else
    
20.          Return TRUE
    
21. 
    
22. Function: OpenNamedTemplate
    
23.    Description:
    
24.    Returns
    
25.       Boolean:
    
26.    Parameters
    
27.       String: templateFileName
    
28.    Static Variables
    
29.    Local variables
    
30.       FunctionalVar: vTemplateName
    
31.          Class: Variant
    
32.       FunctionalVar: vOptional
    
33.          Class: Variant
    
34.       FunctionalVar: vNew
    
35.          Class: Variant
    
36.    Actions
    
37.       If WordApp.PropGetDocuments(WordDocs)
    
38.          Call vTemplateName.SetString( templateFileName )
    
39.          Call vNew.SetBoolean( FALSE )
    
40.          Call vOptional.MakeOptional()
    
41.          ! We open our word template
    
42.          If WordDocs.Add( vTemplateName, vNew, vOptional, vOptional, InvoiceDoc )
    
43.             Return TRUE
    
44.       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)