关于对Word文档操作的简单问题，送分！

Question

怎么没有人回应啊，是不是分给少了，可以加的！

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;
//其中f:\mynew.ttk.dot是一个模板