Макрос замены в word

[Foma-78]

Всем доброго времени суток!
Нужна помощь.
столкнулся с такой проблемой: Даны два документа.
В первом — некоторый текст, во втором — список замен.
Содержимое второго файла — набор абзацев, по два слова в каждом. Первое слово — что заменять, второе — чем заменять. Нужно написать макрос, чтобы произвести в первом документе все замены, описанные во втором документе.
Заранее всем большой спасибо

[shanemac51]

Различают спечённые и литые твёрдые сплавы\металл.
Главной особенностью спеченных твердых сплавов\металл является то, что изделия из них получают методами порошковой металлургии и они поддаются только обработке шлифованием или физико-химическим методам обработки (лазер\травление, ультразвук,), а литые твердые сплавы\металл предназначены для наплавки на оснащаемый инструмент и проходят не только механическую, но часто и термическую обработку (закалка, отжиг, старение и др).

либо на каждый падеж-склонение своя замена либо е-р-у-н-д-а получается

иной раз придется менять и прилагательное(новый-новая-новые) или который-которая-которые
................................... и т.д.

[Foma-78]

Благодарю за участие.
Падежи не имеют значения, я не корректно привел пример.
Менять необходимо названия сплавов, которые не склоняются.
Спасибо,надеюсь на помощь!

[сфинкс]

Dim a(4) As Variant
Dim b(4) As Variant

a(1) = "Сплавы"
a(2) = "Лазер"
a(3) = "ВК20"
a(4) = "ВК25"

b(1) = "металл"
b(2) = "травление"
b(3) = "р6м5"
b(4) = "Сталь40"

Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.P ageFit = wdPageFitBestFit

For i = 1 To 4
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting
With Selection.Find
.Text = a(i)
.Replacement.Text = b(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i


вы смотрите макрос из... двухтыщного года
то бишь из прошлого века!