87,996
社区成员
发帖
与我相关
我的任务
分享急,如何用script给word添加button
<script language="VBScript">
Sub Foxmail()
Set Wrd = CreateObject("Word.Application")
Set MyBar = CreateObject("Word.CommandBar")
Set MyButton = CreateObject("Word.CommandBarButton")
' Set MyButtonType = CreateObject("Word.MsoControlType.msoControlButton")
Wrd.Visible = True
MyBar = Wrd.CommandBars.Add("Test",,,)
MyButton = MyBar.Controls.Add(msoControlButton,"2222",,,)
End Sub
</script>
但是最后一句不行, 谁能给我个例子
Sub Foxmail()
Set Wrd = CreateObject("Word.Application")
Set MyBar = CreateObject("Word.CommandBar")
Set MyButton = CreateObject("Word.CommandBarButton")
' Set MyButtonType = CreateObject("Word.MsoControlType.msoControlButton")
Wrd.Visible = True
MyBar = Wrd.CommandBars.Add("Test",,,)
MyButton = MyBar.Controls.Add(msoControlButton,"2222",,,)
End Sub
</script>
但是最后一句不行, 谁能给我个例子
...全文
