You Look Too Cool

Type textbox
    text As String
    top As Long
    left As Long
End Type
Sub テキストボックスのテキストを抽出()
    Dim boxes() As textbox
    Dim numofshape, i As Long
    With ActiveDocument.Content
        .InsertAfter "【テキストボックス】"
        .InsertParagraphAfter
        numofshape = ActiveDocument.Shapes.Count
        ReDim boxes(numofshape - 1)
        For i = 0 To numofshape - 1
            With ActiveDocument.Shapes(i + 1)
                .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                boxes(i).text = .TextFrame.TextRange.text
                boxes(i).top = .top
                boxes(i).left = .left
            End With
        Next i
        Call sort_textbox(boxes)
        For i = 0 To numofshape - 1
            .InsertAfter boxes(i).text
            .InsertParagraphAfter
        Next i
    End With
End Sub
Function sort_textbox(ar() As textbox)
    Dim temp As textbox
    Dim i, j As Long
    For i = 0 To UBound(ar) - 1
        For j = i + 1 To UBound(ar)
            If ar(i).top > ar(j).top Or _
                (ar(i).top = ar(j).top And ar(i).left > ar(j).left) Then
                temp = ar(i)
                ar(i) = ar(j)
                ar(j) = temp
            End If
        Next j
    Next i
End Function