Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 10-06-2012, 04:35 AM
Dickison Dickison is offline How to convert endnotes in a text doc to Word endnotes? Mac OS X How to convert endnotes in a text doc to Word endnotes? Office for Mac 2011
Novice
How to convert endnotes in a text doc to Word endnotes?
 
Join Date: Oct 2012
Posts: 3
Dickison is on a distinguished road
Default How to convert endnotes in a text doc to Word endnotes?

I imported into Word a large text document that has over a 1000 endnotes. The endnotes restart the numbering at the beginning of each chapter. Is there a way I can convert the text endnotes to actual linked endnotes? As a start I replaced all the existing endnote numbers that exist in the body of the document with red formatting so the endnote numbers are easily findable, hopefully. I'd like to do a find all RED numbers and replace them with an endnote marker in a manner similar to using ^p for paragraphs, but there is none that I can find.



I have Office 2011 on a Mac.
Reply With Quote
  #2  
Old 10-06-2012, 05:43 AM
macropod's Avatar
macropod macropod is offline How to convert endnotes in a text doc to Word endnotes? Windows 7 64bit How to convert endnotes in a text doc to Word endnotes? Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 20,561
macropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant future
Default

Hi Dickison,

Yes, it's quite possible with a macro, though I'm not sure making the numbers red will make much difference. The important point is that each endnote should consist of a single paragraph (I've done this before).

Can you post an extract from the document containing some representative data (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #3  
Old 10-06-2012, 06:44 AM
Dickison Dickison is offline How to convert endnotes in a text doc to Word endnotes? Mac OS X How to convert endnotes in a text doc to Word endnotes? Office for Mac 2011
Novice
How to convert endnotes in a text doc to Word endnotes?
 
Join Date: Oct 2012
Posts: 3
Dickison is on a distinguished road
Default

Document attached with representative data.
Attached Files
File Type: docx endnote problem.docx (86.9 KB, 5 views)
Reply With Quote
  #4  
Old 10-06-2012, 08:34 PM
macropod's Avatar
macropod macropod is offline How to convert endnotes in a text doc to Word endnotes? Windows 7 64bit How to convert endnotes in a text doc to Word endnotes? Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 20,561
macropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant futuremacropod has a brilliant future
Default

Try the following macro.
Code:
Sub ReLinkEndNotes()
Dim i As Long, j As Long, NtRng As Range, Rng As Range, StrNt As String
Application.ScreenUpdating = False
With ActiveDocument
  Set NtRng = Selection.Range
  Set Rng = .Range
  Rng.End = NtRng.Start
  With NtRng
    .ListFormat.ConvertNumbersToText
    .Style = "Endnote Text"
    With .Find
      .ClearFormatting
      .Text = "([0-9]{1,}).^t"
      With .Replacement
        .ClearFormatting
        .Text = "\1 "
      End With
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute Replace:=wdReplaceAll
    End With
    For i = 1 To .Paragraphs.Count
      If IsNumeric(Trim(.Paragraphs(i).Range.Words(1))) Then
        With .Paragraphs(i).Range
          j = Trim(.Words(1))
          StatusBar = "Creating Endnote: " & j
          .Start = .Start + Len(j)
          .End = .End - 1
          StrNt = .Text
          .Delete
        End With
        With Rng.Find
          .Text = j
          .Format = True
          .Font.ColorIndex = wdRed
          .MatchWholeWord = True
          .MatchWildcards = False
          .Execute
          If .Found = True Then
            .Parent.Select
            With Selection
              .Text = vbNullString
              .Endnotes.Add Range:=Selection.Range, Text:=StrNt
            End With
            Rng.Start = .Parent.Start
          End If
        End With
      End If
    Next i
    .Delete
  End With
End With
Set NtRng = Nothing: Set Rng = Nothing
Application.ScreenUpdating = True
End Sub
Simply select the whole of the range of the text to be converted to 'real' endnotes, then run the macro.

For PC macro installation & usage instructions, see: Installing Macros
For Mac macro installation & usage instructions, see: Word:mac - Install a Macro
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #5  
Old 10-06-2012, 09:11 PM
Dickison Dickison is offline How to convert endnotes in a text doc to Word endnotes? Mac OS X How to convert endnotes in a text doc to Word endnotes? Office for Mac 2011
Novice
How to convert endnotes in a text doc to Word endnotes?
 
Join Date: Oct 2012
Posts: 3
Dickison is on a distinguished road
Default

Thanks. I'll let you know how it goes. I have to do some more editing on the main document first then I'll give it a try.
Reply With Quote
Reply

Tags
endnotes

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to convert endnotes in a text doc to Word endnotes? Separating endnotes from text kenglade Word 22 09-14-2012 04:10 PM
How to convert endnotes in a text doc to Word endnotes? Endnotes within Footnotes? elias Word 12 09-04-2012 04:12 PM
How to convert endnotes in a text doc to Word endnotes? Convert - EndNote to Word's endnotes Boatwrenchv8 Word 3 05-17-2012 04:56 PM
combining word documents with endnotes mikelee114 Word 1 04-08-2012 05:27 AM
How to convert endnotes in a text doc to Word endnotes? how do I change fonts for endnotes of word 2007? Brent Word 5 02-01-2011 03:15 PM

Other Forums: Access Forums - Senior Forums

All times are GMT -7. The time now is 06:48 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft