如何利用 OLE 向 Word 添加文本
编号：QA003819
建立日期: 2001年1月30日 最后修改日期：2001年2月4日
所属类别：
师伟:
操作系统: Windows98
编程工具: C++ Builder 5.0
问题: 利用 OLE 的以下代码已经启动了 Word ,但我不知道如何利用 OLE 向 Word 添加文本
Variant MyWord;
MyWord=CreateOleObject("Word.Application");
MyWord.OlePropertySet("Visible",true);
希望在这里能够获得答案。谢谢。
水平: 中级
回答:
如果你不知道Word中的命令，可以使用Word的“录制宏”功能录制一段操作，然后使用编辑宏的办法看看这段操作对应的VBA命令是什么。使用BCB，可以写为：
Variant MyWord, MyDocument, MySelection;
Procedure typeText("TypeText");
MyWord = CreateOleObject("Word.Application");
MyWord.OlePropertySet("Visible", true);
MyDocument = MyWord.OlePropertyGet("Documents");
MyDocument.OleFunction("Add");
MySelection = MyWord.OlePropertyGet("Selection");
MySelection.Exec(typeText << "http://askpro.yeah.net");
下面是功能相同的一段DELPHI代码：
var MyWord:Variant;
procedure TForm1.Button1Click(Sender: TObject);
begin
MyWord := CreateOleObject('Word.Application');
MyWord.Visible := true;
MYWord.Documents.Add;
MyWord.Selection.TypeText('http://askpro.yeah.net');
end;
此问题由李海回答。
| |
|
|
| |
|
|
