Массив из Ecxell в Word

[YoungTeacher]

доброго времени суток!
Задача сделать что-то вроде переводчика в Word, я сделал 2 функций
1. Делать замену слов из иностранного в нужный мне язык.

ub Replace_Ad()
Eng = Array("Hello", "mornig")
Rus = Array("Privet", "utro")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
For i = 0 To UBound(Eng)
With Selection.Find
    .Text = Eng(i)
    .Replacement.Text = Rus(i)
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
With Selection
    If .Find.Forward = True Then
        .Collapse Direction:=wdCollapseStart
    Else
        .Collapse Direction:=wdCollapseEnd
    End If
    .Find.Execute Replace:=wdReplaceAll
End With
Next
Call HighlightTargets
End Sub

2. Выделяет слова которые заменил.

Sub HighlightTargets()
Fill_Yellow = Array("Privet", "utro")
Dim j As Long

For j = 0 To UBound(Fill_Yellow)

Set range = ActiveDocument.range

With range.Find
.Text = Fill_Yellow(j)
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

Do While .Execute(Forward:=True) = True
range.HighlightColorIndex = wdYellow

Loop

End With
Next
End Sub

Что-бы не вводить в ручную в массив слова и его перевод, хочу сделать проще, сделать в Exсell файле 2 колонки с словами и переводом запасать их два массива из колонок. И потом уже делать замену.
Ребята как мне получить массив из Ecxell ??

[Sasha_Smirnov]

Так же, как и из Excel.

(Ночью разберусь — если не опередят.)

Ещё способ — обращаться к переменной документа: programmersforum.ru/showthread.php?p=1208349#7

[YoungTeacher]

Сообщение от Sasha_Smirnov

Так же, как и из Excel.

(Ночью разберусь — если не опередят.)

Ещё способ — обращаться к переменной документа: programmersforum.ru/showthread.php?p=1208349#7

Мне надо обратиться по определенному пути к файлу Excell и его не открывать, сгенерировать 2 массива зависимости что в 2 колонках A и B.