[kejo]

hello,

how do i loop an instruction until the end of the document ?
i wasn't able to find the right way using google :\

please help

[Rollin_Again]

Explain in detail what the macro is going to be doing.

Regards,
Rollin

[kejo]

it's going to find a string and replace.
my macro will do it once.
i want it to find and replace all the strings in my file (until the end of file)

[Rollin_Again]

Why not use the wdReplaceAll method??

Sub ReplaceAll()

With ActiveDocument.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Execute findtext:="SearchText", replaceWith:="ReplaceText", Replace:=wdReplaceAll
End With

End Sub

[kejo]

thank you Rollin_Again, but i need to learn how to loop untill End of File.
can you please tell me how to do this?

[Rollin_Again]

You still need to explain exactly why and how you want to loop through the document. Do you want to loop through line by line and look for a certain phrase or word. Do you want to loop through word by word? You can try the code below. It looks for the built in bookmark called "EndOfDoc"

  
Sub LoopDoc()
     
Selection.HomeKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine

i = 1

Do Until ActiveDocument.Bookmarks("\Sel").Range.End = _
ActiveDocument.Bookmarks("\EndOfDoc").Range.End
MsgBox ("You are on line " & i)
Selection.MoveDown
i = i + 1
Loop
     
MsgBox ("You have reached the end of the document")
     
End Sub

Regards,
Rollin

[kejo]

ok thank you very much Rollin_Again, what i want to do is:
find every underlined string in the doc and make the first char of the found string red

[kejo]

Originally Posted by Rollin_Again

You still need to explain exactly why and how you want to loop through the document. Do you want to loop through line by line and look for a certain phrase or word. Do you want to loop through word by word? You can try the code below. It looks for the built in bookmark called "EndOfDoc"

  
Sub LoopDoc()
     
Selection.HomeKey Unit:=wdStory
Selection.HomeKey Unit:=wdLine

i = 1

Do Until ActiveDocument.Bookmarks("\Sel").Range.End = _
ActiveDocument.Bookmarks("\EndOfDoc").Range.End
MsgBox ("You are on line " & i)
Selection.MoveDown
i = i + 1
Loop
     
MsgBox ("You have reached the end of the document")
     
End Sub

Regards,
Rollin

i am sorry to tell you that your code generates an infinite loop

[Rollin_Again]

I modified the original code that I posted. Are you using the updated code as it appears in the post above or are you using the original code?

Regards,
Rollin

[Rollin_Again]

Try this

Sub ChangeColor()

For Each vWord In ActiveDocument.Words

If vWord.Underline = 1 Then
vWord.Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Font.Color = wdColorRed
End If

Next

End Sub

Regards,
Rollin

[kejo]

ok your code works fine, but i need to find lines instead of words.
how to do it?
i need something like this (don't know if it exists):

For Each vLine In ActiveDocument.Lines

[Rollin_Again]

I'm still a bit unclear on what you are trying to accomplish. Can you please provide more explanation on why you want to search line by line? Will the underlined strings you are searching for consist of more than one word?

Regards,
Rollin

[kejo]

I have many numbered lists like this one:

1. first item
2. second item
3. third item

and want to make red the number of the underlined line, like this:

1. first item
2. second item
3. third item

how can i do this?
i have tried some solutions but none worked.
hope you guys are able to help me.

thanks in advance.

[kejo]

please, anybody help, ?

[Rollin_Again]

Can you post a sample document?

Regards,
Rollin