looping through comma delimited text

[DZ]

Hi

I need to do something with a comma delimited block of text.

.....like
text , text, text, etc

Can someone help me write a loop to loop through each block of text between
commas?

Thanks alot for any help

 

[Doug Robbins - Word MVP]

What do you want to do with it? Better to tell us that and then we would be
in a better position to provide advice.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[StevenM]

: << I need to do something with a comma delimited block of text.
Like: text , text, text, etc. Can someone help me write a loop to loop
through each block of text between commas? >>

Perhaps there is a better method, but you might try something like:

Sub FindTextBetweenCommas()
Dim oRange As Range
Set oRange = ActiveDocument.Range
' First we create text to find
oRange.Text = "abc, def, ghi, jkl, mno, pqr, stu, vwx, yz,"
Application.ScreenRefresh
' Now we find each word between commas
For Each oWord In oRange.Words
If InStr(1, oWord.Text, ",") = 0 _
And InStr(1, oWord.Text, vbCr) = 0 Then
oWord.Select
MsgBox oWord.Text
End If
Next oWord
End Sub

Steven Craig Miller