2016-07-25 3 views

ответ

1

Надежда ниже код логика может помочь вам решить эту проблему:

Sub test1() 

    Debug.Print boldAndDeletion("Your name is Albert Einstein.") 

End Sub 

Function boldAndDeletion(inputString As String) As String 

    Dim splitStr1 As Variant 

    splitStr1 = Split(inputString, " ") 

    If splitStr1(0) = "My" Then 
     boldAndDeletion = "<b>My</b>" & Mid(inputString, 3) 
    Else 
     boldAndDeletion = Empty 
    End If 

End Function 
Смежные вопросы