今回の記事では、[文字体裁]の[文字間隔の調整]の3つのオプションを選択するマクロを紹介します。
▼このマクロでできること
現在アクティブな文書(カーソルが置かれている文書)のオプションの設定のうち[文字体裁]の[文字間隔の調整]を設定します。
![](https://stat.ameba.jp/user_images/20160417/17/gidgeerock/07/19/p/t02200164_0800059613622544754.png?caw=800)
▼マクロの解説
[文字体裁]の[文字間隔の調整]の項目は、文書のJustificationModeプロパティで設定します。
設定値は以下の通りです。
間隔を詰めない: wdJustificationModeExpand
句読点のみを詰める: wdJustificationModeCompress
句読点とかなを詰める: wdJustificationModeCompressKana
▼マクロ
「間隔を詰めない」にする場合の例です。
Sub 文字間隔の調整を設定するマクロ()
ActiveDocument.JustificationMode = wdJustificationModeExpand
End Sub