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