如何用VBA代碼在Word中添加菜單(即命令欄)？

暗淡新菜單

尺寸控制1

昏暗的s

將標誌調成字符串

初始化菜單

設置myMenuBar = CommandBars。ActiveMenuBar

設置newMenu = myMenuBar。controls . Add(Type:= msoControlPopup，_

臨時:=真)

新菜單。Caption = "電子印章"

Set ctrl1 = newMenu。添加(類型:=msoControlButton，ID:=1)

Ctrl1。Caption = "添加電子印章"

ctrl1。Style = msoButtonCaption

ctrl1。OnAction = "AddSeal "

Set ctrl1 = newMenu。添加(類型:=msoControlButton，ID:=1)

Ctrl1。Caption = "驗證電子印章"

ctrl1。Style = msoButtonCaption

ctrl1。OnAction = "CheckSeal "

ctrl1。Style = msoButtonCaption

Set ctrl1 = newMenu。添加(類型:=msoControlButton，ID:=1)

Ctrl1。Caption = "關於"

ctrl1。OnAction = "關於"

ctrl1。Style = msoButtonCaption