アウトライン設定（ワードVBA）

ダウンロード

まずは、こちらからサンプルファイルをダウンロードして、使ってみてください。

ZIPファイルを解凍し、ダウンロードしたWordファイル（マクロ有効テンプレート）をWordのスタートアップ・フォルダにコピーすると、アウトライン設定機能がいつでも使えるようになります。

マクロを使用するためには、セキュリティの設定が必要な場合があります。

使用方法

• マークダウンを使って、見出しのレベルを指定します。
  • レベルを指定する記号は、オプションで設定できます。デフォルトは「#」になっています。
  • 見出しは「第１」から始まります。「１」から始めたい場合は、「#」を使用せず「##」から使用してください。その場合のインデントは自動的に補正されます。
• Ctrl+Shift+Mを押すと、裁判文書の様式に沿ったスタイルとアウトラインの書式を設定します。
  • 使用するフォントは、オプションで設定できます。デフォルトは「MS明朝」「12pt」になっています。
  • 設定が表示に反省されない場合は、一旦、マークダウン表示にしてから、アウトライン表示に切り替えてください。
• Ctrl+Shift+<を押すと、マークダウンに変換します。
  • アウトラインが設定されていない状態では、変換を行いません。
• Ctrl+Shift+>を押すと、アウトラインに変換します。
  • 最初の「マークダウン記号」までは変換を行いません。
  • 「行頭に空白文字が入力されている行」以降は変換を行いません。この機能はオプションで停止することもできます。
  • アウトラインが設定されていない状態では、変換を行いません。

• このファイル自体を開く（エクスプローラーで右クリックして「開く」を選択してください）と、次のことが可能です。
  • オプション（見出し記号、フォントサイズ、フォント名）の設定
  • 使用方法（マニュアル）の確認
  • 履歴の確認
  • サンプルによる動作確認
• Mac用ワードの場合は、「開発」ー「マクロ」メニューから対応するマクロを起動してください。

作動の一例

このサンプルは、ワードによる文書作成にVBAを利用する際の参考にしていただくためのものです。
それぞれの法律事務所のやり方に従って、修正を加えて使用してください。

マクロの構造

VBEへの入力位置

テンプレート・ファイルを開いてから、「開発」－「Visual Basic」をクリックして、VBEを起動してください。
テンプレート・ファイルは、エクスプローラーでダブルクリックすると新規文書が作成され、コードが開かない状態になります。右クリックで「開く」（Windows11の場合は、「その他のオプションを表示」ー「開く」）を選択して、テンプレート自体を編集可能状態で開いてください。

左上の「プロジェクト・エクスプローラー」部で各モジュールをクリックすると、そこに記載されているコードが真ん中の「コード・エディター」部に表示されます。

このマクロのコードは、すべて標準モジュールに記載されています。

マクロの構成

「アウトライン設定」マクロの構成は、次の図のようになっています。

「setFormat」、「cngtoMarkdown」、「cngtoOutline」の各プロシージャの起動は、ショートカットキーにより行っています。
「setFormat」は、「標準」スタイルを設定するショートカットキーが「Ctrl+Shift+N」なので、その隣ということで「Ctrl+Shift+M」に設定しています。
同様に「cngtoMarkdown」は「Ctrl+Shift+<」、「cngtoOutline」は「Ctrl+Shift+>」にショートカットキーを設定しています。
この設定は、ワードのオプションで自由に変更できます。

各プロシージャの機能

「setFormat」プロシージャは、「ReadOption」、「ConfigStyle」および「cngOutline」の各プロシージャを起動します。

「cngtoMarkdown」プロシージャは、「ReadOption」および「OutlineToMarkdown」プロシージャを起動します。
アウトラインが設定されていない場合は、処理を中止します。

「cngtoOutline」プロシージャは、「ReadOption」および「MarkdownToOutlne」プロシージャを起動します。
アウトラインが設定されていない場合は、処理を中止します。

「ReadOption」プロシージャは、アドイン・ワークブックからオプションを読み込みます。

「ConfigStyle」プロシージャは、公用文方式でスタイルを設定します。
オプションで設定されたフォントサイズおよびフォント名が適用されます。
2番目以降の見出しからマークダウンの入力を開始した場合（例：#ではなく##で入力を開始した場合）には、インデントの自動補正を行います。

「ConfigOutline」プロシージャは、公用文方式でアウトラインを設定します。
オプションで設定された見出し番号が適用されます。
2番目以降の見出しからマークダウンの入力を開始した場合（例：#ではなく##で入力を開始した場合）には、インデントの自動補正を行います。

「MarkdownToOutline」プロシージャは、マークダウンの見出し記号に応じ、アウトラインとスタイルのレベルを変更します。
標準スタイルの段落は、その直前の見出しレベルに応じてインデントを設定します。
最初の「マークダウン記号」からそれ以降の「行頭に空白文字が入力されている行」までの間の段落についてのみ処理を行います。

「OutlineToMarkdown」プロシージャは、各段落にアウトラインのレベルに応じた数のマークダウンの見出し記号を追記し、標準スタイルを適用します。
最初の「見出しスタイル」からそれ以降の「行頭に空白文字が入力されている行」までの間の段落についてのみ処理を行います。

各プロシージャ間の値（オプション値）の共有には、引数を用いています。
モジュールレベルの変数でも可能なのですが、エラーが生じる場合があることが確認されたので、引数を用いるように変更しました。
なお、起動に引数が必要なプロシージャは、「開発」ー「マクロ」メニューの「マクロ名」にプロシージャ名が表示されません。

プロシージャ内のコードの細部については、サンプルファイルのプログラムにコメントで記載していますので、そちらを御覧ください。