现在连接WORD的代码如下,如何才能一次打开我的帮助文件。procedure TForm1.Button1Click(Sender: TObject);
begin
try
WordApplication1.Connect; //后台启动word程序;
except
MessageDlg('Word没有安装!',mterror,[mbOK],0);
Abort;
end;
WordApplication1.Visible:=True; //前台显示word;
end;
begin
try
WordApplication1.Connect; //后台启动word程序;
except
MessageDlg('Word没有安装!',mterror,[mbOK],0);
Abort;
end;
WordApplication1.Visible:=True; //前台显示word;
end;
ItemIndex :OleVariant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin
try
Wordapplication1.Connect;
except
Wordapplication1.Quit;
Application.MessageBox('连接WORD服务器失败,请确定您已经正确安装。','错误框',MB_OK+MB_ICONSTOP);
Abort;
end; Wordapplication1.Visible := false;
Wordapplication1.AutoQuit:=True; FileName:='C:\333.doc';//帮助文件 //参数赋值
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument; //打开文档(模板)
WordApplication1.Documents.OpenOld( FileName, ConfirmConversions,
ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
Revert, WritePasswordDocument, WritePasswordTemplate, Format ); ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex)); {Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
Wordapplication1.ActiveDocument.ActiveWindow.View.type_:=wdPrintView;
Wordapplication1.Visible:=True;
Wordapplication1.AutoQuit:=False
Wordapplication1.Disconnect;end;
word的太麻烦
楼上的做法其实对于整个过程来讲,意义不大
帮助是用来查的,不是程序要处理的数据
在uses
要加上shellapi
ShellExecute(handle,'open','帮助文件名','','',SW_ShowNormal);
参数为:窗口句柄,打开方式,执行文件路径,执行参数,初始目录,运行方式