Word Index Refer to Numbered List not Page

Anonymous

I am asking this question, I don't think it is possible. This is a 2 step question, assuming that the first one is not possible.

first question

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

I have a document with multiple pages. Where, the document is made of numbered list for example

word 1, word 2, word 3 etc.
apple, orange, goat
table, chair, mouse
computer, printer, floor

I am building an index,

apple, 2

orange, 2

table, 3

as you can see rather refer to page number, the index will refer to the list instead. I cannot find a way to do that or whether it can be done by macro.

2nd question, this should have been another question, but I put it here instead

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

assuming that question number 1 is not possible, then

I was looking the following article, try this macro but return the wrong number

https://wordmvp.com/FAQs/Numbering/ListString.htm

all what I need to do, from the list below

word 1, word 2, word 3 etc.
apple, orange, goat
table, chair, mouse
computer, printer, floor

run a macro to get the list number. for example, if I select "word 3" and run the macro, it will return "1"

as well as if I select "mouse" and run the macro it will return "3"

this is the simplest way, if 1 is not possible

Moved from: Office/ Word / Windows 10 / Office 2016

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

The code I posted inserts a PAGE field rather than just a page number. That approach allows for the possibility subsequent edits will result in the indexed content appearing on a different page.

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

I don't get any such error when running the code. Are you using it exactly as posted and selecting the content to be indexed?

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

I did say that would happen... See my reply of January 15.

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

but that special character still shows up in the index when I insert the index at the end.

That was the intention. The non-breaking space doesn't print and, if you click on the ¶ symbol on the Ribbon's home tab, the symbol that looks like º will disappear.

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

I think I can simply forget about the page number and rely with the paragraph number, since the paragraphs are numbered, so there is not need to go to specific page number

…

I think I should just forget about the page numbers.

Do be aware that, with the \t switch (which is what you need to report the paragraph #), the entries will be reported will be reported in descending order:

Apple. 2, 1

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

Try:

Sub Demo()

Application.ScreenUpdating = False

ActiveWindow.View.ShowFieldCodes = True

With Selection

ActiveDocument.Indexes.MarkEntry Range:=.Range, _

Entry:=.Text & " PL", EntryAutoText:=.Text, Bold:=False, Italic:=False

.End = .End + 1

With .Fields(1).Code

.End = .End - 2

.Start = .End - 2

.Font.Bold = True

.Collapse wdCollapseEnd

.InsertBefore Chr(160)

.Font.Bold = False

.Collapse wdCollapseEnd

.Fields.Add Range:=.Duplicate, Type:=wdFieldEmpty, _

PreserveFormatting:=False, _

Text:="STYLEREF ""Default Paragraph Font"" \n"

End With

ActiveWindow.View.ShowFieldCodes = False

Application.ScreenUpdating = True

End Sub

This will produce:

Apple PL ‎1, 1

Apple PL ‎2, 2

Apple PL ‎3, 3

Apple PL ‎4, 5

Apple PL ‎5, 8

where the number after PL is the paragraph # and the number after the comma is the page #.

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

That is not how an Index works. What you'd ordinarily get is something like:

Apple, 2, 3, 4, 5

where the numbers are page or paragraph references. To get what you want, every XE field would have to be unique, perhaps by including the PL & paragraph # in the XE field's argument, rather than as a switch.

0 comments

Answer accepted by question author

Paul Edstein 82,871 Volunteer Moderator

Try:

Sub Demo()

Application.ScreenUpdating = False

Dim Fld As Field, strnum As String

For Each Fld In ActiveDocument.Fields

With Fld

If .Type = wdFieldIndexEntry Then

Do While .Code.Characters.Last = " "

.Code.Characters.Last = vbNullString

Loop

Do While .Code.Characters.Last.Previous = "."

.Code.Characters.Last.Previous = vbNullString

Loop

End If

End With

Application.ScreenUpdating = True

End Sub

0 comments

51 additional answers

Anonymous

2019-01-13T04:43:38+00:00

but that special character still shows up in the index when I insert the index at the end.

thanks

you also did not respond to this

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

This is your first code I would like to use, but there is a problem here

Application.ScreenUpdating = False

ActiveWindow.View.ShowFieldCodes = True

With Selection

ActiveDocument.Indexes.MarkEntry Range:=.Range, _

Entry:=.Text, EntryAutoText:=.Text, Bold:=False, Italic:=False

With .Fields(1).Code

.Collapse wdCollapseEnd

.Fields.Add Range:=.Duplicate, Type:=wdFieldEmpty, _

PreserveFormatting:=False, _

Text:="STYLEREF ""Default Paragraph Font"" \n"

End With

End With

ActiveWindow.View.ShowFieldCodes = False

Application.ScreenUpdating = True

when I stepped to it, it crashed in this line

With .Fields(1).Code

the problem is the selected text need to have a space at the end. So if Apple end with "," or "." and only apple is selected then the problem. It only works if Apple is selected with an empty space
Was this answer helpful?

0 comments No comments