如何不通过键盘向word里写信息

Question

用OleAutomation写。
{$Delphi}\Demos\ActiveX\OleAuto\Word8
就是现成的例子。

Answer 1

var
    Word:Variant;
    activerow: integer;
begin
    Word:=CreateOLeObject('Word.application');
    word.documents.add(Template:='f:\mynew.ttk.dot');
    word.selection.endkey;
    newword.activedocument.Paragraphs.add;
    activerow:=newword.activedocument.Paragraphs.count;
    newword.activedocument.paragraphs.item(activerow).range.text:='哈哈，加进去了。';//这里加入
end;

Answer 2

我试了一下，行是行，不过要用它的按钮启动才可以，自己打开的word
不认。