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;
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;