我在ole容器里新建了一个空word文档,我想通过button把edit1和edit2的内容分别插入文档的第一行和第二行,怎么办啊?(50分)

  • 主题发起人 主题发起人 xiaoxiami2
  • 开始时间 开始时间
X

xiaoxiami2

Unregistered / Unconfirmed
GUEST, unregistred user!
我在ole容器里新建了一个空word文档,我想通过button把edit1和edit2的内容分别插入文档的第一行和第二行,怎么办啊?
 
自己看吧,内容很全的。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517
 
procedure TForm1.Button1Click(Sender: TObject);
var
l_Selection: olevariant;
l_WordHand, l_DocHand: OleVariant;

begin

Try
l_WordHand := GetActiveOleObject('Word.Application');
Except
Try
l_WordHand := CreateOleObject('Word.Application');
Except
Application.MessageBox('Word没有安装', '提示', 48);
Exit;
End;
End;
l_wordhand.visible := True;
l_DocHand := l_WordHand.Documents.Add( '',False);
l_Selection := l_wordhand.selection;
l_Selection.TypeParagraph;
l_Selection.TypeText(edit1.text);
l_Selection.TypeParagraph;
l_Selection.TypeText(edit2.text);
end;
 
to 完颜康:
出错!
 
多人接受答案了。
 
后退
顶部