Из Ворда в Ексель сортировка и обратно

Dim sText As String
sText = "привет мир"
sText = "привет" & Chr$(13) & "мир" 'то есть с абзацами

Option Explicit
 
Sub WordExcelWord()
 
'проверить, если Excel уже открыт
'тогда во избежание старта дубля процесса, запускать только новое окно в нём существующем
    Dim objExcel As Variant
    On Error Resume Next
    Set objExcel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set objExcel = CreateObject("Excel.Application")
    End If
 
    objExcel.Visible = True
    objExcel.Workbooks.Add
    Dim sText As String
    sText = "привет мир"
    objExcel.Columns("A") = sText
    objExcel.Columns("A").Sort Key1:=Range("A1"), Order1:=objExcel.xlDescending, Header:=objExcel.xlGuess, _
                               OrderCustom:=1, MatchCase:=False, Orientation:=objExcel.xlTopToBottom, _
                               DataOption1:=objExcel.xlSortNormal
    objExcel.Columns("A").Sort Key1:=Range("A1"), Order1:=objExcel.xlAscending, Header:=objExcel.xlGuess, _
                               OrderCustom:=1, MatchCase:=False, Orientation:=objExcel.xlTopToBottom, _
                               DataOption1:=objExcel.xlSortNormal
 
    'завершаем Excel
    'objExcel.Quit
 
    Set objExcel = Nothing
 
End Sub

Call RecodeFile(tmpFile, FN3, "windows-1251", "utf-8", vbCrLf, vbLf) ' перекодировка из ANSI в UTF-8 (сам эксель умеет только UTF-16 и только если через FSO)
 
' --------------------
Private Sub RecodeFile(InpFile As String, OutFile As String, Src As String, Dst As String, xF As String, xD As String)  ' using http://forum.script-coding.com/viewtopic.php?id=1179
   Dim x As Variant, fs As Object, inText As Variant
 
   Set fs = CreateObject("Scripting.FilesystemObject")
   inText = fs.openTextFile(InpFile, 1).readAll()  ' 1 = ForReading
   x = StrConv(inText, Src, Dst)                   ' Recode
   x = Replace(x, xF, xD)                          ' Change new line style
   Call fs.openTextFile(OutFile, 2, True).write(x) ' 2 = ForWriting, True = Create
End Sub
 
' --------------------
Private Function StrConv(Text As Variant, SourceCharset As String, DestCharset As String)
   Dim Stream As Object
 
   Set Stream = CreateObject("ADODB.Stream") ' https://docs.microsoft.com/en-us/sql/ado/reference/ado-api/stream-object-ado?view=sql-server-ver15
   Stream.Type = 2   ' adTypeText      2  Default. Indicates text data, which is in the character set specified by Charset.
   Stream.Mode = 3   ' adModeReadWrite 3  Indicates read/write permissions.
   Stream.Open
   Stream.Charset = DestCharset     ' Source charset
   Stream.WriteText Text            ' Write text into stream
   Stream.Position = 0              ' The default is 0, which represents the first byte in the stream.
   Stream.Charset = SourceCharset   ' Destination charset
   StrConv = Stream.ReadText        ' Read text from a stream - actually recode
End Function

Const xlDelimited = 1
Const xlDoubleQuote = 1
 Dim oExcel As Object
    Dim oWorkbook As Object
    'создать объект Microsoft Excel
    Set oExcel = CreateObject("Excel.Application")
    oExcel.Workbooks.OpenText FileName:="c:\11.txt", _
                              Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, TrailingMinusNumbers:=True

Call RecodeFile(InpFile, OutFile, "windows-1251", "utf-8", vbCrLf, vbLf)