Class TmsWordMerge (unit msWordMerge) |
Inherits from
TComponent
Constructor Create(Aowner:TComponent);
- if a doc file was specified then do try the merge (perhaps a separate flag would be good??
Procedure CloseWordObject;
Destructor Destroy;
Function Execute: Boolean;
Free;
Function GetmsWordObject{}:OLEVariant;
Public declarations } // this function gets the Word Object.
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 );
property CloseWord : Boolean
property DataSource : TDataSource
Published declarations
property MergeOption : TFmsMergeOptions
property OutputFile : String
property PromptSave : Boolean
property WordMergeDocument : TfileName
fCloseWord : Boolean;
fDataFile : String;
fDataSource : TDataSource;
fMergeOption : TfmsMergeOptions;
Private declarations } //fQuery: TQuery;
fmsWordDoc : TfileName;
fpromptsave : Boolean;
Constructor Create(Aowner:TComponent);
if a doc file was specified then do try the merge (perhaps a separate flag would be good??
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 );
property CloseWord : Boolean
property DataSource : TDataSource
Published declarations
property MergeOption : TFmsMergeOptions
property OutputFile : String
property PromptSave : Boolean
property WordMergeDocument : TfileName
fCloseWord : Boolean;
fDataFile : String;
fDataSource : TDataSource;
fMergeOption : TfmsMergeOptions;
Private declarations } //fQuery: TQuery;
fmsWordDoc : TfileName;
fpromptsave : Boolean;