| Class TmsWordMerge (unit msWordMerge) |
TComponent
| Constructors |
Constructor Create(Aowner:TComponent);| Functions |
Procedure CloseWordObject;
Destructor Destroy;
Function Execute: Boolean;
Function GetmsWordObject{}:OLEVariant;
Function selectMergeDataFile{}:Boolean;
Function SelectWordDocumentFile{}:Boolean;
Function selectWordTemplateFile{}:Boolean;
Function WordDocumentPath:String;
Function WordTemplatePath:String;
Procedure WriteWordFields;
Procedure mergedoc(docname,datafile: String; mergemode: TfmsMergeOptions );| Properties |
property CloseWord : Boolean
property DataSource : TDataSource
property MergeOption : TFmsMergeOptions
property OutputFile : String
property PromptSave : Boolean
property WordMergeDocument : TfileName| Events |
| Variables |
fCloseWord : Boolean;
fDataFile : String;
fDataSource : TDataSource;
fMergeOption : TfmsMergeOptions;
fmsWordDoc : TfileName;
fpromptsave : Boolean;| Constructors |
Constructor Create(Aowner:TComponent);if a doc file was specified then do try the merge (perhaps a separate flag would be good??
| Functions |
Procedure CloseWordObject;
Destructor Destroy;
Function Execute: Boolean;Free;
Function GetmsWordObject{}:OLEVariant;Public declarations } // this function gets the Word Object. If word is not running, it's started.
procedure Register;
Function selectMergeDataFile{}:Boolean;Lets the user Select a Word Template for creating a new document returns true if a valid selection was made
Function SelectWordDocumentFile{}:Boolean;but only if it's running!
Function selectWordTemplateFile{}:Boolean;
Function WordDocumentPath:String;with dataset
Function WordTemplatePath:String;function to return WORD's Document Directory Name
Procedure WriteWordFields;while
Procedure mergedoc(docname,datafile: String; mergemode: TfmsMergeOptions );| Properties |
property CloseWord : Boolean
property DataSource : TDataSourcePublished declarations
property MergeOption : TFmsMergeOptions
property OutputFile : String
property PromptSave : Boolean
property WordMergeDocument : TfileName| Events |
| Variables |
fCloseWord : Boolean;
fDataFile : String;
fDataSource : TDataSource;
fMergeOption : TfmsMergeOptions;Private declarations } //fQuery: TQuery;
fmsWordDoc : TfileName;
fpromptsave : Boolean;