wc726842270 (枫中残雪)当前离线
大校
With CreateObject("Word.Application") .Documents.Open("C:\a.doc") .Run "我的宏" .Quit True End With MsgBox "ok"复制代码
powerbat 当前离线
Class Excel Function Run(cmd) WScript.Echo "Disallow run " & cmd End Function End Class set obj = new Excel obj.Run "notepad"复制代码
评分人数
TOP