[megaloman]

Вот скрипт VBS

Код:

fXLS = "P:\Delete\ccc.xls"

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Open fXLS

i = 0
Do While True

    Stroka = XL.Range("A1").Offset(i, 0)
    If Stroka = "" Then Exit Do
    XL.Range("B1").Offset(i, 0).TextToColumns XL.Range("D1").Offset(i, 0),,,,,,,,True,vbLf
    
    i = i + 1
Loop

XL.Columns("B").Delete xlToLeft
XL.Columns("B").Cut
XL.Columns("F").Insert xlToRight

XL.ActiveWorkbook.Save
XL.Quit

С макросами в Word не работаю
Использовал сообщение Iska и хелп VBA