BorlandTalk.com

Bob Berry · Guest

D7; Win2K

I want to open a template from Delphi and get a new document. I adopted the
code that Jim Muir provided in response to Crazy Horse's question on 3/25.
How do I modify that code so that I do not open the template for editing.

Also, where is the Help documentation for this stuff. TWordApplication is
nowhere to be found (by me).

Thanks.

Steve M · Guest

Hello Bob,

as I mentioned in my other post, I use VBAWRD8.HLP which has all the lowdown,
although it's in VB form but it's fairly easy to see how it works in Delphi.
So I'd try and get hold of a copy of that. Somebody else might have a better
idea.

Steve

Bob Berry · Guest

Steve, thanxabunsch for the response.

"Steve M" <spamyenotsteve (AT) letyenotspamsilverlink (DOT) co.uk> wrote

Bob Berry · Guest

I have now solved all the problems (with the help of folks in this
newsgroup) except one: I cannot open the template file. I have checked the
path and filename carefully and it should work, but like Crazy Horse re 3/25
post, it says it is not found. Code is below. Can someone please tell me
why this doesn't work? The file gets copied properly, but the Open fails.
However, if I set ovFormat := wdOpenFormatAuto, it opens fine, just not as a
template in a new document.

with waWordapp do
begin
tpath :=
IncludeTrailingPathDelimiter(Options.DefaultFilePath[wdUserTemplatesPath]);
if not FileExists(tpath + 'test.dot') then
if not CopyFile(PChar(IncludeTrailingPathDelimiter(common_files_path)
+ 'toolstest.dot'),
PChar(tpath + 'test.dot'), False) then
begin
MessageDlg('Create a new libretto in Word failed', mtError, [mbOK],
0);
Exit;
end;
ov_filename := tpath + 'test.dot';

ovConfirmConversions := False;
ovReadOnly := False; //possibility
ovAddToRecentFiles := False;
ovPasswordDocument := '';
ovPasswordTemplate := '';
ovRevert := False;
ovWritePasswordDocument := '';
ovWritePasswordTemplate := '';
ovFormat := wdOpenFormatTemplate;
ovEncoding := '';
ovVisible := True;
Connect;
Visible:= true;

Documents.Open(ov_filename,ovConfirmConversions,ovReadOnly,ovAddToRecentFile
s,ovPasswordDocument,ovPasswordTemplate,

ovRevert,ovWritePasswordDocument,ovWritePasswordTemplate,ovFormat,ovEncoding
,ovVisible);

"Bob Berry" <callbob (AT) paymentsinhand (DOT) com> wrote

Steve M · Guest

I think you should use the Add method which applies to Documents (the Documents
collection property of WordApplication, I think)

Syntax

expression.Add(Template, NewTemplate)

expression Required. An expression that returns a Documents object.

Template Optional Variant. The name of the template to be used for the
new document. If this argument is omitted, the Normal template is used.

NewTemplate Optional Variant. True to open the document as a template.
The default value is False.

In your example
Documents.Add(ovFilename, ovFalse); //to create a new document based on your
test template
or
Documents.Add(ovFilename, ovTrue); //to open the template itself

--
Steve

Bob Berry · Guest

Steve,

Thanks very much for your help on this. Here is what finally worked for me:

ov_filename := tpath + 'test.dot';
ov_visible := True;
ov_newtemplate := False;
ov_documenttype := wdTypeTemplate;
Connect;
Visible:= true;
Documents.Add(ov_filename, ov_newtemplate, ov_documenttype, ovVisible);

"Steve M" <spamyenotsteve (AT) letyenotspamsilverlink (DOT) co.uk> wrote