怎么在DELPHI里运行WORLD文件。

Question

用ole或servers里面的wordapplication等控件

Answer 1

我觉得用ole更方便就可以直接控制Word

Answer 2

这里有一个打开Excel文件的例子，可以参考一下
function TfrmZSNewSum.OpenSum(sumtitle: string): boolean;
var
  ExcelApp: Variant;
begin
  if FileExists('.\data\'+sumtitle+'.xls') then
  begin
    ExcelApp:=CreateOleObject('Excel.Application');
    ExcelApp.Visible :=True;
    ExcelApp.WorkBooks.Open('.\data\'+sumtitle+'.xls');
  end
  else
  begin
    Application.Messagebox('对不起，没有相应的文件，请先生成统计表再打开！','提示',MB_OK+MB_ICONQUESTION);
  end;end;

Answer 3

zx: Variant;
zx:=CreateOleObject('word.Application');

Answer 4

不用这么多,用Servers里面的WordApplication和WordDocument不就行了  WordApp.WindowState:=wdWindowStateMaximize; //设置窗口为最大
  WordApp.Visible:=True;
  WordDoc.ConnectTo(WordApp.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));就行了！

Answer 5

uses comobj;var
  word:variant;
begin
   word:=createoleobject('wold.application');
   word.visible:=true;
   word.documents.add;
   word.selection.typetext('test');
   
end;
 谢谢访问我的网站 http://www.zgzy.net.cn

Answer 6

如果只是打开，可以用：shellexecute('word文件');