WORD VBA 对段落中的单词进行排序

Question

大家好，我希望你们能指出我正确的方向。我正在尝试提出一个宏，该宏将按每个段落的升序对单词进行排序。为了清楚起见，我在下面举一个例子：

The quick brown fox jumps over the lazy dog. <---- given
brown dog fox jumps lazy over quick the the <---- the output

输出应显示在已排序文档末尾的 para/s 下方。关于如何使用 Ranges 进行操作的任何帮助或建议，请告诉我。谢谢！

Answer 1

我相信这段代码可能会为您指明正确的方向。

请注意，您需要在某处添加已排序的数组（到目前为止，它只是对数组值进行排序）。

我使用了HERE可用的排序功能。

希望对你有帮助！

Option Explicit
Option Compare Text

Sub orderParagraph()

    Dim oParagraph As Word.Paragraph
    Dim vParagraphText As Variant

    For Each oParagraph In ActiveDocument.Paragraphs

        If Len(Trim(oParagraph.Range.Text)) > 0 Then

            vParagraphText = oParagraph.Range.Text
            vParagraphText = Split(vParagraphText, " ")
            SortArray vParagraphText

        End If

    Next oParagraph


End Sub

Private Function SortArray(ByRef TheArray As Variant)

    Dim x As Integer
    Dim bSorted As Boolean
    Dim sTempText As String

    bSorted = False

    Do While Not bSorted

        bSorted = True

        For x = 0 To UBound(TheArray) - 1

            If TheArray(x) > TheArray(x + 1) Then

                sTempText = TheArray(x + 1)
                TheArray(x + 1) = TheArray(x)
                TheArray(x) = sTempText
                bSorted = False

            End If

        Next x

    Loop

End Function