关于调用脚本的方法,我在 vckbase
发表了好几篇文章(鬼知道我为什么对脚本这么有兴趣)。ShowHTMLDialogEx()函数中,如果类型参数给出
HTMLDLG_NOUI,则表示并不真正显示一个对话窗,而是加载指定的 HTML
并执行其中的脚本。示例程序的该脚本中,执行一连串的动作,完成了把上一个 HTML 对话窗中用户输入的文本,发送到 MS WORD
中去。以此上下串联起来,演示了本文章中所讨论的所有功能。下面我把脚本和注释给朋友们展现一下:
On Error Resume Next
Set wordapp=CreateObject("Word.Application") ''''运行 MS WORD
if err<>0 then
MsgBox("没有安装 MS WORD")
else
wordapp.visible = true ''''显示WORD界面
wordapp.Documents.Add "",false, 0 ''''新增一个空文档
wordapp.Selection.TypeText window.dialogArguments ''''键入传递进来的文本
end if
window.close '''' 关闭