Word VBA -使文本文件输出向右显示

Sub OutputTextFile()
    Dim filePath As String
    Dim fileContent As String
    Dim reversedContent As String
    Dim i As Long
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 读取文件内容
    Open filePath For Input As #1
    fileContent = Input$(LOF(1), 1)
    Close #1
    
    ' 反转每一行的文本
    reversedContent = ""
    For i = Len(fileContent) To 1 Step -1
        reversedContent = reversedContent & Mid$(fileContent, i, 1)
        If Mid$(fileContent, i, 1) = vbNewLine Then
            reversedContent = reversedContent & vbCrLf
        End If
    Next i
    
    ' 将反转后的内容输出到新文件
    Open "C:\path\to\your\output.txt" For Output As #2
    Print #2, reversedContent
    Close #2
    
    ' 显示成功消息
    MsgBox "文本文件输出向右显示成功！"
End Sub