View Single Post
  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP Doug Robbins - Word MVP is offline
external usenet poster
 
Posts: 8,832
Default automatically extract footnotes into new file and €¦

Use a modification of the following macro, replacing Endnotes with Footnotes

' Macro created 29/09/99 by Doug Robbins to replace endnotes with textnotes
at end of document
' to replace the endnote reference in the body of the document with a
superscript number.
'
Dim aendnote As Endnote
For Each aendnote In ActiveDocument.Endnotes
ActiveDocument.Range.InsertAfter vbCr & aendnote.Index & vbTab &
aendnote.Range
aendnote.Reference.InsertBefore "a" & aendnote.Index & "a"
Next aendnote
For Each aendnote In ActiveDocument.Endnotes
aendnote.Reference.Delete
Next aendnote
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
End With
With Selection.Find
.Text = "(a)([0-9]{1,})(a)"
.Replacement.Text = "\2"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"hrdwa" wrote in message
...
I need to import .docs (or possibly .docx) into InDesign. Footnotes need
to
be a seperate file, footnote numbers in main text need to have a specific
character style applied to them. I can't ask the authors to sett up two
seperate files, they will deliver standard texts with the app's footnotes
function used. What I'm looking for is a way to automatically split this
standard file into two, one containing the main text, ideally with all the
footnote numbers getting a specifyable character style applied to them
(but
if that's not possible, it would suffice to have them remain where they
were
and apply this c.s. manually), the other containing the footnotes, equally
with the numbers kept and ideally with a second c.s. applied to them.

If there would be any way, and array of scripts or whatever to achieve
this?
That would be of great great help. Thanks a lot in advance.