0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 3 years have passed since last update.

Word VBA 書式の詳細設定ウィンドウの表示

Last updated at Posted at 2022-02-06
Sub 書式の詳細設定ウィンドウの表示()
    CommandBars("Reveal Formatting").Visible = True '書式の詳細
End Sub

これでさらにスタイル名を表示させる。

実際はApplicationから可能

Sub 書式の詳細設定を開く()
    Application.TaskPanes(wdTaskPaneRevealFormatting).Visible = True
End Sub

しかし、マクロの自動記録では、閉じる方でコマンドバーが記録される。

Sub 書式の詳細設定を閉じる()
    CommandBars("Reveal Formatting").Visible = False
End Sub

Application.TaskPanesプロパティ(Word)
WdTaskPanes 列挙 (Word)
この一覧にあるものはApplication.Taskpanesで開くことができる。

ショートカットキーはこちら。
http://office-qa.com/Word/wd792.htm

QATでは

RevealFormatting

スタイルの管理は見つからない

これと比較してスタイルの管理はこの方法ではないらしい。
ApplicationTaskpanedもない。
しかし、StylesManageがヒントになっt。

Sub スタイルの管理ダイアログを開く()
Dialogs(wdDialogStyleManagement).Show
End Sub

スタイルの適用

Sub スタイルの適用ウィンドウの表示()
    CommandBars("Apply Styles").Visible = True '書式の詳細
End Sub

コマンドバーを使わないコード(こちらを推奨)

Sub スタイルの適用ウィンドウを開く()
    Application.TaskPanes(wdTaskPaneApplyStyles).Visible = True
End Sub

image.png

名前からして当然だが、スタイルの切り替えが可能。

スタイルウィンドウ

Sub スタイルウィンドウの表示()
    CommandBars("Styles").Visible = True ' スタイルウィンドウ
End Sub

コマンドバーを使わないコード(こちらを推奨)

Sub スタイルウィンドを開く()
    Application.TaskPanes(wdTaskPaneFormatting).Visible = True
End Sub

Styleの切り替えが可能
image.png

image.png

スタイルの詳細情報ウィンドウ

Sub スタイルの詳細情報ウィンドウの表示()
    CommandBars("Styles").Visible = True ' スタイルの適用ウィンドウ
End Sub

コマンドバーを使わないコード(こちらを推奨)

Sub スタイルの詳細情報ウィンドウを開く()
    Application.TaskPanes(wdTaskPaneStyleInspector).Visible = True
End Sub

image.png

追加設定が見られる。

220あるようだ

Word 2021のコマンドバーを見てみる

Sub exportcmdbarname()
' WordのコマンドバーをQiitaのマークダウンに合わせた表にする
Dim wdoc As Word.Document: Set wdoc = ThisDocument
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
Dim ofile As Object, ofolder As Object, ts As Object
Dim cmdCtl As CommandBarControl
Dim var
Set ofolder = fso.getfolder("C:\hoge\hogehoge")
If Dir(ofolder.Path & "\" & "word365.txt") <> "" Then Kill ofolder.Path & "\" & "word2021.txt"
Set ts = fso.CreateTextFile(ofolder.Path & "\" & "word2021.txt", True)
ts.writeline "| index | Type " & "|" & "Controls.Count" & "|" & _
"Builtin" & "|" & "Name" & "|" & "NameLocal" & "|"
ts.writeline "|----:|:----|---:|:-:|:----|:-----|"
Dim cmdbar As CommandBar
On Error Resume Next
For Each cmdbar In Application.CommandBars
ts.writeline "|" & cmdbar.Index & "|" & cmdbar.Type & "|" & cmdbar.Controls.Count & "|" & cmdbar.BuiltIn & "|" _
& cmdbar.Name & "|" & cmdbar.NameLocal & "|"
Next
ts.writeline vbCrLf
ts.writeline vbCrLf
ts.writeline "| ID | index | Type " & "|" & _
"Builtin" & "|" & "Caption" & "|" & "Description" & "|" & "Tag |  Tooltiptext |"
ts.writeline "|----:|----:|---:|:-:|:----|:----|:--|:----|:----|"

Set cmdbar = Application.CommandBars("Lists")
Set var = cmdbar.FindControl(ID:=1732)
For Each cmdCtl In cmdbar.Controls
With cmdCtl

ts.writeline "|" & .ID & "|" & .Index & "|" & .Type & "|" & .BuiltIn & "|" & .Caption & "|" & .DescriptionText & "|" & .Tag & "|" & _
.TooltipText & "|"
End With
Next
ts.writeline vbCrLf
ts.writeline vbCrLf
ts.writeline "| ID | index" & _
 "|" & "Caption" & "|" & "Description" & "|"
For Each cmdCtl In cmdbar.Controls
With cmdCtl
ts.writeline "|" & .ID & "|" & .Index & "|" & .Caption & "|" & .DescriptionText & "|"
If Err.Number <> 0 Then
ts.writeline "|" & .ID & "|" & .Index & "|" & .Err.Number & "|" & Err.Description & "|"
Err.Clear
End If
End With
Next
ts.Close
Set fso = Nothing
End SubSub exportcmdbarname()
Dim wdoc As Word.Document: Set wdoc = ThisDocument
Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
Dim ofile As Object, ofolder As Object, ts As Object
Dim cmdCtl As CommandBarControl
Dim var
Set ofolder = fso.getfolder("C:\hoge\hogehoge")
If Dir(ofolder.Path & "\" & "word365.txt") <> "" Then Kill ofolder.Path & "\" & "word2021.txt"
Set ts = fso.CreateTextFile(ofolder.Path & "\" & "word2021.txt", True)
ts.writeline "| index | Type " & "|" & "Controls.Count" & "|" & _
"Builtin" & "|" & "Name" & "|" & "NameLocal" & "|"
ts.writeline "|----:|:----|---:|:-:|:----|:-----|"
Dim cmdbar As CommandBar
On Error Resume Next
For Each cmdbar In Application.CommandBars
ts.writeline "|" & cmdbar.Index & "|" & cmdbar.Type & "|" & cmdbar.Controls.Count & "|" & cmdbar.BuiltIn & "|" _
& cmdbar.Name & "|" & cmdbar.NameLocal & "|"
Next
ts.writeline vbCrLf
ts.writeline vbCrLf
ts.writeline "| ID | index | Type " & "|" & _
"Builtin" & "|" & "Caption" & "|" & "Description" & "|" & "Tag |  Tooltiptext |"
ts.writeline "|----:|----:|---:|:-:|:----|:----|:--|:----|:----|"

Set cmdbar = Application.CommandBars("Lists") ' 気になったものをいれて調べる
Set var = cmdbar.FindControl(ID:=1732)
For Each cmdCtl In cmdbar.Controls
With cmdCtl

ts.writeline "|" & .ID & "|" & .Index & "|" & .Type & "|" & .BuiltIn & "|" & .Caption & "|" & .DescriptionText & "|" & .Tag & "|" & _
.TooltipText & "|"
End With
Next
ts.writeline vbCrLf
ts.writeline vbCrLf
ts.writeline "| ID | index" & _
 "|" & "Caption" & "|" & "Description" & "|"
For Each cmdCtl In cmdbar.Controls
With cmdCtl
ts.writeline "|" & .ID & "|" & .Index & "|" & .Caption & "|" & .DescriptionText & "|"
If Err.Number <> 0 Then
ts.writeline "|" & .ID & "|" & .Index & "|" & .Err.Number & "|" & Err.Description & "|"
Err.Clear
End If
End With
Next
ts.Close
Set fso = Nothing
End Sub
index Type Controls.Count Builtin Name NameLocal
1 0 28 True Standard 標準
2 0 26 True Formatting 書式設定
3 0 17 True Tables and Borders 罫線
4 0 10 True Database データベース
5 0 22 True Drawing 図形描画
6 0 10 True Forms フォーム
7 0 1 True Navigation ナビゲーション
8 0 1 True Styles スタイル
9 0 1 True Apply Styles スタイルの適用
10 0 6 True &Legacy Keyboard Support 前バージョンのキーボード ショートカット キーのサポート(&L)
11 0 1 True Comments コメント
12 0 1 True Share 共有
13 0 1 True Version History バージョン履歴
14 0 1 True Style Inspector スタイルの詳細情報
15 0 1 True Read Aloud 読み上げ
16 0 1 True Office Clipboard Office クリップボード
17 0 1 True Full Screen 全画面表示
18 0 2 True Edit Picture 図の編集
19 0 6 True Visual Basic Visual Basic
20 0 2 True Stop Recording 記録終了
21 0 22 True Mail Merge 差し込み印刷
22 0 0 True Master Document グループ文書
23 0 8 True Microsoft Microsoft
24 0 13 True Header and Footer ヘッダーとフッター
25 0 22 True Outlining アウトライン
26 0 9 True Print Preview 印刷プレビュー
27 0 23 True Word for Macintosh 5.0 Word for Macintosh 5.0
28 0 16 True Read Mail メールの開封
29 0 22 True Send Mail メールの送信
30 0 10 True Extended Formatting 拡張書式設定
31 0 3 True AutoText 定型句
32 0 10 True Web Web
33 0 10 True WordArt ワードアート
34 0 10 True 3-D Settings 3-D の設定
35 0 6 True Shadow Settings 影の設定
36 0 14 True Picture
37 0 4 True Drawing Canvas 描画キャンバス
38 0 6 True Organization Chart 組織図
39 0 8 True Diagram 図表
40 0 14 True Reviewing チェック/コメント
41 0 3 True AutoSummarize 要約の作成
42 0 1 True Exit Design Mode デザイン モードの終了
43 0 15 True Control Toolbox コントロール ツールボックス
44 0 4 True Text Box テキスト ボックス
45 0 14 True Outlook Read Mail Outlook メールの開封
46 0 15 True Outlook Send Mail Outlook メールの送信
47 0 12 True Function Key Display ファンクション キーの表示
48 0 16 True Web Tools Web ツール
49 0 2 True Word Count 文字カウント
50 0 4 True Japanese Greetings あいさつ文
51 1 10 True Menu Bar メニュー バー
52 0 2 True Refresh 最新の情報に更新
53 0 7 True Frames フレーム
54 0 26 True E-mail 電子メール
55 0 13 True Full Screen Reading 全画面閲覧
56 0 2 True Document Layout 文書のレイアウト
57 0 3 True Compare Side by Side 並べて比較
58 0 6 True Ink Drawing and Writing インク描画と書き込み
59 0 7 True Ink Annotations インク注釈
60 0 2 True Ink Comment インク コメント
61 2 11 True Drop Caps ドロップ キャップ
62 2 29 True Endnotes 文末脚注
63 2 21 True Fields フィールド
64 2 21 True Display Fields フィールドの表示
65 2 22 True Field Display List Numbers リスト番号フィールド
66 2 26 True Form Fields フォーム フィールド
67 2 23 True Footnotes 脚注
68 2 11 True Frames レイアウト枠
69 2 33 True Headings 見出し
70 2 31 True Linked Headings リンクした見出し
71 2 9 True Script Anchor Popup スクリプト アンカーのポップアップ
72 2 41 True Lists 一覧
73 2 29 True Inline Picture 図を行内に収める
74 2 14 True Inline Canvas キャンバスを行内に収める
75 2 5 True Horizontal Line Popup 水平線のポップアップ
76 2 21 True Tables テーブル
77 2 19 True Table Cells テーブル : セル
78 2 19 True Table Headings 表のタイトル行
79 2 37 True Table Lists 表の一覧
80 2 23 True Table Pictures 表の図
81 2 32 True Table Text 表の文字列
82 2 21 True Whole Table テーブル全体
83 2 18 True Linked Table リンクされたテーブル
84 2 34 True Text テキスト
85 2 2 True Word Previewer Word プレビューアー
86 2 20 True Linked Text リンクした文字列
87 2 5 True Font Popup フォント
88 2 7 True Font Paragraph 段落フォント
89 2 2 True Format Inspector Popup in Normal Mode Format Inspector Popup in Normal Mode
90 2 2 True Format Inspector Popup in Compare Mode Format Inspector Popup in Compare Mode
91 2 30 True Spelling スペル チェック
92 2 27 True Grammar 文章校正
93 2 26 True Grammar (2) 文章校正 (2)
94 2 10 True Format consistency 書式の差分
95 2 1 True Background Proofing Status Bar バックグラウンド チェック ステータス バー
96 2 23 True Track Changes 変更履歴の記録
97 2 1 True Frame Properties フレームのプロパティ
98 2 40 True Hyperlink Context Menu ハイパーリンク ショートカット メニュー
99 2 1 True AutoSignature Popup 自動署名のポップアップ
100 2 1 True Field AutoText 定型句挿入フィールド
101 2 13 True Document Map 見出しマップ
102 2 22 True Shapes 図形
103 2 23 True Curve 曲線
104 2 9 True Curve Node 結節点を曲げる
105 2 7 True Curve Segment 線分を曲げる
106 2 29 True Floating Picture 文字列の上に配置された図
107 2 23 True Canvas Popup Canvas Popup
108 2 21 True OLE Object OLE オブジェクト
109 2 22 True ActiveX Control ActiveX コントロール
110 2 20 True WordArt Context Menu ワードアート ショートカット メニュー
111 2 18 True Rotate Mode 回転モード
112 2 40 True Comment コメント
113 2 9 True Organization Chart Popup Organization Chart Popup
114 2 5 True Diagram ダイアグラム
115 2 23 True Connector コネクタ
116 2 3 True Track Changes Indicator 変更履歴記号
117 2 2 True Chinese Translation 中国語の翻訳
118 2 18 True Address Block Popup Address Block Popup
119 2 18 True Greeting Line Popup Greeting Line Popup
120 2 15 True Barcode Merge Field Popup バーコード差し込みフィールドのポップアップ
121 2 20 True Inline ActiveX Control インライン ActiveX コントロール
122 2 2 True Word CoAuthoring Word の共同編集
123 2 12 True XML Error Options XML エラー オプション
124 2 8 True Ink Comment インク コメント
125 2 1 True Business Card 名刺
126 2 10 True Equation Popup 数式ポップアップ
127 2 1 True Header Area Popup ヘッダー領域のポップアップ
128 2 1 True Footer Area Popup フッター領域のポップアップ
129 2 22 True Text テキスト
130 2 9 True Tables
131 2 10 True Table Cells セル
132 2 20 True Table Lists 表の一覧
133 2 15 True Table Pictures 表の図
134 2 20 True Table Text 表の文字列
135 2 9 True Whole Table 表全体
136 2 7 True Linked Table リンクした表
137 2 24 True Lists 一覧
138 2 15 True Hyperlink Context Menu ハイパーリンク ショートカット メニュー
139 2 19 True Word Page Numbering Options Word のページ番号オプション
140 0 8 True AutoShapes オートシェイプ
141 0 20 True Callouts 吹き出し
142 0 28 True Flowchart フローチャート
143 0 28 True Block Arrows ブロック矢印
144 0 16 True Stars & Banners 星とリボン
145 0 6 True Lines
146 0 32 True Basic Shapes 基本図形
147 0 9 True Connectors コネクタ
148 0 5 True Fill Color 塗りつぶしの色
149 0 3 True Insert Shape 図形の挿入
150 0 5 True Line Color 線の色
151 0 12 True Drawing and Writing Pens 描画と書き込みペン
152 0 12 True Annotation Pens インク注釈ペン
153 0 9 True Drawing and Writing Pens 描画と書き込みペン
154 0 9 True Annotation Pens インク注釈ペン
155 0 12 True Align or Distribute 配置/整列
156 0 5 True Rotate or Flip 回転/反転
157 0 6 True Order 順序
158 0 4 True Nudge 微調整
159 0 13 True Borders 罫線
160 0 3 True Font Color フォントの色
161 0 3 True Shading Color 色の濃淡
162 0 9 True Cell Alignment セルの配置
163 0 8 True Text Wrapping テキストの折り返し
164 0 0 True Clipboard クリップボード
165 0 1 True Envelope 封筒
166 2 6 True System システム
167 0 1 True Task Pane 作業ウィンドウ
168 0 0 True
169 0 0 True Property Editor プロパティ エディター
170 0 1 True XML Source XML ソース
171 0 1 True Research リサーチ
172 0 1 True XML Document XML ドキュメント
173 0 1 True Signatures 署名
174 0 1 True Document Actions ドキュメント アクション
175 0 1 True Clip Art クリップ アート
176 0 1 True Business Bar Business Bar
177 0 0 True Selection 選択
178 0 0 True Reading Order 読み上げ順序
179 0 1 True Format Object オブジェクトの書式設定
180 0 1 True Document Management ドキュメント管理
181 0 1 True Document Updates ドキュメントの更新
182 0 1 True Mail Merge Panes 差し込み印刷ウィンドウ
183 0 1 True Fax Service FAX サービス
184 0 1 True Meeting Workspace 会議ワークスペース
185 0 1 True Attachment Options 添付ファイルのオプション
186 0 1 True Accessibility アクセシビリティ
187 0 1 True Editor エディター
188 0 1 True Dictionaries 辞書
189 0 1 True Thesaurus 類義語辞典
190 0 1 True History 履歴
191 0 1 True Smart Lookup スマート検索
192 0 1 True Researcher リサーチ ツール
193 0 1 True Insert From File ファイルから挿入
194 0 1 True Help ヘルプ
195 0 1 True Online Content オンライン コンテンツ
196 0 0 True Alt Text 代替テキスト
197 0 1 True Feedback フィードバック
198 0 1 True Data Selector データ選択ウィザード
199 0 1 True Contact Support サポートへのお問い合わせ
200 0 1 True Troubleshooter トラブルシューティング ツール
201 0 1 True Activity アクティビティ
202 0 1 True Admin Tenant Portal 管理テナント ポータル
203 0 1 True Notifications 通知
204 0 1 True User Voice ユーザーの音声
205 0 1 True Search Feedback 検索に関するフィードバック
206 0 0 True Do more with Surface Surface をさらに活用
207 0 1 True Outlook Room Finder Pane Outlook の会議室の検索ウィンドウ
208 0 1 True Outlook Meeting Insights Pane Outlook の会議に関する分析情報ウィンドウ
209 0 1 True Feed フィード
210 0 1 True Outlook Notifications Pane Outlook の通知ウィンドウ
211 0 1 True Diagnostic Pane 診断ウィンドウ
212 0 1 True Diagnostic Pane 診断ウィンドウ
213 0 1 True Diagnostic Pane 診断ウィンドウ
214 0 1 True Diagnostic Pane 診断ウィンドウ
215 0 1 True Data Types Refresh Settings データ型更新設定
216 0 1 True Outlook My Day Pane Outlook の [My Day] ウィンドウ
217 0 1 True Changes 変更内容
218 0 1 True Reveal Formatting 書式の詳細
219 0 1 True Status Bar ステータス バー
220 0 1 True Ribbon Ribbon

Standard

28となったいるが、8しかとれなかった。

| ID | index | Type |Builtin|Caption|Description|Tag | Tooltiptext |
|----:|----:|---:|:-:|:----|:----|:--|:----|:----|
|23|2|1|True|開く(&O)...|既存の文書またはテンプレートを開きます。||開く(&O)... (Ctrl+F12)|
|128|14|6|True|元に戻せません(&U)|直前の操作を元に戻します。||元に戻せません (Ctrl+Z)|
|129|15|6|True|やり直しできません(&R)|直前に元に戻した操作をやり直します。||やり直しできません (Alt+Shift+BackSpace)|
|9404|16|13|True|インク注釈の挿入(&I)|[インク ツール] タブをリボンに追加します。||インク注釈の挿入(&I)|
|916|18|1|True|[罫線] ツールバー(&T)|[罫線] ツールバーの表示/非表示を切り替えます。||罫線|
|9|21|16|True|段組み(&C)...|段組みの設定を変更します||[段組み] ダイアログ ボックス|
|204|23|1|True|図形描画(&D)|[図形描画] ツールバーの表示/非表示を切り替えます。||図形描画(&D)|
|7226|28|1|True|閲覧モード(&R)|全画面閲覧と通常の画面表示を切り替えます。||閲覧モード(&R)|

Menu

| ID | index | Type |Builtin|Caption|Description|Tag | Tooltiptext |
|----:|----:|---:|:-:|:----|:----|:--|:----|:----|
|30003|2|10|True|編集(&E)|[編集] メニューを表示します。|||
|30004|3|10|True|表示(&V)|[表示] メニューを表示します。|||
|30005|4|10|True|挿入(&I)|[挿入] メニューを表示します。|||
|30006|5|10|True|書式(&O)|[書式] メニューを表示します。|||
|30007|6|10|True|ツール(&T)|[ツール] メニューを表示します。|||
|30083|8|10|True|処理(&C)|[コメント] メニューを表示します。|||
|30009|9|10|True|ウィンドウ(&W)|[ウィンドウ] メニューを表示します。|||
|30010|10|10|True|ヘルプ(&H)|[ヘルプ] メニューを表示します。|||

System

ID Index Caption Description
839 1 元の??サイズ(&R)
841 2 移動??(&M)
842 3 サイズ??変更(&S)
838 4 最小化??(&N)
843 5 最大化(&X)
840 6 閉じる??(&C)

Lists

該当するタブやグループが見つからない。

| ID | index | Type |Builtin|Caption|Description|Tag | Tooltiptext |
|----:|----:|---:|:-:|:----|:----|:--|:----|:----|
|34158|1|10|True|予測入力(&P)|予測入力の設定を調整したり、フィードバックを残したりするためのメニューです。|||
|34045|7|1|True|コメントへ移動 (&G)|コメントとそのアンカー間の移動を切り替えます||コメントへ移動 (&G) (Alt+F12)|
|6228|8|1|True|コメントに返信(&M)|コメントに返答します。||コメントに返信(&M)|
|22960|10|1|True|コメントの解決(&O)|コメントを完了としてマークします (切り替え)。||コメントの解決(&O)|
|3720|11|1|True|再変換(&V)|確定されている文字を再変換します。||再変換(&V)|
|11225|15|1|True|別のリスト(&L)|リストを分割します||別のリスト(&L)|
|11226|16|1|True|前のリストに結合(&J)|前のリストに結合します||前のリストに結合(&J)|
|3626|27|1|True|ハイパーリンクの削除(&R)|ハイパーリンクを削除します||ハイパーリンクの削除(&R)|
|34004|28|1|True|翻訳(&T)|インライン翻訳ギャラリー||翻訳(&T)|
|33990|29|1|True|定義「するか」(&D)|選択したテキストの定義が表示されます||定義「するか」(&D)|
|25536|30|1|True|検索「するか」(&H)|選択したテキストのインサイトを含む作業ウィンドウを表示します||検索「するか」(&H)|
|27791|32|1|True|文章校正(&P)|テキスト書き換えのコンテキスト メニューが表示されます||文章校正(&P)|
|33490|33|1|True|書き換えの候補(&R)|[テキストの書き換え] ウィンドウを開く||書き換えの候補(&R)|
|7021|34|1|True|翻訳(&S)|翻訳を行います。||翻訳(&S)|
|25361|37|1|True|コメントの横の図を非表示にする(&P)|コメントを付けたユーザーの画像の表示/非表示を切り替える||コメントの横の図を非表示にする(&P)|
|16627|38|1|True|連絡先カードを開く(&N)|作成者の連絡先カードを表示します。||連絡先カードを開く(&N)|
|1576|39|1|True|ハイパーリンク(&H)...|ハイパーリンクを挿入します||ハイパーリンク(&H)... (Ctrl+K)|
|34042|41|1|True|近くにいる人(&N)|近くにいる人ギャラリー||近くにいる人(&N)|

Text

| ID | index | Type |Builtin|Caption|Description|Tag | Tooltiptext |
|----:|----:|---:|:-:|:----|:----|:--|:----|:----|
|34158|1|10|True|予測入力(&P)|予測入力の設定を調整したり、フィードバックを残したりするためのメニューです。|||
|27964|2|1|True|チェック実行(&K)|文書作成支援アシスタントの [批評] ウィンドウからドキュメントを確認します||エディター (F7)|
|25040|6|10|True|展開/折りたたみ(&E)|サブメニューの展開/折りたたみ|||
|34045|9|1|True|コメントへ移動 (&G)|コメントとそのアンカー間の移動を切り替えます||コメントへ移動 (&G) (Alt+F12)|
|6228|10|1|True|コメントに返信(&M)|コメントに返答します。||コメントに返信(&M)|
|22960|12|1|True|コメントの解決(&O)|コメントを完了としてマークします (切り替え)。||コメントの解決(&O)|
|3720|13|1|True|再変換(&V)|確定されている文字を再変換します。||再変換(&V)|
|34004|20|1|True|翻訳(&T)|インライン翻訳ギャラリー||翻訳(&T)|
|33990|21|1|True|定義「使い方」(&D)|選択したテキストの定義が表示されます||定義「使い方」(&D)|
|25536|22|1|True|検索「使い方」(&H)|選択したテキストのインサイトを含む作業ウィンドウを表示します||検索「使い方」(&H)|
|27791|24|1|True|文章校正(&P)|テキスト書き換えのコンテキスト メニューが表示されます||文章校正(&P)|
|33490|25|1|True|書き換えの候補(&R)|[テキストの書き換え] ウィンドウを開く||書き換えの候補(&R)|
|7021|26|1|True|翻訳(&S)|翻訳を行います。||翻訳(&S)|
|14602|28|1|True|ソースの表示(&S)|この電子メール メッセージのソース テキストを表示します。||ソースの表示(&S)|
|25361|30|1|True|コメントの横の図を非表示にする(&P)|コメントを付けたユーザーの画像の表示/非表示を切り替える||コメントの横の図を非表示にする(&P)|
|16627|31|1|True|連絡先カードを開く(&N)|作成者の連絡先カードを表示します。||連絡先カードを開く(&N)|
|1576|32|1|True|ハイパーリンク(&H)...|ハイパーリンクを挿入します||ハイパーリンク(&H)... (Ctrl+K)|
|34042|34|1|True|近くにいる人(&N)|近くにいる人ギャラリー||近くにいる人(&N)|

Microsoft

ID Index Caption Description
263 1 Microsoft Excel(&E) Microsoft Excel を起動、または Microsoft Excel に切り替えます。
267 2 Microsoft PowerPoint(&P) Microsoft PowerPoint を起動、または Microsoft PowerPoint に切り替えます。
6225 3 Microsoft ?Outlook(&M) Microsoft Outlook を起動するか、Microsoft Outlook に切り替えます
264 4 Microsoft Access(&A) Microsoft Access を起動、または Microsoft Access に切り替えます。
266 5 Microsoft Visual FoxPro(&F) Microsoft FoxPro を起動、または Microsoft FoxPro に切り替えます。
269 6 Microsoft Project(&R) Microsoft Project を起動、または Microsoft Project に切り替えます。
265 7 Microsoft Schedule+(&S) Microsoft Schedule+ を起動、または Microsoft Schedule+ に切り替えます。
268 8 Microsoft ??Publisher(&B) Microsoft Publisher を起動、または Microsoft Publisher に切り替えます。

書式

ID Index Caption Description
5757 1 スタイル(&S)... スタイルと書式の作成、変更、または適用を行います
1732 2 スタイル(&S): 既存のスタイルを設定します、または選択範囲の書式をスタイルとして登録します
1728 3 フォント(&F): 選択した文字のフォントを設定します
1731 4 フォント サイズ(&F): 選択範囲のフォントのサイズを変更します
3659 5 キーボードの言語(&K) 文字列の方向によってカーソル位置を切り替えます
113 6 太字(&B) 選択した文字列に太字を設定/解除します。
114 7 斜体(&I) 選択した文字列に斜体を設定/解除します。
3962 8 下線(&U) 選択した文字列に下線を設定します。
3517 9 囲み線(&C) 文字に囲み線を設定します。
3518 10 文字の網かけ(&C) 文字に網かけを設定します。
386 11 文字の拡大/縮小(&C) 選択した文字列の倍率を変更します。
123 12 両端揃え(&J) 左右のインデントに段落を揃えます。
122 13 中央揃え(&C) 段落を左右のインデントの中央に配置します。
121 14 右揃え(&R) 右インデントに段落を揃えます。
2792 15 均等割り付け(&D) 段落を均等割り付けします。
5734 16 行間(&L) 選択範囲に行間の設定を適用します
1846 17 左から右(&L) 段落の文字列の方向を左から右 (LTR) に設定します。
1847 18 右から左(&R) 段落の文字列の方向を右から左 (RTL) に設定します。
11 19 段落番号(&N) 既定値に基づいて段落番号を設定します。
12 20 箇条書き(&B) 既定値に基づいて箇条書きを作成します。
3473 21 インデントを減らす(&D) インデントを小さくします、または選択範囲を 1 レベル上げます。
3472 22 インデントを増やす(&I) インデントを大きくします、または選択範囲を 1 レベル下げます。
340 23 蛍光ペン(&H) 選択した範囲を蛍光ペンで強調します。
401 24 フォントの色(&F) 選んだ文字列の色を変更します
3511 25 ルビ(&U)... 作業中の文書で文字列にルビを追加します。
3969 26 囲い文字(&E)... 囲い文字を挿入します。

拡張書式

ID Index Caption Description
340 1 蛍光ペン(&H) 選択した範囲を蛍光ペンで強調します。
2805 2 傍点 (ピリオド)(&D) 選択した文字列にピリオドの傍点を設定/解除します。
714 3 二重取り消し線(&D) 選択した文字列に二重取り消し線を設定/解除します。
3511 4 ルビ(&U)... 作業中の文書で文字列にルビを追加します。
3512 5 組み文字(&C)... 組み文字
3969 6 囲い文字(&E)... 囲い文字を挿入します。
54 7 行間 1(&S) 行間を 1 行に設定します。
55 8 行間 1.5(&1) 行間を 1.5 行に設定します。
56 9 行間 2(&D) 行間を 2 行に設定します。
9 10 段組み(&C)... 段組みの設定を変更します

サイズとプロパティと図形の書式設定は不明

紛らわしいレイアウトの設定

図を選択した状態で

図形の書式タブ
サイズの右下をクリックすると開く
最もクリックするときにポップアップするヘルプはレイアウトの詳細設定。

image.png

図形の書式設定

これ自体はQuickAccessToolbarでは
サイズとプロパティ ObjectSizeAndPropertiesDialog
図形の書式設定 ObjectFormatDialog
どちらでも開くようだ。

image.png

WdWordDialog
wdDialogEditObject 125
wdDialogFormatPicture 187
wdDialogFormatBordersAndShading 189
wdDialogFormatDrawingObject 960
どれもうまく行かない。しかし、コマンドバーでウィンドウ、ダイアログボックスを開くよりはこれで開くようになっているらしい。

スタイルの管理は今の所不明だがDialogで開ける

スタイルの管理はこのウィンドウ。
image.png
コマンドバーでは現在は見つからなかった。
書式でスタイルまでは行くのだが、そこから先が見つからない。
しかしダイアログで開けるので、そちらを使うことにする。

QATでは

StylesManageStyles

まとめ

マクロでコマンドバーを開かなくても、QATではできる。
また、タブとの関係が不明なListsはビジネスのWordで出てくるのかもしれないが、こうした、タブとの関連も不明なものがある。特に書式の詳細設定自体は、どこから開くのかむしろ不明だったが、一応の解決をみた。
最も、Do more with Surface Surfaceをさらに活用って削除されているのか。それともSurfaceを使っていて追加注文したくなったらクリックでできるのか。そういうものも見つかった。
書式の詳細設定は忘れかけていたが、これが表示させると、書式の比較ができる。
スタイルを使うことができなかった時代はこれが役立った。
Windowを閉じるのは=falseにするとよい。
しかし、DialogオブジェクトはCloseがない。Showで開いている分は、Closeという命令がなく、コマンドバーがないと閉じるのは難しい。
上記の一覧は全てVisible=Trueにすれば開くものではない。以前のバージョンで廃止したものもある。図形に関しては図形を選択しないとダイアログボックスが開かないが、図形を選択した状態ではマクロが起動できない。図形に関しではダイアログボックスではなく、直接図形をマクロから選択するようにしなければならない。(通常の方法)
しかし、コマンドバーからコントロール、ボタンに行くのは直にコントロールする技だったが、リボンに変わってしまった。一覧を見てもコントロール数が1というものが多い。
つまりコマンドバーからの階層にはあまりなっていない。とっくに終わったと思っていた最後の方法はDialogに置き換わっているらしい。
概念 Wordのカスタマイズ 組み込みの Word ダイアログ ボックスの表示
概念 Wordのカスタマイズ 組み込みのダイアログ ボックスの引数一覧 (Word)
もっともたいして使えないが。

0
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
0

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?