操作word高手请进！(100)

有2个word文件A和B。如何实现把A的第一页内容拷到B的第二页，并且B的其他内容不变。

高手请指教啊 如果有好的解决方案（包括代码），本人再加100分

在A中从Selection的最开始处一直Selection.MoveDown下来（wdExtend选中），判断再次遇到Selection.Information(wdFirstCharacterLineNumber)=1 //第一行则取到了第一页内容，Selection.Copy之同样方法定位到B的第二页第一行，paste之，完成。

你是不是录制的宏？ 我现在又想到新的做法就是 把A直接插入到B 一会录制个宏在delphi代码里试一试有问题再请教你，问题解决分及送上。

再请教一个问题，现在我可以用delphi中的OleVariant对word的宏进行简单的操作，但是复杂的我不知道怎么写了比如说我在word里录制了一个宏如下：ChangeFileOpenDirectory "C:/a/"Selection.InsertFile FileName:="word1.doc", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=FalseChangeFileOpenDirectory "D:/b/"Selection.InsertFile FileName:="word1.doc", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False我先说明一下这个宏的意思就是把“C:/a/word1.doc”和“D:/b/word1.doc”插入到已经打开的word里。请教如何用delphi代码对其进行操作，高手请赐教啊！

又请教了一个高手，把宏转成delphi原来也很简单 问题解决，就叶哥一个人帮我分送你了，可能我还会遇到一些问题到时候再请教叶哥您，希望您能赐教，在此先谢谢了