|
#1
|
|||
|
|||
Repair two interspersed endnote numbering schemes?
My mother, who is not computer savvy, revised a Word document using the "track changes" option. She had many end notes, and she moved paragraphs around that referred to end-notes, she also added new end-notes, sometimes she deleted the end-notes in a way that I find questionable - she went to the end-note and hit the delete key until all the letters were red. She also ran into problems where the entire end-note would be formatted as a superscript, or subscript, and she tried to correct those. Anyway, I made a copy of the document, I implemented "accept all changes" and then she worked on it, until she suddenly noticed that the end-note numbering was wrong. She would have end-note numbering such as 34, 35, 36, and all of a sudden 1,2,3. and then 37,38,39 In fact, there are two end-notes with the same number '4', for instance. I can't find any way to renumber it. She says that the end-note that starts with one (after the 36) was simply a new note that she added.
If anyone knows how to clean up this mess, I'd appreciate hearing from you. |
#2
|
||||
|
||||
Cross-posted at: http://social.msdn.microsoft.com/For...7-15d2ebae4318
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184 Without seeing the document, it's hard to be sure what the issue is. Can you attach a document to a post with some representative content (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Here is the attachment. Thanks.
Here is a page I lifted out of the manuscript. It has one end-note from the original set (number 25) and all the others are from the new set.
I notice that when I click the icon on the home tab that shows all format marks that one set of footnote numbers has squares around them. Last edited by macropod; 04-14-2013 at 06:31 AM. Reason: Attachment deleted for privacy |
#4
|
||||
|
||||
Based on what your attachment contained, the following macro should repair the document.
Code:
Option Explicit Sub RepairEndNotes() Application.ScreenUpdating = False Dim Rng As Range, NtRng As Range, RngNt As Range Dim i As Long, j As Long, eNote As Endnote With ActiveDocument .Styles("Endnote Text").ParagraphFormat.SpaceAfter = 6 Set Rng = .Range.Characters.Last For Each eNote In .Endnotes i = i + 1 StatusBar = "Extracting Endnote: " & i With eNote Set NtRng = .Reference.Characters.First NtRng.End = .Reference.End With NtRng Do While .Characters.Last.Next.Font.Superscript = True If .Characters.Last.Next.Text = vbCr Then .Characters.Last.Next.Font.Superscript = False Exit Do End If .Characters.Last.Next.Text = vbNullString Loop Do While .Characters.First.Previous.Font.Superscript = True If .Characters.First.Previous.Text = vbCr Then .Characters.First.Previous.Font.Superscript = False Exit Do End If .Characters.First.Previous.Text = vbNullString Loop .InsertBefore "{" & i & "}" .Font.Superscript = True End With .Range.Cut End With Set NtRng = .Range With NtRng While .Characters.Last.Previous.Text = Chr(13) .Characters.Last.Previous.Text = vbNullString Wend .Collapse wdCollapseEnd .InsertAfter vbCr & "[" & i & "]" .Font.Superscript = True With .Paragraphs.Last.Range .Style = "Endnote Text" .Words.First.Style = "Endnote Reference" End With .Collapse wdCollapseEnd .Paste End With Next DoEvents StatusBar = "Deleting All Endnotes!" For Each eNote In .Endnotes eNote.Delete Next DoEvents With .Content With .Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Text = "\[([0-9]{1,})\]" .Font.Superscript = True .Replacement.Text = "" .Execute End With If .Find.Found Then Set NtRng = .Duplicate ' Find more qualifying Endnote content Do While .Find.Found .Collapse wdCollapseEnd .Find.Execute Loop NtRng.End = .Duplicate.Paragraphs.Last.Range.End ' Eliminate the 'marker' text and ensure each Endnote consists of one paragraph With NtRng.Find .MatchWildcards = True .Wrap = wdFindStop .Text = "[^11^13]{1,}" .Replacement.Text = "^l" .Execute Replace:=wdReplaceAll .Text = "\[([0-9]{1,})\]" .Replacement.Text = "^p\1" .Execute Replace:=wdReplaceAll End With NtRng.End = NtRng.End + 1 NtRng.Characters.First.Delete j = NtRng.Words.First - 1 DoEvents For i = 1 To NtRng.Paragraphs.Count StatusBar = "Rebuilding Endnote Reference: " & i + j With .Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindContinue .Format = True .MatchWholeWord = True .MatchWildcards = False .Text = "{" & i + j & "}" .Font.Superscript = True .Execute End With If .Find.Found = True Then Set RngNt = .Duplicate RngNt.Text = vbNullString .Endnotes.Add Range:=RngNt, Text:="" Set RngNt = NtRng.Paragraphs(i).Range With RngNt .End = .End - 2 .Start = .Words(2).Start .Cut End With With ActiveDocument.Endnotes(i).Range .Collapse wdCollapseEnd .Paste If Trim(.Words.First.Text) Like "[0-9]" Then .Words.First.Text = vbNullString If Trim(.Words.First.Text) = "." Then .Words.First.Text = vbNullString End With End If DoEvents Next i NtRng.Text = vbNullString End With End With ErrExit: Set NtRng = Nothing: Set RngNt = Nothing StatusBar = "Done!!" Application.ScreenUpdating = True End Sub For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] Last edited by macropod; 04-13-2013 at 11:10 PM. Reason: Code revision |
#5
|
|||
|
|||
All fixed! Fantastic. My mother marvels that you put in this effort to help us, and thanks you profusely.
|
#6
|
|||
|
|||
Thanks for a great macro--it did fix the weird numbering problem I was having in my doc, but it also deleted the first word from most of the notes. Most of the original notes did not have any space or tabs between the number and the text, but the first word disappeared whether there was a space or not, and stayed when there was a tab. This doc has over 600 endnotes, so I'm hoping for an alternative to inserting tabs in all the existing notes. Thanks for any help.
|
#7
|
||||
|
||||
The macro is designed to work with a standard endnote setup, which includes a space between the endnote reference and the endnote text. If you've deleted the endnote reference and the space following it (neither of which would occur accidentally on 'Most of the original notes'), the results can't be guaranteed. In my testing, even that only results in the first character of the endnote text being deleted, not the first word. Furthermore, the mere absence of a space after the endnote reference would not compromise the macro's workings; in fact, the missing spaces would be restored in the repaired endnotes.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
renumbering endnotes |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook repair | jolly | Outlook | 0 | 02-01-2012 02:01 PM |
Scanpst freezes while repair | wainwright | Outlook | 0 | 01-10-2012 08:14 AM |
Looking for advice - outlook repair | Nicole Crawford | Outlook | 1 | 11-27-2011 07:36 AM |
endnote and import reference from word to endnote | uncung | Word | 0 | 06-18-2011 08:09 AM |
Corrupted PST Won't Repair | stlsailor | Outlook | 4 | 09-21-2010 12:18 AM |