高手问五
我想在 Delphi 程序中直接调用 Word 文档并使用 Word 的功能，这个程序该怎样!!
全部回答
方法一: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编程帮助。
热点推荐
热度TOP
-
泉州哪家男科好？
100人阅读
-
后来听说这病容易复发是真的吗？
51人阅读
-
兰州比较好的男科医院在哪里？（兰州利民医院）男科
31人阅读
-
能瞒得住吗？。。。
39人阅读
-
义乌哪家男科比较好，义乌常春怎么样？
40人阅读
-
成都哪家医院做人流好选棕南?
48人阅读