Delphi控制Word的问题(50分)

  • 主题发起人 主题发起人 zbr
  • 开始时间 开始时间
Z

zbr

Unregistered / Unconfirmed
GUEST, unregistred user!
请问下面的代码斜线内代码怎么改?这句代码不正确,原因是Ole不支持。其余代码都正确。谢谢!
var
Word,Doc: Variant;
begin
Word:= CreateOleObject('Word.Application');
Doc:= Word.Documents.Add;
Doc.Tables.Add(Word.Selection.Range,5,2);
Word.Selection.TypeText('2');
Word.Selection.TypeParagraph;
/////// Word.MoveLeft(wdcharacter,1);///////////////////
Word.Selection.TypeText('3');
Doc.SaveAs('D:/Zbr/test1.doc');
Word:= Unassigned;
end;
 
Word.selection.MoveLeft(Count:=1);
这样使用没有问题
使用:
Word.selection.MoveLeft(unit:=wdCharacter,count:=1);
提示 wdCharacter 没有定义。
 
wdCharacter 小写就可以了,不知道怎么回事,delphi?怎么判断变量已经定义?
 
谢谢abin30,其实在Uses处添加上Word2000,wdcharacher就不会提示没有定义的错误了。我的意思是Ole语法不支持MoveLeft。
 
多人接受答案了。
 
后退
顶部