VAスタイル：表題と見出しのスタイルを順次に変更（ワードVBA）

サンプルのダウンロード

インストール方法

Word版VBAアドインのインストール方法

操作マニュアル

VA公用文シリーズ（統合版） 操作マニュアル

仕様

1. プロジェクト概要

Word文書の「見出しスタイル」や「標準スタイル」の定義（フォント種別、サイズ、段落間隔など）を、ボタン一つで段階的に「強調表示（ゴシック・拡大・間隔増）」または「標準表示（明朝・標準・間隔なし）」へ切り替えるVBAアドイン。

また、テキスト選択時には、その範囲に対して「太字」や「傍点」のトグル操作を行う機能を併せ持つ。設定値はドキュメントプロパティに保存され、Mac版Wordでも動作する互換性を持つ。

2. ファイル構成

プロジェクトは以下のモジュールで構成すること。

モジュール名	種類	役割
basConfigStyle	標準モジュール	文書全体のスタイル定義を変更するコアロジック
basControl	標準モジュール	リボンコールバック、処理の振り分け（選択範囲か全体か）、フォーム表示
frmStyleOption	ユーザーフォーム	スタイル変更時の挙動（フォント変更の有無など）を設定するUI
Settings	標準モジュール	フォント名、サイズ、傍点の種類などの定数定義
VariablesManager	クラスモジュール	設定値のメモリ内管理、設定ファイルとのI/O仲介
SettingsManager	クラスモジュール	設定値の永続化（カスタムドキュメントプロパティへの保存・読込）
ThisDocument	ThisDocument	更新履歴の保持およびドキュメントのエントリポイント

3. モジュール詳細仕様

(1) Settings（標準モジュール）

ツール全体で使用する書式の定数を定義する。

• 定数リスト:
  • strFont: 標準フォント名（例：”ＭＳ 明朝”）。
  • sngFont: 標準フォントサイズ（例：12pt）。
  • strBoldFont: 強調用太字フォント名（例：”ＭＳ ゴシック”）。
  • sngBoldFont: 強調用フォントサイズ（例：13pt）。
  • strEmphasis: 傍点の種類（”丸” または “点”）。

(2) basConfigStyle（標準モジュール）

プロシージャ: ConfigStyle(lngStep As Long)

• 機能: 文書内の「表題」および「見出し 1」～「見出し 9」スタイルの定義を一括変更する。
• 引数: lngStep (1: 進む/強調設定へ, -1: 戻る/標準設定へ)。
• 処理ロジック:
  1. 範囲特定: 文書内で最初に使用されている見出しレベル (xFirst) を特定する。
  2. 設定値準備: VariablesManager からユーザー設定（フォント変更可否、サイズ変更可否、段落間隔設定など）を読み込む。
  3. ループ処理: 表題(0)から見出し9までをループし、以下のプロパティを変更する。
     • フォント: lngStep=1 ならゴシック(太字用)、-1 なら明朝(標準用)へ変更（設定で有効な場合）。
     • サイズ: lngStep=1 なら拡大、-1 なら標準サイズへ変更。グリッド線に合わせる設定も切り替える。
     • 段落書式: lngStep=1 なら「段落前の間隔」を1行あけ、「次の段落と分離しない」「段落を分割しない」をTrueにする。-1 ならこれらを解除する。
  4. 同期処理: 見出しスタイル変更に伴い、アウトライン番号（ListGalleries(wdOutlineNumberGallery)）のフォント設定も同期させる。
  5. 再適用: 基準となる段落に対して、更新されたリストテンプレートを再適用して表示を更新する。

(3) basControl（標準モジュール）

プロシージャ: ChangeForward / ChangeBackward (メイン動作)

• 機能: ユーザーの選択状態に応じて処理を分岐する。
• 分岐ロジック:
  • テキスト選択時 (wdSelectionNormal):
    • ChangeForward: 選択範囲のフォントを「標準」⇔「太字（ゴシック）」でトグル切り替え (ToggleSelectionFont)。
    • ChangeBackward: 選択範囲の「傍点」の有無をトグル切り替え (ToggleSelectionEmphasis)。
  • 選択なし（カーソルのみ）:
    • ChangeForward: ConfigStyle(1) を呼び出し、文書全体のスタイル定義を「強調」側へ変更。
    • ChangeBackward: ConfigStyle(-1) を呼び出し、文書全体のスタイル定義を「標準」側へ戻す。

リボンコールバック:

• RxBtnChangeForward, RxBtnChangeBackward, RxBtnShowStyleOption を実装し、対応するプロシージャを呼び出す。

(4) VariablesManager & SettingsManager（クラスモジュール）

• VariablesManager:
  • 各オプション（フォント変更、サイズ変更、段落前1行、段落分離禁止など）のEnable/Disable状態を保持するプロパティを持つ。
  • 初期化時に SettingsManager を呼び出して設定をロードする。
• SettingsManager:
  • ThisDocument.CustomDocumentProperties を使用して設定値を保存・読み込みする（プレフィックス VA_ を使用）。Mac版Wordでの安定性を考慮し、レジストリや外部ファイルは使用しない。

(5) frmStyleOption（ユーザーフォーム）

• 機能: スタイル一括変更時の詳細挙動を設定する。
• コントロール:
  • フォントをゴシックにする (CheckBox)
  • フォントを拡大する (CheckBox)
  • 段落前の行を1行空ける (CheckBox)
  • 次の段落と分離しない (CheckBox)
  • 段落を分割しない (CheckBox)
• 動作: OKボタンで VariablesManager -> SettingsManager を通じて設定を保存する。

(6) ThisDocument

• メタデータ:
  • ツール名：「VAスタイル」
  • 更新履歴：Ver100～250（リボン対応、クラス化、傍点機能追加などの経緯を記載）。

4. 機能要件詳細

1. コンテキストに応じた挙動:
   • 「進む」ボタン:
     • 範囲選択中 → 部分的な強調（フォント変更）。
     • 選択なし → 文書構造の強調（見出しスタイルの定義変更）。
   • 「戻る」ボタン:
     • 範囲選択中 → 強調手段（傍点）の付与/解除（※仕様上、戻るボタンに傍点が割り当てられている）。
     • 選択なし → 文書構造の標準化（見出しスタイルの定義リセット）。
2. スタイル定義の直接操作:
   • 個々の段落の書式を変えるのではなく、ActiveDocument.Styles("見出し X") 自体を書き換えることで、文書全体の一貫性を保つ設計とすること。
3. エラーハンドリング:
   • 見出しスタイルが存在しない場合や、アウトライン設定が不完全な場合でもエラーで停止せず、可能な範囲で処理を行う（または安全に終了する）こと。On Error GoTo Cleanup パターンを使用。
4. UI:
   • リボンに「進む」「戻る」「設定」のボタンを配置する。
   • 処理中はマウスカーソルを砂時計にするなど、ユーザーフィードバックを行う。