Results 1 to 3 of 3
  1. #1
    Star Lounger
    Join Date
    Feb 2001
    Location
    USA
    Posts
    51
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Index (Word 2000/SR-1)

    I was wondering if anyone knew of a way to make the page numbers in the index a hyperlink? I want the index to function the same as the Table of Contents.
    Any suggestions will be appreciated.

    Ruth

  2. #2
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Los Angeles Area, California, USA
    Posts
    7,453
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Index (Word 2000/SR-1)

    Hi Ruth:
    I want it too. The feature does not exist; probably because the word in the index might be found many times in the document. Still, it would be nice if it linked to the first entry or if each page number after the entry was a link. If you find a way, please let me know. Sorry. (Oh, you could write to <A target="_blank" HREF=http://register.microsoft.com/mswish/suggestion.asp>mswish@microsoft.com </A>)

  3. #3
    5 Star Lounger
    Join Date
    May 2001
    Location
    Stuttgart, Baden-W, Germany
    Posts
    931
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Index (Word 2000/SR-1)

    Putting in true hyperlinks and/or bookmarks seems to overdo it; perhaps you can do without.

    I just tried to hack a macro to do it. I just checked it on very simple documents; probably there is a lot that could go wrong (page numbering not starting with 1...), and there are certainly lots of ways to embellish it.

    You could put the macro on the right-click menu (context menu) for Fields.

    <pre>Sub FindIndexEntries()
    '<font color=blue> Select the page number in the index and run macro</font color=blue>

    Dim strPage As String
    Dim strEntry As String
    Dim Rng As Range
    Dim RngPage As Range
    '<font color=blue> Get entry and page</font color=blue>
    strPage = Trim(Str(Val(Selection.text)))
    Set Rng = Selection.Range.Duplicate
    Rng.Expand (wdParagraph)
    Rng.Collapse (wdCollapseStart)
    Rng.MoveEndUntil Cset:="0123456789", Count:=wdForward
    strEntry = Trim(Rng.text)
    '<font color=blue> Select page</font color=blue>
    Selection.GoTo What:=wdGoToPage, _
    Which:=wdGoToNext, Name:=strPage
    Selection.GoTo What:=wdGoToBookmark, Name:="page"
    '<font color=blue> Search for entry in page</font color=blue>
    Set Rng = Selection.Range.Duplicate
    With Rng.Find
    .ClearFormatting
    .text = strEntry
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = True
    '<font color=blue> Return information</font color=blue>
    If .Execute Then
    Rng.Select
    Else
    Application.GoBack
    Application.GoBack
    MsgBox """" & strEntry & """ not found", _
    vbOKOnly + vbInformation, _
    "page " & strPage
    End If
    End With

    End Sub</pre>

    <img src=/S/cheers.gif border=0 alt=cheers width=30 height=16>Klaus

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •