51Testing软件测试论坛

标题: 我想将result存入word文档 [打印本页]

作者: 金城月 时间: 2007-5-15 09:53
标题: 我想将result存入word文档
各位战友，我想将运行结果截图存入word文档中，这个用vbs怎么实现呢？
Set p = CreateObject("Word.Application")？

怎么办啊

作者: 风过无息 时间: 2007-5-15 11:22
Set oWord = CreateObject("Word.Application")
oWord.DisplayAlerts = False
oWord.Visible = False
oWord.documents.open "AbsolutePath2WordDoc.doc"
Set oDoc = oWord.ActiveDocument
Set oRange = oDoc.content
oRange.ParagraphFormat.Alignment = 0
oRange.insertafter vbcrlf '& " " & vbcrlf
oRange.collapse(0)
oRange.InlineShapes.AddPicture "ImagePath.bmp", False, True
oWord.ActiveDocument.Save
oWord.Application.Quit True
Set oRange = Nothing
Set oDoc = Nothing
Set oWord = Nothing

作者: 金城月 时间: 2007-5-18 16:54
感谢，风过无息，我现在已经基本了解了。

作者: yuandjing 时间: 2007-5-21 15:41
“风过无息”是哪期的？
哪里都有你的身影，高手，向你学习

作者: cabrite 时间: 2007-5-21 16:22
这个很有用啊

作者: brianq 时间: 2007-5-24 14:46
受益，不错的想法！

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)