Hi,
I have created a new button in CommandBar:

Sub CreateButton()
   Dim nBtn As Office.CommandBarButton
   Dim cBar As Office.CommandBar
   Dim BtnExists As Boolean
   Dim Pos As Integer
   Dim i As Integer

   On Error GoTo eh

   Set cBar = Application.CommandBars("File")
   Let BtnExists = False

   For i = 1 To cBar.Controls.Count
       If cBar.Controls(i).Caption = "MyButton" Then
          Let BtnExists = True
       End If
       If cBar.Controls(i).Caption = "Save &As..." Then
           Let Pos = i + 1
       End If
   Next

   If BtnExists Then
       Set nBtn = cBar.Controls("MyButton")
   Else
       Set nBtn = cBar.Controls.Add(msoControlButton)
       Let nBtn.Caption = "MyButton"
   End If
   Call nBtn.Move(Before:=Pos)
   Let nBtn.OnAction = "RunAPI"
   Exit Sub
eh:
   MsgBox ("Error " & CStr(Err.Number) & ": " & Error)
End Sub

Then I need to erase that button while closing document. I tried either
to reset CommandBar (cBar.Reset) or call Delete method (Call
nBtn.Delete(False)) on that button. Works fine, but only for current
session. After that, when I open Word, button is still there.

Any suggestion? I need to erase the button permanently.

Thanks in advance. Jiri