Need to edge out the competition for your dream job? Train for certifications today.
Open in new window
Function WordLevel(sFind As String, sText As String, sDivider As String, Optional bCaseSensitive As Boolean = False) As Long
'Splits sText into phrases at each sDivider substring, then searches for sFind. Returns index number of first phrase
Dim phrases As Variant
Dim i As Long, n As Long
Dim Compare As Integer
If bCaseSensitive = False Then
sFind = LCase(sFind)
sText = LCase(sText)
phrases = Split(sText, sDivider)
n = UBound(phrases)
For i = n To 0 Step -1
If InStr(1, phrases(i), sFind) > 0 Then Exit For
WordLevel = i + 1
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.