Function fncReplaceTextOnOneString(FindTxt As String, ReplaceTxt As String) As String
    Dim rng As Range
    Dim sngFirst As Single
    Dim sngLast As Single
    Dim cntLines As Integer
    Dim ret As Boolean
    Dim retString As String
    
    retString = ""
    ret = False
    
    
    cntLines = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)
    Selection.Find.Text = FindTxt
    Selection.Find.Replacement.Text = ReplaceTxt
    Selection.Find.Wrap = wdFindContinue
    Selection.Find.Execute Replace:=wdReplaceOne
    Set rng = Selection.Cells( 1 ).Range
    ret = CBool(cntLines = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines))
    
    If ret Then
        fncReplaceTextOnOneString = retString
    Else
        Do
            retString = rng.Words(rng.Words.Count -  1 ) + retString
            rng.Words(rng.Words.Count -  1 ).Delete
            ret = CBool(cntLines = ActiveDocument.BuiltInDocumentProperties(wdPropertyLines))
        fncReplaceTextOnOneString = retString
        Loop While Not ret
    End If
    
            
    End Function