Oprette fast commandbar i word 2007
Jeg har brug for at oprette en commandbar med en control i, som ligger fast i Word.Har lavet en skabelon, som jeg har lagt ind i startup mappen.
Skabelonen indenholder denne kode:
Sub AutoExec()
CreateOldCommand
End Sub
Sub CreateOldCommand()
Dim oCB As CommandBar
Dim oControl As CommandBarControl
Set oCB = Application.CommandBars.Add
oCB.Name = "GammelCommad"
oCB.Visible = True
Set oControl = oCB.Controls.Add(Type:=1)
oControl.Caption = "Flet"
oControl.OnAction = "TrykPaaNyFletKnap"
oControl.Enabled = True
oControl.Visible = True
End Sub
Sub TrykPaaNyFletKnap()
Application.CommandBars("Nycommand").Controls("Flet").Execute
End Sub
Dette virker fint nok, når jeg åbner Word, så er knappen der.
Men når jeg lukker word, og derefter åbner et dokument, som kalder Application.CommandBars("gammelcommand").Controls("Flet").Execute
så er den endnu ikke oprettet, og derefter virker det ikke.
Har også prøvet at ligge min kode ind i normal.dot men det virker heller ikke.
Er der nogen der har en ide til hvordan man løser dette?