关于word控件—2（帮忙写下文）。急。

Question

我想打开在OpenDialog1中选择的word文档，要怎样继续？
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    if OpenDialog1.Execute then
    begin
      WordApplication1.
    end;
  end;
end;谢谢

Answer 1

1、“打开word文件”实现过程：
wordapplication:=CreateOleObject('Word.Application');
//创建word服务器
  wordapplication.Visible:=True;
//使word服务器可见，否则将在后天工作
   if OpenDialog1.Execute then   //判断是否打开文件
      begin
      Filename:=OpenDialog1.Filename;
      worddocument:=wordapplication.Documents.Open(FileName);
         //把打开文档的内容传给worddocument变量
      ……//这部分省略了一些按钮控制代码
   else
      begin
      wordapplication.Quit;
      N2.Enabled:=True;
      end;
   Memo1.Text:='';
   Memo1.Lines.Add('打开一个word文档'+FileName);
   sleep(1000);//睡眠一秒
   Form1.AlphaBlend:=True //设置窗体为透明
    2、“保存文件”的实现过程：
      点击菜单项“文件（F）”－>保存文件，然后在弹出的程序中添加如下代码：
      worddocument.SaveAs(FileName);//保存文件
      Memo1.Lines.Add('保存word文件'+FileName);
//在文本域中输出保存信息
3、“另存为”的实现过程：
      首先，在窗体上放置一个“SaveDialog1”控件（在Dialogs控件栏下）照OpenDialog1设置其filter属性；接着，在点击菜单项“文件（F）”－>另存为，然后在弹出的程序中添加如下代码：
          if SaveDialog1.Execute then//判断是否要保存
           worddocument.SaveAs(FileName);//弹出另存为对话框
           Memo1.Lines.Add('文件另存为：'+SaveDialog1.FileName);
           sleep(500);
           Form1.AlphaBlend:=True //设置窗体为透明
4、“关闭文件”实现过程：
      点击“关闭文件”，添加如下代码：
      wordapplication.Quit(EmptyParam,EmptyParam);

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    ItemIndex,name,docs:olevariant;
begin
if form1.OpenDialog.Execute then
    begin
        if trim(form1.OpenDialog.FileName)<>'' then
        begin
         screen.Cursor:=crhourglass;
try
                wordapplication.Connect;   wordapplication.Visible:=False;
                ItemIndex:=1;
                name:=form1.OpenDialog.FileName;
                docs:= wordapplication.Documents;
                docs.Add(Template :=name,NewTemplate :=false);
                worddocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
                olecontainer.CreateLinkToFile(form1.fpath,True);
                olecontainer.Hint:='单击该控件'+#13+Edit9.Text;
         finally
                worddocument.Close;
                wordapplication.Disconnect;
                screen.Cursor:=crdefault;
            end;
        end;
    end;
end;

Answer 3

试试办公之星控件，客户端无须安装office软件名称:办公之星控件（OStarOCX）
软件版本:V1.02
更新日期:2003.9.18
运行环境:Win9x/2000/Nt/xp
支持语言：VC/VB/PB/Dephi/ASP/JSP
界面语言:简体中文
授权方式:试用软件
软件大小:1036KB 
官方网址:http://www.standsoft.com
电子信箱:[email protected]
软件作者:深圳智岛软件有限公司
演示工程下载：http://www.oapro.com/ostarocx/download_demo.asp
在线演示：http://www.oapro.com/ostarocx/product_demo.asp
控件简介:    办公之星控件(OStarOCX)是智岛软件公司(http://www.standsoft.com)推出的一款基于图文混排的文档处理控件(类似Word的控件)，办公之星控件(OStarOCX)完全封装了办公之星的文字、图形、表格、图表等功能，提供了几百个编程接口；在ERP、CRM、HR、OA等系统里，开发难度非常大的文档处理、统计、报表等输出功能都可由办公之星控件(OStarOCX)轻松实现，其所见即所得的效果跟现实里的完全一样。办公之星控件(OStarOCX)适用于Windows环境的各种开发工具(如VB，VC，Delphi,C+Builder, PB, Java等), 并且针对Web开发环境做了大量的优化。

Answer 4

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    if OpenDialog1.Execute then
    begin
      OleContainer1.CreateObjectFromFile(opendialog1.filename,false);
      OleContainer1.DoVerb(0);
    end;
  end;
end;