Function ExportWord(ByVal iName As String, ByVal iVal As String) As Boolean
    With iWord.Content.Find               
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = iName
        .Replacement.Text = iVal
        .Forward = True                     
        .Wrap = wdFindContinue             
        .Format = False                  
        .MatchCase = True                  
        .MatchWholeWord = True              
        .MatchAllWordForms = False          
        .MatchSoundsLike = False            
        .MatchWildcards = False   
        .Execute

    End With
End Function