uses
 ComObj;

const
 msocontrolButton = 1;

procedure TForm6.Button1Click(Sender: TObject);
var
 WordApplication, CommandBar, CommandControl : Variant;
begin
 WordApplication := CreateOleObject('Word.Application');
 CommandBar := WordApplication.CommandBars.Add('My Toolbar');
 CommandControl := CommandBar.Controls.Add(msocontrolButton);
 CommandControl.Caption := 'My Button';
 CommandControl.FaceID := 2;
 CommandControl.OnAction := 'Макрос1';
 CommandBar.Visible := True;
 WordApplication.Visible := True
end;

Добавить в макросы

Sub Макрос1()
  MsgBox ("Hello, World")
End Sub

ExcelApplication.MacroOptions(macro,'Macro description');