BorlandTalk.com

Thomas Pfister · Guest

Hello,

how can I define the correct *.dot-file from a folder (not in the
default-dot-folder)
before I start the word-session with an empty doc (based on the dot-file)
and use the document

thanks for any hint

:-) thomas

Mario Porcher · Guest

/////////
public
// Word variablen
typewd:olevariant;
noreset:olevariant;
Template:olevariant;
NewTemplate:olevariant;
visible:olevariant;
documenttyp:olevariant;
ItemIndex:OleVariant;
wdFormLetters:olevariant;
ConfirmConversions:olevariant;
Start:olevariant;
end_:olevariant;
Name:widestring;
Format:olevariant;
ReadOnly:olevariant;
LinkToSource:olevariant;
AddToRecentFiles:olevariant;
PasswordDocument:olevariant;
PasswordTemplate:olevariant;
WritePasswordDocument:olevariant;
WritePasswordTemplate:olevariant;
Revert:olevariant;
Connection:olevariant;
SQLStatement:olevariant;
SQLStatement1:olevariant;
LockComments:olevariant;
password:olevariant;
ReadOnlyRecommended:olevariant;
EmbedTrueTypeFonts:olevariant;
SaveNativePictureFormat:olevariant;
SaveFormsData:olevariant;
SaveAsAOCELetter:olevariant;
barid:olevariant;
FileFormat:olevariant;
WritePassword:olevariant;
DocumentType:olevariant;
encoding:olevariant;
test:range;
messageoff:integer;
filename:olevariant;
Unit_:olevariant;
Count:olevariant;
Extend:olevariant;
namex:olevariant;
what:olevariant;
wich:olevariant;
savechanges:olevariant;
originalformat:olevariant;
routedocument:olevariant;
openexclusive:olevariant;
subtype:olevariant;
insertlinebreaks:olevariant;
allowsubstitutions:olevariant;
lineending:olevariant;
addbidimarks:olevariant;
range:olevariant;
link:olevariant;
attachement:olevariant;
was:olevariant;
welche:olevariant;
zahl:olevariant;
bookmarkname:olevariant;
//// Comandobar
HSItem : OleVariant;
// MyMakro : _VBComponent;
BarName : Variant;
BarPosition: Variant;
MenuBar : Variant;
Temp : Variant;
//MyMakro : _VBComponent;
//MyForm : _VBComponent;
// cbAnzahl,
tbAnzahl,i : integer;
createTB : Boolean;
HSBar: CommandBar;

/////////////-> Start Word with your dot <-
WordApplication1.Connect;
wordApplication1.Visible:= true;
///// ------------------set path ( wordmenue -> extras/options/saveoptions
wordapplication1.Options.Set_DefaultFilePath (2,txtdir);
wordapplication1.Options.Set_DefaultFilePath (0,vorlpath1);
wordapplication1.Options.Set_DefaultFilePath (7,HSDIR+'textdaten');
////--------------------
wordapplication1.Options.SaveInterval:= 0;
wordapplication1.Options.AllowFastSave:= False;
wordapplication1.Options.BackgroundSave:= True;
wordapplication1.Options.CreateBackup:= False;
wordapplication1.Options.SavePropertiesPrompt:= False;
wordapplication1.Options.SaveNormalPrompt:= False;
wordapplication1.Options.OptimizeForWord97byDefault:= False;
--------
NewTemplate:=false;
DocumentType:=0;
--------- your dot ------
template:= 'c:aaaaa.dot'
----------
wordapplication1.Documents.add
(template,NewTemplate,DocumentType,visible);

"Thomas Pfister" <thomas (AT) spam-mail (DOT) de> schrieb im Newsbeitrag
news:41e9a024$1 (AT) newsgroups (DOT) borland.com...

Thomas Pfister · Guest

Mario,

thanks for the code; I'll try it today

Gruss

:-) thomas

"Mario Porcher" <m.porcher (AT) web (DOT) de> schrieb im Newsbeitrag
news:41eefc55 (AT) newsgroups (DOT) borland.com...