现在连接WORD的代码如下,如何才能一次打开我的帮助文件。procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    WordApplication1.Connect; //后台启动word程序;
  except
    MessageDlg('Word没有安装!',mterror,[mbOK],0);
    Abort;
  end;
  WordApplication1.Visible:=True;  //前台显示word;
end;

解决方案 »

  1.   

    Var
      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;
      

  2.   

    做成chm吧
    word的太麻烦
    楼上的做法其实对于整个过程来讲,意义不大
    帮助是用来查的,不是程序要处理的数据
      

  3.   

    可以用shellexec...什么的打开的呀,查查看,我懒了
      

  4.   

    ShellExecute(handle, "open", 'myhelp.doc', Nil, Nil, SW_SHOWNORMAL);
      

  5.   

    用ShellExecute
    在uses
    要加上shellapi
      

  6.   

    程序,要尽可能的高效,简洁!为什么不做 成chm的?
      

  7.   


    ShellExecute(handle,'open','帮助文件名','','',SW_ShowNormal); 
    参数为:窗口句柄,打开方式,执行文件路径,执行参数,初始目录,运行方式