Как передать строку в Word? - VB

Формулировка задачи:

Есть следущая проблема - файл в Word. Есть в тексте место которое надо заменять. Точнее комбинцию <#Заказчик#> надо заменить строкой с названием фирмы. Заказчиков - 60 шт. После каждой замены файл надо сохранить. Потом открыть шаблон и повторить операцию.... Как это сделть? Своими мозгами не допер. Помогите чем можете......

Решение задачи: «Как передать строку в Word?»

textual
                            Листинг программы 
                        

                            Public Sub WordChange(ByVal X As String, ByVal Y As String)
    If Len(X) > 0 Then
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = X
            .Replacement.Text = Y
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = True
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute Replace:=wdReplaceAll
        End With
    End If
End Sub
                        