Removing duplicate index entries

Bengt · #1 02-26-2013, 06:50 AM

I have a rather large document, into which I intend to enter index entries. Alas, someone has already started that project before me, but only made it halfway through. Now, when I do an AutoUpdate of the index entries, I get double entries from time to time, one from the person who did it first, and one from my own update. What is the easiest search and replace operation to get rid of all XE-field-codes?

Grateful for any help

Bengt

Stefan Blom · #2 02-28-2013, 11:50 AM

Are you tracking changes, perhaps? In that case, note that many fields won't "behave" until you have accepted (or rejected) changes and turned off the tracking.

Bengt · #3 03-01-2013, 12:34 AM

Quote:

Originally Posted by Stefan Blom

Are you tracking changes, perhaps? In that case, note that many fields won't "behave" until you have accepted (or rejected) changes and turned off the tracking.

Perhaps I need to clarify my question:
If you do a search and replace operation, I have only found the ^d character for the search, and that finds any field, not only XE-fields. Can you specify the search parameter more, i.e. can you search for, for example, ^dXE?

Bengt

macropod · #4 03-01-2013, 12:59 AM

Hi Bengt,

Try the following macro:

Code:

Sub DeleteAllIndexEntryFields()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^d"
    .Replacement.Text = ""
    .Format = False
    .Forward = True
    .Wrap = wdFindStop
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute
  End With
  Do While .Find.Found
    If .Fields(1).Type = wdFieldIndexEntry Then .Delete
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

For installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

Bengt · #5 03-01-2013, 01:55 AM

Great, thanks. I'll give it a try.

Bengt

Stefan Blom · #6 03-01-2013, 02:01 AM

Manually replacing ^d XE with nothing should work just as fine. You'd have to display hidden text first (so that the XE fields are visible).

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Index entries repeating	SQLUSA	Word	0	12-27-2012 08:19 AM
How Can I Flag Duplicate Date Entries?	tatihulot	Excel	5	11-16-2012 12:19 AM
colour of entries	ntambomvu	Outlook	0	03-15-2012 11:56 PM
Removing secondary entries	atilla	Excel	4	07-17-2011 07:29 AM
Index entries in endnotes	perhj	Word	0	06-19-2011 09:28 AM