初心者でもできる！Word VBAで文書を簡単に並べ替える方法

Wordで大量の文章やリストを整理したいとき、手作業で並べ替えるのは大変ですよね。そこで活躍するのが「Word VBA（Visual Basic for Applications）」です。今回は、初心者の方でもわかりやすく、VBAを使って文書を並べ替える方法をご紹介します。

VBAって何？
並べ替えの基本Range.Sortメソッド
表の並べ替えTable.Sortメソッド
自然順序での並べ替え
実際に試してみよう！
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

VBAって何？

Wordのイメージ

VBAとは、Microsoft Office製品（WordやExcelなど）に組み込まれているプログラミング言語です。これを使うと、普段の操作を自動化したり、複雑な作業を簡単に行ったりすることができます。

例えば、Wordの文書内の段落や表を並べ替えたいとき、VBAを使うと数行のコードで実現できます。

並べ替えの基本Range.Sortメソッド

文書内の段落を並べ替えるには、VBAの「Range.Sort」メソッドを使用します。以下は、その基本的な使い方です。

Sub SortParagraphs()

    Dim doc As Document

    Set doc = ActiveDocument

    doc.Content.Sort SortOrder:=wdSortOrderAscending

End Sub

このコードは、現在の文書（ActiveDocument）の全ての段落を昇順（AからZ）に並べ替えます。

表の並べ替えTable.Sortメソッド

文書内に表がある場合、その表を並べ替えるには「Table.Sort」メソッドを使用します。例えば、1列目のデータを昇順に並べ替える場合、以下のように記述します。

Sub SortTable()

    Dim tbl As Table

    Set tbl = ActiveDocument.Tables(1)

    tbl.Sort ExcludeHeader:=True, FieldNumber:=1, SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending

End Sub

このコードは、文書内の最初の表（Tables(1)）の1列目を昇順に並べ替えます。

自然順序での並べ替え

数字を含む文字列を並べ替える際、通常のアルファベット順ではなく、人間が直感的に思う順番（自然順序）で並べ替えたいことがあります。例えば、「Step-1」「Step-10」「Step-2」を並べ替えるとき、通常のアルファベット順では「Step-1」「Step-10」「Step-2」となりますが、自然順序では「Step-1」「Step-2」「Step-10」となります。

このような並べ替えを行うには、VBAで独自のソート関数を作成する必要があります。以下は、その一例です。

Function SortArrayNatural(arr As Variant) As Variant

    Dim i As Long, j As Long, temp As Variant

    For i = LBound(arr) To UBound(arr)

        For j = i + 1 To UBound(arr)

            If arr(i) > arr(j) Then

                temp = arr(i)

                arr(i) = arr(j)

                arr(j) = temp

            End If

        Next j

    Next i

    SortArrayNatural = arr

End Function

この関数を使用すると、数字を含む文字列を自然順序で並べ替えることができます。

実際に試してみよう！

ここまでのコードを組み合わせて、実際に文書を並べ替えてみましょう。以下は、文書内の段落を自然順序で並べ替える例です。

Sub SortParagraphsNatural()

    Dim doc As Document

    Dim paragraphs() As String

    Dim i As Long

    Set doc = ActiveDocument

    ReDim paragraphs(doc.Paragraphs.Count - 1)

    For i = 1 To doc.Paragraphs.Count

        paragraphs(i - 1) = doc.Paragraphs(i).Range.Text

    Next i

    paragraphs = SortArrayNatural(paragraphs)

    doc.Content.Delete

    For i = LBound(paragraphs) To UBound(paragraphs)

        doc.Content.InsertAfter paragraphs(i) & vbCrLf

    Next i

End Sub

このコードは、文書内の段落を自然順序で並べ替え、新しい文書として表示します。