在delphi中如何调用word，如果没有安装word，怎么写提示信息，word中的模板替换怎么使用

Question

谢谢大家我是一个初学者，希望各位可以给我实际的例子，但是不要太深了，谢谢，到时候散分。最好具体点，谢谢！

Answer 1

调用Word直接用ShellExec就可以了至于后面两个，不知道

Answer 2

调用Word直接用ShellExec就可以了至于后面两个，不知道

Answer 3

调用word使用WordApplication等控件就好了
判断连接可以这样
try  
  WordApplication1.Connect；
except
  showMessage（‘没有安装word’）；
end;

Answer 4

这是我前几天作的代码，希望能对你有些帮助。
启动Word时用如下代码： 
begin
try 
Wordapplication.Connect; 
except 
MessageDlg('Word may not be installed', mtError, [mbOk], 0); 
Abort; 
end; 
Wordapplication.Visible := True; 
WordApplication.Caption := 'Delphi automation'; 
end; 关闭Word用如下代码。如果想保存Doc文件，请修改SaveChanges变量的内容： 
var 
SaveChanges, OriginalFormat, RouteDocument: OleVariant; 
begin 
SaveChanges := WdDoNotSaveChanges; 
OriginalFormat := UnAssigned; 
RouteDocument := UnAssigned; 
try 
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument); 
WordApplication.Disconnect; 
except 
on E: Exception do 
begin 
Showmessage(E.Message); 
WordApplication.Disconnect; 
end; 
end; 
end; 让Word打开一个指定的文件，需要先放置OpenDialog，然后调用WordApplication.Documents.Open： 
var 
ItemIndex :OleVariant; 
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, 
PasswordDocument, PasswordTemplate, Revert, 
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant; 
begin 
if not dlgOpen.Execute then 
Exit; {Open document} 
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 ); {Assign WordDocument component} 
ItemIndex := 1; 
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex)); {Turn Spell checking of because it takes a long time if enabled and slows down Winword} 
WordApplication.Options.CheckSpellingAsYouType := False; 
WordApplication.Options.CheckGrammarAsYouType := False; 
end; 让Word替换标记字符串要使用WordDocument.Range.Find.Execute，这里用Delphi替换了<#Name>： 
var 
FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, 
MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace: OleVariant; 
begin 
FindText := '<#Name>'; 
MatchCase := False; 
MatchWholeWord := True; 
MatchWildcards := False; 
MatchSoundsLike := False; 
MatchAllWordForms := False; 
Forward := True; 
Wrap := wdFindContinue; 
Format := False; 
ReplaceWith := 'Delphi'; 
Replace := True; WordDocument.Range.Find.Execute( FindText, MatchCase, MatchWholeWord, 
MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, 
Wrap, Format, ReplaceWith, Replace ); 

Answer 5

这是我贴别人的帖子
这是我用的一个例子打开一个存在的Word文件
procedure TFrmMain.BitBtn12Click(Sender: TObject);
var
//ItemIndex:OleVariant;
FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,
PasswordDocument,PasswordTemplate, Revert,
WritePasswordDocument,WritePasswordTemplate,Format:OleVariant;
begin
             WordApplication1.Connect;
             FileName:='c:\ZhiD.doc';
             ConfirmConversions:=False;
             ReadOnly:=False;
             AddToRecentFiles:=False;
             PasswordDocument:='';
             PasswordTemplate:='';
             Revert:=True;
             WritePasswordDocument:='';
             WritePasswordTemplate:='';
             Format:=wdOpenFormatDocument;
             WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,AddToRecentFiles,PasswordDocument,PasswordTemplate,Revert,WritePasswordDocument,WritePasswordTemplate,Format,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
             WordApplication1.Visible:=true;