WORD打开指定的文件，关闭后自动地保存到数据库中(100分)

Z

zhangyvping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-12

• #1

以下是DELPHI5的一段例程，搞了半天，却不知道怎么让WordObject在visible的时候
打开指定的文件，请各位兄弟指点。
uses
AutoImpl;

var
WordObject : TWordObject;

procedure TForm1.LaunchButtonClick(Sender: TObject);
begin
if not Assigned(WordObject) then begin
WordObject := TWordObject.Create;
with WordObject do begin
Caption := 'Delphi is RAD!';
Visible := True;
OnQuit := AppQuit;
OnDocumentChange := AppDocumentChange;
OnNewDocument := DocNew;
OnOpenDocument := DocOpen;
OnCloseDocument := DocClose;
end;
end;
end;

 

S

sunhood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-12

• #2

procedure TPrint_BQ_Form.SpeedBPrewClick(Sender: TObject);
var
sStr,OFalse : OleVariant;
begin
sStr := "";
sStr := Edit1.text;//Edit1.text中的内容为你选定的文件及路径"C:/My Documents/aa.doc";
WordApplication1.Visible := True;
WordApplication1.Documents.Add(sStr,OFalse);
end;
这样就ok了。

 

Z

zhangyvping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #3

要用WordApplication1.Documents.OPEN(FileName,...(其它9个参数));
不过，我还要查查这9个参数怎么写。

 

S

sunhood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-19

• #4

>>这9个参数怎么写。
定义9个OleVariant变量，赋予对应的值，在按顺序写入即可。

 

Z

zrj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-20

• #5

FileName := dlgOpen.FileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;

WordApplication.Documents.Open( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );

这就ok了吧?

 

Z

zhangyvping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-09

• #6

今天才上得来.我给filename一个全路径的文件名, word 却总是找不到这个文件.

 

黄

黄文林

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #7

关注

 

S

sunhood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-10

• #8

定义9个OleVariant变量，再按照zrj的方法写，没问题!

 

Z

zhangyvping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-03

• #9

对不起，前段一直较多事，顾不过来做试验，今天再试了一下，还是找不到文件，用
WdAppFile := OpenDialog1.FileName;也不行
另外说明：我用的是win98se+word2000.

 

S

sunhood

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #10

var
FileName ,ConfirmConversions ,ReadOnly ,AddToRecentFiles ,PasswordDocument ,
PasswordTemplate ,Revert ,WritePasswordDocument ,WritePasswordTemplate ,
Format : OleVariant
begin
FileName := OpenDialog1.FileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;

WordApplication.Documents.Open( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format );

end;
这样才可以

 

R

rongercao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #11

uses comobj;
var
msword:variant;
msword:=createoleobject('word.application');对于word95要换成word.basic
msword.documents.open(filename:='指定的文件路径+文件名',readonly:=true);
msword.visible:=1;
保存呢，可以用
msword.documents.save;

 

Z

zhangyvping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #12

多人接受答案了。