Class TmsWordMerge (unit msWordMerge)

Inherits from

TComponent

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.

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 : TDataSource

Published 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;



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 : TDataSource

Published 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;