如何在一个打开的woed文档中追加另个woed文档?

Question

我查了一下函数，在Paragraphs中定义的是：
function  Add(var Range: OleVariant): Paragraph; safecall;
所以
WordApplication1.Documents.Item(1).Paragraphs.Add(yourRange);

Answer 1

你刚才的问题里我已经答了一遍，
WordApplication1不能用，用WordDocument1。

Answer 2

 WordDocument.Paragraphs.Last.Range.InsertFile

Answer 3

WordDocument.Paragraphs.Last.Range.InsertFile('Filename',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    

Answer 4

to  wk_knife(告别石器时代):
27分在前面的问题中已全部给你了，但我想说的是WordDocument.Paragraphs.Last.Range.InsertFile('Filename',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
把先打开的word文件的最后一行给替换了!!!我要的是追加，即在先打开的word文件中增加一个段落，然后再把想要合并的文件insertfile。
现在我遇到的问题是不能增加段落（必须用控件),哎这个语法怎么这么烦，大家帮帮忙呀
    　

Answer 5

看\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word这个例子有三句如下的语句
    WordDocument.Range.InsertAfter(' ' + #13);
    WordDocument.Range.InsertAfter(' ' + #13);
    WordDocument.Range.InsertAfter(' ' + #13);
你可以照猫画虎
    WordDoCument.Paragraphs.Last.Range.InsertAfter(' '+#13);
    WordDoCument.Paragraphs.Last.Range.InsertFile 
                 (FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
祝你的流合并早日成功。        

Answer 6

另外，vba是个有意思的东西，你也可以这样实现
    WordDocument.Sentences.Last.InsertAfter (' ' + #13);
    WordDoCument.Sentences.Last.InsertFile               
                 (FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    

Answer 7

非常感谢wk_knife(告别石器时代),我终于快要看到胜利的曙光了！！！
thank you very much!!!分数已加了