Разнести текст по колонкам

[daomsk]

А подскажите, плиз, можно ли сделать таблицей из двух колонок такой текст:
.............
big bear большой медведь
PCB [FR4] single [double] sided стеклотекстолит фольгированный
tin олово
.............
так, чтобы в левой колонке было на инглише, а в правой - на руссише?
Желательно в ворде, но можно и в экселе. Исходный текст в ворде 2003.
Пробелы между словами поппадаются и на русском и на английском. Да, в тексте встречаются и цифры, и знаки типа &, $, @, //, :
Длина текста - около тысячи строк
Пробовал копировать в эксель - все слова в разные столбцы разъезжаются, а надо в два.

[shanemac51]

Sub a________121122_pr()

Dim PR As Paragraph, s2a, s2k, k2, jf As Long
''''''''''перевод разрыва строки в параграф''''''''''''
Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = "^l"
  .Replacement.Text = "^p"
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
 
 ''''''вставка табулятора перед первой кирилицей'''''''
 
 j1 = 0
j1a = Word.ActiveDocument.Paragraphs.Count
k2 = 0
Do While j1 < j1a
j1 = j1 + 1
Set PR = Word.ActiveDocument.Paragraphs(j1)
s1 = Trim("" & PR.Range.Text)
j2 = 0
J2A = Len(s1)
Do While j2 < J2A
j2 = j2 + 1
If Mid(s1, j2) Like " [а-яА-ЯёЁ]*" Then
s2 = Trim(Mid(s1, 1, j2)) & Chr(9) & Trim(Mid(s1, j2))
PR.Range.Text = s2
Debug.Print s2
Exit Do
End If
Loop
Loop

 ''''''преобразование в таблицу'''''''

Selection.WholeStory
 WordBasic.TextToTable ConvertFrom:=1, NumColumns:=2, NumRows:=9999, _
  InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=1, _
  SetDefault:=0, Word8:=0, Style:="Сетка таблицы"
 ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Debug.Print Now
End Sub

[viter.alex]

Вставить табуляцию между латиницей и кириллицей можно тоже поиском и заменой:

    With ActiveDocument.Range.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "([A-z]) ([А-Яа-яЁё])"
        .Replacement.Text = "\1^0009\2"
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With

Возможно, перед этим нужно удалить сдвоенные пробелы

[daomsk]

Ребята, не пинайте ногами и простите подлеца, но я не программист, хотя кой-чего и умею
Поэтому ламерский вопрос - а как и куда вставлять эти коды, и как их запускать? Можно написать и в личку