[kejo]

i have attached a sample doc.

[Rollin_Again]

There is no way to change the color of a single element in a true numbered list in MS Word. You either have to change all the number colors or not. The only way to overcome this feature in Word is to go into the AutoCorrect options and turn off the "Automatic Numbered List" option. This would however require that you recreate all the existing numbered lists. Is that an option for you? What version of MS Word are you using?

Regards,
Rollin

[kejo]

ok i've just run this code

ActiveDocument.ConvertNumbersToText

so now i have all text.
now what to do ?

[Rollin_Again]

Try the code below.

Sub ChangeColor()

ActiveDocument.ConvertNumbersToText

For Each vWord In ActiveDocument.Words

If vWord.Underline = 1 Then
vWord.Select
Selection.HomeKey Unit:=wdLine
Do Until InStr(1, Selection.Text, ".") > 0
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop
Selection.Font.Color = wdColorRed
End If

Next

End Sub

Regards,
Rollin

[kejo]

it works but makes red some lines as well...

[Rollin_Again]

Run the macro and attach the modified file so I can see what you are talking about.

Regards,
Rollin

[kejo]

here is a better sample, please look at it

in a few words your code turns this:

1.	This is a testbla blab
       la bla blabla asdasd 
2.	Aasdasd 
3.	Asdrttr8776
4.	Sdfdfhhfg

into this:

1.	This is a testbla blab
 la bla blabla asdasd 
2.	Aasdasd 
3.	Asdrttr8776
4.	Sdfdfhhfg

[Rollin_Again]

This is going to be difficult unless I have the actual document you are trying to convert since I'll need to write some special logic into the macro. Does it contain sensitive info?? Could you email it to me?

Regards,
Rollin

[kejo]

here is a sample.
please look at it, as it's very similar to my original doc.

thanks for understanding..

[Rollin_Again]

Try this

Sub ChangeColor()

ActiveDocument.ConvertNumbersToText

For Each vWord In ActiveDocument.Words

If vWord.Underline = 1 Then
vWord.Select
Selection.HomeKey Unit:=wdLine

If IsEmpty(vStart) Then
vStart = Selection.Information(wdHorizontalPositionRelativeToPage)
End If

If Selection.Information(wdHorizontalPositionRelativeToPage) = vStart Then
Do Until InStr(1, Selection.Text, ".") > 0
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Loop
Selection.Font.Color = wdColorRed
Else
GoTo Skip
End If
End If
Skip:
Next

End Sub

Regards,
Rollin

[slurpee55]

Originally Posted by kejo

ok i've just run this code

ActiveDocument.ConvertNumbersToText

so now i have all text.
now what to do ?

Boy, I wish I had known that last week....

[Rollin_Again]

Originally Posted by slurpee55

Boy, I wish I had known that last week....

Don't feel bad, I just found out about it myself

Regards,
Rollin

[kejo]

Rollin how did you learn all this stuff ??? i couldn't find it on google...
i really don't know how to thank you ... i appreciate your help. thanks !

[slurpee55]

I think he channels someone....

[Rollin_Again]

So I take it the macro worked? I pretty much taught myself VBA over the past 7 years. I started like most people and just recorded basic stuff using the macro recorder and then stepped through the generated code line by line to learn what each line did. After a while you just start to learn about all the object properties and methods. The key to becoming good at VBA is practice. I like challenges and one of the ways that I practice is by helping people like you with real world problems.

Regards,
Rollin