なぜこの設定が重要なのか
Wordで文書を作成していると、日本語と英数字の間に勝手にスペースが入ってしまう現象に遭遇したことはありませんか？これはWordの「自動調整」機能によるものですが、ビジネス文書や報告書では、このわずかな隙間がレイアウトを崩したり、行末の揃えを不自然にしたりする原因となります。特に大量のページがある文書では、一つずつ設定を変更するのは非効率です。今回は、VBAを使ってこの「謎の隙間」を一括で解除し、プロフェッショナルな文書作成を実現する方法を解説します。
基礎知識：Wordの段落書式とは
Wordでは、文字の配置や間隔といった情報は「段落」という単位で管理されています。[段落]ダイアログボックスの[体裁]タブにある「日本語と英字の間隔を自動調整する」および「日本語と数字の間隔を自動調整する」という項目が、この隙間の正体です。これらをVBAで制御するには、ParagraphオブジェクトのFormatプロパティにアクセスし、それぞれ「AutoSpaceLikeWordWithPunctuation」や「AutoSpaceLikeWordWithAlpha」といったプロパティを操作する必要があります。
実装のポイント
VBAでこの設定を解除するには、対象となる段落（または文書全体）に対して、以下のプロパティを「False」に設定します。
・AutoSpaceLikeWordWithAlpha：英字との間隔自動調整
・AutoSpaceLikeWordWithDigits：数字との間隔自動調整
サンプルプログラム：文書内の全段落の間隔調整を解除する
以下のコードは、現在開いているWord文書内のすべての段落に対して、日本語と英数字の間隔自動調整を一括で解除するものです。
Sub DisableAutoSpacing()
‘ 文書内の全段落に対してループ処理を行う
Dim p As Paragraph
‘ 文書が空の場合は終了
If ActiveDocument.Paragraphs.Count = 0 Then Exit Sub
‘ 画面の更新を停止して処理速度を向上させる
Application.ScreenUpdating = False
For Each p In ActiveDocument.Paragraphs
‘ 日本語と英字の間隔自動調整を解除
p.Format.AutoSpaceLikeWordWithAlpha = False
‘ 日本語と数字の間隔自動調整を解除
p.Format.AutoSpaceLikeWordWithDigits = False
Next p
‘ 画面の更新を再開
Application.ScreenUpdating = True
MsgBox “すべての段落の間隔自動調整を解除しました。”
End Sub
応用・注意点
1. 特定の範囲のみ適用したい場合：
上記のコードは文書全体を対象にしていますが、選択範囲のみを対象にしたい場合は、「For Each p In ActiveDocument.Paragraphs」の部分を「For Each p In Selection.Paragraphs」に変更してください。これにより、ユーザーがマウスで選んだ範囲だけを綺麗に修正できます。
2. スタイルへの影響：
もし文書全体で「標準」スタイルなどを多用している場合は、VBAで一つずつ段落を触るよりも、Wordのスタイル機能で該当スタイルの設定を変更する方が根本的な解決になります。VBAは「特定の文書だけ」「過去の大量のファイルを一括処理したい」という場合に特に威力を発揮します。
3. バグ回避：
WordのVBAは、文書保護がかかっている場合や、非常に巨大なファイルではエラーが出ることがあります。実務で運用する際は、必ず事前にバックアップを取り、エラーハンドリング（On Error Resume Nextなど）を適切に組み込んでから実行するようにしてください。
