I'm trying to write a macro in Word 2000 that goes through every row
in a table and does a search for text, then edits the hyperlink
associated with that text.  The problem is that I can't stop at the
end of the table.  Anything I try, it either wraps, and starts all
over again, infinite-looping, or else it runs off the end of the table
and causes an error when it hits the text outside the table.

---

Request for Question Clarification by pafalafa-ga on 23 Apr 2005 13:42 PDT

Is it possible to copy just the table to a separate file and run the
macro there?  Sometimes, that's just easier than trying to figure out
how to finesse the macro code.

What do you think?


pafalafa-ga

---

Clarification of Question by brianhh-ga on 23 Apr 2005 15:18 PDT

Hi, Everyone.

The documents I'm working with have the tables at the top of the
document.  Cutting out the table and pasting it into a blank document
doesn't seem to help matters. It loops infinitely and I have to close
Word (2000) to get it to stop.

Any help you can give me would be well appreciated.  See code below:


======================================================

Sub AdisChange()
'
' AdisChange Macro
' Macro recorded 4/21/2005 by Brian Hartman
'
while CurrentRow < Selection.Information(wdMaximumNumberOfRows) 
'MsgBox (Selection.Information(wdMaximumNumberOfRows))
'MsgBox (Selection.Information(wdStartOfRangeRowNumber))
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Adis"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Link"
        .Replacement.Text = ""
        .Forward = True
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Range.Hyperlinks(1).Range.Fields(1).Result.Select
    Selection.Range.Hyperlinks(1).Delete
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "http://bi.adisinsight.com/remoteDocumentView.asp?adisnumber=800002227&productid=RDI&mode=charting&PushValidation=95683"
_
        , SubAddress:="", ScreenTip:="", TextToDisplay:= _
        "Link to Full R&D Insight Record"
    Selection.Collapse Direction:=wdCollapseEnd
Wend
End Sub

===================================================

Hi

If possible post the code.

Thanks
Balakumar