Здравствуйте.  
Следующая функция должна принимать в качестве аргументов объект на документ Ворд, замещаемый текст и замещающий текст.  
Sub Find_Replace(ByRef W As Object, FindText As String, ReplacText As String)  
With W.Range.Find  
                   .Text = FindText  
                   .Replacement.Text = ReplaceText  
                   .Forward = True  
                   .Wrap = 1  
                   .Format = False: .MatchCase = False  
                   .MatchWholeWord = False  
                   .MatchWildcards = False  
                   .MatchSoundsLike = False  
                   .MatchAllWordForms = False  
                   .Execute Replace:=2  
End With  
End Sub  
 
Причем, если использовать этот кусок кода без функции - напрямую, то все работает.  
Поскажите, пожалуйста, что я упустил.  
Заранее благодарю за ответы.