BorlandTalk.com

Herbert dela Cruz · Guest

Hello!

I'm a newbie with automation using Delphi, and thanks to the internet
and newsgroups such as this, I was able to create a basic app which is
basically a form with an OleContainer containing a Word object.

My question is: Is there a way to automate the opening of password
protected files? When I tried to open a password protected file, the
Word server (I'm not sure if this is the correct term) opens up to
display the dialog asking for the file password. I would want this
"automated" so that the user: 1) doesn't see the Word server opening,
and more specially, 2) the user doesn't need to type in the password.

Thanks for your help.

- Herbert =

Oliver Townshend · Guest

Herbert dela Cruz · Guest

Hello again!

I've managed to do what I wanted. Very Happy

Thanks for the pointers and thanks
to all who have gone before me and paved the way for me to be able to
experiment.

Although my code isn't elegant, hopefully someone else might find it
useful.

-- begin code

procedure TForm1.Button1Click(Sender: TObject);
var
range: Variant;
FileName, Password: OLEVariant;
begin
try
Word := GetActiveOleObject('Word.Application');
except
Word := CreateOleObject('Word.Application');
end;

FileName := 'C:\temp\t2.doc';
Password := 'thepass';

//open the doc
Word.Documents.Open (FileName, EmptyParam, EmptyParam, EmptyParam,
Password, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

//copy the contents
range := Word.ActiveDocument.Content;
range.Select;
range.Copy;

//paste it into the OleContainer
OleContainer1.CreateObject('Word.Document.8',False);
OleContainer1.Paste;
OleContainer1.DoVerb (ovPrimary);
end;

-- end code

Herbert dela Cruz · Guest

Hello!

First off, sorry for that double post. I'm using a new newsreader
program and I didn't know that it could actually resend something that
was already sent.

Secondly, thanks Oliver, for your response.