高手问五我想在Delphi程序中
方法一:1)从WORD。EXE中导入WORD的TypeLibrary2)varwd:_Application; , :='c:\abc。dot';wd:=coApplication_。Create;wd。 Documents。Add(dot1,EmptyParam);wdt:=wd。ActiveDocument。Tables。Item(1);wdt。Cell(1,3)。Range。Text:='Hello!';//以下是保存和关闭文档及Word,可以不关,下面两个例程略过此步。 //EmptyParam用来代替不使用的参数。FileName:='c:\test。doc';wd。Acti...全部
方法一:1)从WORD。EXE中导入WORD的TypeLibrary2)varwd:_Application; , :='c:\abc。dot';wd:=coApplication_。Create;wd。
Documents。Add(dot1,EmptyParam);wdt:=wd。ActiveDocument。Tables。Item(1);wdt。Cell(1,3)。Range。Text:='Hello!';//以下是保存和关闭文档及Word,可以不关,下面两个例程略过此步。
//EmptyParam用来代替不使用的参数。FileName:='c:\test。doc';wd。ActiveDocument。SaveAs(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);wd。
ActiveDocument。Close(EmptyParam,EmptyParam,EmptyParam);wd。Quit(EmptyParam,EmptyParam,EmptyParam);end;方法二: :Variant; //方法二的参数可以直接使用Delphi的数据类型。
其它方法只能使用OleVariant类型。Ole:=CreateOleObject('Word。Application');Ole。Application。Visible:=true;NewDoc:=Ole。
Documents。Add('C:\abc。dot');DocTable:=NewDoc。Tables。Item(1);DocTable。Cell(1,3)。Range。Text:='Hello!';//设置Variant对象为UnAssigned来释放该对象的引用。
NewDoc:=UnAssigned;DocTable:=UnAssigned;Ole:=UnAssigned;end;方法三:使用Server页的TWordApplication控件,同理,你可以用里头的所有控件。
Ole为TWordApplication控件名称。 :Variant;o:OleVariant;begino:='c:\abc。dot';NewDoc:=Ole。Documents。Add(o,EmptyParam);DocTable:=NewDoc。
Tables。Item(1);DocTable。Cell(1,3)。Range。Text:='Hello!';NewDoc:=UnAssigned;DocTable:=UnAssigned;end;推荐用方法一和方法三。
因为方法二不提供类型参数检查,也因为方法二的接口调用效率低。程序中所使用的属性和方法资料可以在Office的VBA帮助中查到。需要者请在安装Office时选择安装VBA编程帮助。收起