Re: I was given this macro from this group

From: Steved (anonymous_at_discussions.microsoft.com)
Date: 02/04/05 

Date: Thu, 3 Feb 2005 22:15:27 -0800

Hello from Steved

I am very new at this and have no idea about the
terminology and subsequently i've now have no idea
what to do with your kind answer. Please understand
the reason I came to this sight is to get an answerto my
issue, and the end result would be that it works. You are
asking me to understand code which is new to me so please
if you would bare with me please just show me how I can
get your macro to function. In other words a) and b)I
cannot comprehend.

Thankyou.

>-----Original Message-----
>By now you should have learned enough about coding to
actually read and
>think about these code snippets. You can't just paste
them into a module and
>pray.
>
>a) Insert, in place of Range.Text, whatever string
you're working with.
>
>b) Declare all the variables.
>
>
>
>
>
>"Steved" <anonymous@discussions.microsoft.com> wrote in
message
>news:03c101c50a79$d2c98570$a501280a@phx.gbl...
>> Hello from Steved
>>
>> The below macro Keeps highlighting the belowand will
not
>> work please help.
>>
>> pWords = Split(Range.Text, " ")
>>
>>
>> Sub Testing()
>> Dim pWords() As String
>> pWords = Split(Range.Text, " ")
>> For i = 0 To UBound(pWords)
>> If pWords(i) Like "[a-zA-Z]{1,}" Then
>> pStartWord = i
>> Exit For
>> End If
>> Next
>>
>> Output = pWords(pStartWord)
>> For i = pStartWord + 1 To UBound(pWords)
>> Output = Output & " " & pWords(i)
>> Next
>> End Sub
>
>
>.
>

Relevant Pages