软件测试论坛 › [QuickTest Professional] › WORD 文档添加内容的问题，求代码

csj 发表于 2010-11-16 11:18:02

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

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

feiyunkai 发表于 2010-11-17 12:54:29

WORD中追加内容

本帖最后由 feiyunkai 于 2010-11-17 13:10 编辑

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 发表于 2010-11-17 13:41:35

回复 2# feiyunkai

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

csj 发表于 2010-11-17 13:43:42

回复 2# feiyunkai

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

csj 发表于 2010-11-17 13:43:52

回复 2# feiyunkai

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

yunbin_7 发表于 2010-11-17 16:44:47

学习了。。。

查看完整版本: WORD 文档添加内容的问题，求代码