スキルアップ・問題解決なら、モーグにおまかせ！

すみません、再質問です。
 
STARTUPフォルダに登録して右クリックメニューコマンドは実装できたのですが、これではテンプレートを削除したあとにメニューが残りっぱなしになってしまいます。
 
ExcelならばAddinUninstallでメニューを消してしまうことが可能ですが、Wordでこのようなことは、どう実装すれば実現できるのでしょうか。
 
これが解決できないと、安易にテンプレートを配布して使ってもらうのもためらってしまいます。
 
お知恵拝借いたします。

AutoExitでメニューを消すのでは駄目でしょうか。
Wordを開いている間は、STARTUPに入れたアドイン（テンプレート）を削除できないので、
削除する場合はメニューが必ず消えていることになると思います。

またまたありがとうございます。
 

引用:
Wordを開いている間は、STARTUPに入れたアドイン（テンプレート）を削除できない

参考リンクです。
https://docs.microsoft.com/ja-jp/office/vba/word/concepts/customizing-word/auto-macros
 
アドインを解除すると、Wordを開いていてもSTARTUPからそのファイルを削除できますね。
その場合も、解除時にAutoExitが動きます。

標準モジュールに下のようなマクロを組み、STARTUPフォルダにマクロ有効テンプレートを入れました。
 
Const cpt As String = "自動設定"
Sub AutoExec()
    '右クリックメニュー設定
    With Application.CommandBars("text") '文書上での右クリックメニューに追加
        With .Controls.Add(Type:=msoControlButton)
          .Caption = cpt
          .OnAction = "AStart"
        End With
    End With
End Sub
 
Sub AutoExit()
    MsgBox "メニューを削除"
    Application.CommandBars("text").Controls(cpt).Delete
End Sub
 
Wordを起動し、右クリックすると「自動設定」メニューが表示されます。
Wordと閉じると、MsgBox "メニューを削除"　が表示されます。（AutoExitは動いた）
 
ところがまたWordを起動すると、「自動設定」メニューが２つになっています。
イミディエイトウィンドウで
    Application.CommandBars("text").Controls(cpt).Delete
を実行すると、メニューは消えます。
 
AutoExitプロシージャに不足しているコードがあるのでしょうか？

海外のフォーラムを参考に、少し試行錯誤した上での推測です。
（誤りがあるかもしれません。）
 
・ツールバーの変更などはデフォルトではNormal.dotmに保存される。
・AutoExitでのツールバーの削除はそのままではNormal.dotmには保存されない。
 
そこで、以下のように少し方針を変更してみました。

Option Explicit
Const cpt As String = "自動設定"
Sub AutoExec()
    '右クリックメニュー設定
    Application.CustomizationContext = ThisDocument  '…�@
    With Application.CommandBars("text")
        With .Controls.Add(Type:=msoControlButton)
          .Caption = cpt
          .OnAction = "AStart"
        End With
    End With
    ThisDocument.Saved = True  '…�A
End Sub

赤字部分3行追加してみてください...
 
Sub AutoExec()
    '右クリックメニュー設定
    With Application.CommandBars("text") '文書上での右クリックメニューに追加
        On Error Resume Next
        .Controls(cpt).Delete
        On Error GoTo 0
        With .Controls.Add(Type:=msoControlButton)

K.Hiwasaさん
 
わざわざ海外のサイトまで調べていただきありがとうございました。
 
お陰様で教えていただいたコードでSTRTUPフォルダからマクロ有効テンプレートを削除しても、メニューが残ることはなくなりました。
 
ところでもうひとつ分からないことがあります。
 
 With .Controls.Add(Type:=msoControlButton,Temporary:=True)
 
とやってみたのですが、これでもダメ（残る）でした。
これもNormal.dotmとの関係なのでしょうか・・・。
 
まだまだ勉強不足を痛感しておりますです。

んなっとさん
コメントありがとうございます。
 
今回問題にしていたのは、STARTUPからテンプレートを削除しても、右クリックメニューが残ってしまい、これを何とかしたいということでした。
 
分かりにくい質問ですみませんでした。

なぜかはわかりませんが、Temporaryが効かないんですよね。
ちなみに、過去の私は、先に紹介した方法ではなく、別の方法で対応していました。
 
AutoExitで変更内容を削除しますが、
削除の直前にNormal.dotmを開いて、直後にNormal.dotmを保存していました。
 
これは恐らくそのときの苦肉の策で、おすすめではないです。

一応、やりたいことが実現できましたので、これで解決とさせていただきます。
 
K.Hiwasaさん、んなっとさん、ありがとうございました。