word 宏自定义工具栏
在VB中的代码.新建一个word 然后创建一个自定义的工具新建栏
但是 msoControlButton msoControlSplitButtonPopup 未定义,也不知道怎么定义
Dim MyDocument As Word.Document
Dim MySelc As Word.Selection
'申明变量
Set MyWord = New Word.Application
MyWord.Visible = True
'创建一个word实例
Set MyDocument = MyWord.Documents.Add
MyWord.Application.CommandBars.Add(Name:="自定义 1").Visible = True
With MyWord.Application.CommandBars("自定义 1").Controls
.Add Type:=msoControlButton, ID:=113, _
Before:=1
.Add Type:=msoControlButton, ID:=114, _
Before:=2
.Add Type:=msoControlSplitButtonPopup, ID _
:=3962, Before:=3
.Add Type:=msoControlButton, ID:=108, _
Before:=4
.Add Type:=msoControlSplitButtonPopup, ID _
:=401, Before:=5
.Add Type:=msoControlSplitButtonPopup, ID _
:=340, Before:=6
.Add Type:=msoControlButton, ID:=290, _
Before:=7
End With