有没有一种方法可以使用IBM Bluezone脚本在现有的MS Word文档中保存屏幕截图？

Question

实际上，我已经登录了会话并捕获了活动屏幕。现在，要将此屏幕快照保存在C驱动器中存在的Word文档中。该代码将需要更多屏幕截图，并且必须将其添加到同一文档中。

'Bluezone代码...

Dim bzhao

Sub Main

set bzhao = CreateObject("BZWhll.WhllObj")
bzhao.Connect ""

bzhao.SendKey "s tsostat"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 4

bzhao.SendKey "ispf"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 2

bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 2

bzhao.SelectAll
bzhao.PrintSelection

'Saving the screenshot in word file present in C drive

bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 1

bzhao.SetCursor 8, 28
bzhao.SetCursor 4, 13
bzhao.SendKey "<Tab>"
bzhao.SendKey "10.as"
bzhao.SendKey "<Enter>"
bzhao.WaitReady 10, 1

bzhao.SelectAll
bzhao.PrintSelection

'Saving the screenshot in word file present in C drive

End Sub

Main