Solved: how often does a string contain a substring

[marcelma]

hello,

is there any ready function which can determine how often a certain substring is contain inside a string or do I have to check it with a loop?

thanks a lot in advance,
Marcel

[Tinbendr]

Well, sort of.

Sub CountWord()
Dim A As Variant
A = Split(ActiveDocument.Range.Text, "the")
MsgBox (UBound(A))
End Sub

This creates a array based on a delimiter you specify. After the Split, you display the number of elements with UBound, which is the Upper Boundary of the array.

[marcelma]

great solution - many thanks.

I wonder how people like you know all such things :-)

[fumei]

Just remember that that is case-sensitive.