そのときに出てきた質問が、「今まで自分が登録したショートカットを忘れてしまった場合どうしたらいいのか？」です。
うーん。。。
答えに窮しまして、作ったのが今回のマクロ。お題をどうもありがとうございました（笑）。
▼このマクロでできること
ノーマルテンプレートに登録したキーボードのショートカットを新規文書に書き出します。
以下、私が使っているマクロのショートカットの例（一部）です。
以下の表を自動で作ります。
登録したこと自体を忘れていたマクロがあって、案外楽しい発見があります。
|
Project.表示.SFA_スクロール_上_3 |
Alt+PageUp |
|
Project.表示.SFA_スクロール_下_3 |
Alt+PageDown |
|
Project.Web検索.SFA_英辞郎検索 |
Alt+A |
|
Project.MWM.MWM_Antecedent |
Alt+F |
|
Project.カーソルジャンプ.SFA_段落ジャンプ |
Alt+J |
|
Project.標準マクロ.MWM_解除_段落_書式 |
Alt+P |
|
Project.vct_Google_詳細検索.vct_Google_詳細検索 |
Alt+S |
|
Project.文字入力.SFA_テキスト貼付 |
Alt+T |
|
Project.表示.SFA_ズームアウト |
Alt+, |
|
Project.表示.SFA_ズームイン |
Alt+. |
|
Normal.NewMacros.MWM_選択したキーワードの個数を数える |
Alt+@ |
▼マクロの解説
赤文字部分で、キーボードに割り付けた内容をタブ区切りで書き出しています。
青文字部分で、タブ区切りの文字列を表に変換しています。
▼マクロ
Sub キーボードショートカットの書出し()
Dim myKB As KeyBinding
Dim myDoc As Document
CustomizationContext = NormalTemplate
Set myDoc = Documents.Add
For Each myKB In KeyBindings
With myKB
myDoc.Range.InsertAfter _
Text:=.Command & vbTab & .KeyString & vbCr
End With
Next myKB
With ActiveDocument
.Range.ConvertToTable Separator:=wdSeparateByTabs
With .Tables(1)
.Style = "表 (格子)"
.AutoFitBehavior (wdAutoFitContent)
End With
End With
End Sub
▼お知らせ
マクロセミナーを開催中！！
まだまだ参加者を募集中です。
2/6（月），2/20（月） ワードマクロ勉強会 in 東京
マクロが読めるようになる！
ワイルドカードを使えるようになる！
3/24（土） 『Wordマクロで作業スピードアップ』セミナー
はじめてマクロを使ってみる！
マクロをキーボードに登録して何度も使ってみる！
▼関連記事
マクロコードの登録方法
ツールバーのボタン登録