如何改造WORD菜单?(100分)

请问如何改造WORD菜单? 即将我自己的工具条加入到WORD菜单中。

你可以手工添加菜单，也可以用vba宏语句来实现


Sub AddCommandBar()
Dim A As CommandBar
Dim b As CommandBarButton

Set A = CommandBars.Add("temp")
A.Position = msoBarTop
A.Visible = True
Set b = A.Controls.Add(Type:=msoControlButton)
b.Caption = "dddd"
b.Style = msoButtonCaption
b.OnAction = ""


Set b = Nothing
Set A = Nothing
End Sub

接受答案了.