Tworddocument控件中,如何实现将Tworddocument的内容保存到指定的地方(已提供原代码参考)。请教
Tworddocument控件中,如何实现将Tworddocument的内容
保存到指定的地方(已提供原代码参考),如:我想关闭
Tworddocument时,自动保存到c:/temp.doc
窗口共有三个控件:worddocument1,wordapplication1,button1;
下面提供打开指定文件原的代码,但我不知道保存到指定文件的代码是怎么写?
(打开一个WORD文件代码)
button1-----------click 代码为
procedure TForm1.Button2Click(Sender: TObject);
var
Filename,PasswordDocument,PasswordTemplate,WritePasswordDocument,
WritePasswordTemplate,Encoding,ConfirmConversions,ReadOnly,
AddToRecentFiles,Revert,Visible,
Format,ItemIndex:olevariant;
begin
wordapplication1.connect;
wordapplication1.visible := true;
wordapplication1.caption := 'delphi automation';
{open document}
FileName := 'C:/temp.doc';
ConfirmConversions:= False;
ReadOnly:=False;
AddToRecentFiles:=False;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=True;
WritePasswordDocument:='';
WritePasswordTemplate:='' ;
Format:=wdOpenFormatDocument;
Visible := true;
Encoding := '';
WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible);
ItemIndex:= 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
end;