Microsoft Office, Infinite loop

1. Help on .NET Word Object Library Range Find.Execute infinite Loop

2. Infinite loop when using track changes - MS Word Support

3. Infinite Loop Problem

I had a professor contact me today about a problem he was having with a word 
document. For some reason he entered something then hit enter and a character 
Y with two little dots just started appearing on the screen. He managed to 
close word down but now when ever you open up this document it sits in an 
infinite loop and locks word.

I was wondering if there is any tool available to analyze this file to see 
if it can be fixed. If someone wants a copy of the file to check out the 
problem please ask.

Eric

4. infinite loop in winword.exe - Microsoft Word

5. StrReverse() function - infinite loop

I have just started program with Word 2002
While trying to reverse each word in a line of text encountered a 
problem: Word enters an infinite loop and stops responding.
Could somebody explain why?
Code:
---------------
Sub TestReverseWords()
Dim myRange As Range
Dim aWord As Object
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
     aWord.Text = StrReverse(aWord.Text)
Next aWord
End Sub
--------------
end code

Thanks in advance.
Mike

6. replace header text: get section data in header to halt infinite loop VBA - Word VBA

7. Infinite Loop with a find and replace

Hi, I'm wondering if someone would be kind enough to help me.  I'm working 
with a script and want to highlight different character names and their 
dialogue.  I can highlight the character names easily with Find and Replace.  
But their subsequent dialogue, in a new paragraph under their character 
names, is proving more difficult.  I've created a macro that will do this, 
but when it reaches the end of the script, it asks me if I want to continue 
searching at the top of the document.  If I say yes, it loops infinitely; if 
I say no, it keeps asking again and again, another loop.  Here's my code, 
below.  Any help is appreciated.  Thanks.


Sub HighlightEllie()
'
' HighlightEllie Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Options.DefaultHighlightColorIndex = wdYellow
    
    With Selection.Find
        .Text = "ELLIE^p"
        .Replacement.Text = "ELLIE^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
    End With
     
     
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    
    With Selection.Find
        .Text = "ELLIE^p"
        .Replacement.Text = "ELLIE^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
     End With
    
   
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
     
    Do While True
    
    With Selection.Find
        .Text = "ELLIE^p"
        .Forward = True
        .Wrap = wdFindAsk
        .MatchCase = True
    End With
    
    
    Selection.Find.Execute
    
     
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.HomeKey Unit:=wdLine
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Range.HighlightColorIndex = wdYellow
    Selection.HomeKey Unit:=wdLine
    
    Loop
       

End Sub

8. Questions: Infinite Loops, Hyperlinks - Word VBA