Word宏需求：实现选中文本行的逆序排列

原宏无法实现需求的核心原因是：它将选中文本按单个字符逆序，而非按行逆序排列。以下是修正后的宏代码，可实现选中文本的行逆序（首行变末行）：

Sub ReverseLines()
    Dim selectedRange As Range
    Dim textContent As String
    Dim lineArray() As String
    Dim reversedText As String
    Dim i As Integer
    
    ' 检查是否有文本被选中
    If Selection.Type = wdSelectionIP Then
        MsgBox "请先选中需要逆序的文本。", vbExclamation
        Exit Sub
    End If
    
    ' 获取选中区域的文本
    Set selectedRange = Selection.Range
    textContent = selectedRange.Text
    
    ' 移除文本末尾可能存在的额外段落标记，避免空行干扰
    If Right(textContent, 1) = vbCr Then
        textContent = Left(textContent, Len(textContent) - 1)
    End If
    
    ' 将文本按换行符分割为行数组
    lineArray = Split(textContent, vbCr)
    
    ' 反转行数组的顺序并拼接成新文本
    reversedText = ""
    For i = UBound(lineArray) To LBound(lineArray) Step -1
        reversedText = reversedText & lineArray(i) & vbCr
    Next i
    
    ' 移除最后多余的换行符
    reversedText = Left(reversedText, Len(reversedText) - 1)
    
    ' 用逆序后的文本替换原选中内容
    selectedRange.Text = reversedText
End Sub

关键逻辑说明： #

• 按行分割：使用Split函数将文本按Word的换行符vbCr拆分为行数组，实现对每一行的独立操作。
• 反转行顺序：从数组最后一个元素遍历到第一个，逐个拼接行内容，实现行的逆序排列。
• 处理多余标记：移除文本首尾可能存在的额外段落标记，避免生成多余空行。

内容的提问来源于stack exchange，提问作者user23848374