我想将result存入word文档

金城月

各位战友，我想将运行结果截图存入word文档中，这个用vbs怎么实现呢？
Set p = CreateObject("Word.Application")？

怎么办啊

风过无息

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

金城月

感谢，风过无息 ，我现在已经基本了解了。

yuandjing

“风过无息”是哪期的？
哪里都有你的身影，高手，向你学习

cabrite

这个很有用啊

brianq

受益，不错的想法！