Word VBAで、文字の間に半角スペースを入れる。

やること

漢文教材を作るときに、半角スペースを文字の間に入れたいという状況が生まれたのでメモ。

サンプル教材として『十八史略』の「管鮑之交」を使う。

参考にしたサイトは次のサイト。ほぼそのまま。

【Word VBA】段落の3文字目に半角スペースを挿入するWordマクロ

コード

Option Explicit
Option Base 1

Sub 文字の間に半角スペースを入れる()
    Dim para As Paragraph
    Dim charaCount As Long
    Dim i As Long
    
    
    '半角スペースの挿入
    For Each para In ActiveDocument.Paragraphs
        Debug.Print ("もとのテキスト=>" & para.Range.Text)
        charaCount = para.Range.Characters.Count
        For i = charaCount - 1 To 2 Step -1
            para.Range.Characters(i).InsertBefore " "
        Next
        Debug.Print ("加工後のテキスト=>" & para.Range.Text)
    Next
    
    
End Sub

実行前

白文データ。漢字が並んでるだけ。

実行後

とりあえず文字の間に半角スペースが入った。
若干修正が必要だけど、ぜんぶ手作業でやるよりは当然早い。

イミディエイトウインドウ。

まとめ

Word VBAべんり。