Public Function ReplaceStringInFiles( _
      ByVal vobjAppl As Object _
    , ByVal vFromFiles As Variant _
    , ByVal vToDirectory As Variant _
    , ByVal vFindPattern As Variant _
    , ByVal vReplaceWith As Variant _
    , Optional ByVal vCompare As Variant _
    , Optional ByVal vCapitalizeLikeOriginal As Variant _
    , Optional ByVal vExcludePatterns As Variant _
    , Optional ByVal vSeparator As Variant _
    , Optional ByVal vAttributes As Variant _
    , Optional ByVal vDoReplacement As Variant _
    ) As Boolean

    ReplaceStringInFile Function
    ReplaceStringInFilesSample Subroutine