WORD 文档添加内容的问题，求代码

csj

往已经存在的WORD文档中添加内容，后面添加的总是放在前面，怎么才可以让后面的内容追加到文档的后面。
说明：是分几次打开文档进行添加，不是一次，添加的内容有文本，图片两种

feiyunkai

DocAdd "E:\test.doc","追加的内容"
Public Function DocAdd(FilePath,Text)
'函数功能：WORD中追加文字
'参数：FilePath：需要追加的WORD路径，Text：追加的内容
'返回值：无
Set Doc = CreateObject("Word.Application")        '创建对象
Set OpenDoc=Doc.Documents.Open(FilePath)      '打开WORD
Doc.Visible=True           '设置WORD运行时是否可见
Doc.ActiveDocument.Content.text=Doc.ActiveDocument.Content.text&Text '换行追加
'OpenDoc.Content.InsertAfter Text '不换行追加
OpenDoc.Close             '关闭文档
Doc.Quit                      '退出WORD
Set OpenDoc=Nothing   '释放对象
Set Doc =Nothing         '释放对象
End Function

csj

回复 2# feiyunkai

多谢，怎么现在不能送花了！！！！！！！！！！

csj

回复 2# feiyunkai

多谢，怎么现在不能送花了！！！！！！！！！！

csj

回复 2# feiyunkai

多谢，怎么现在不能送花了！！！！！！！！！！

yunbin_7

学习了。。。