Thank you Miriam for your post. Yes, the macro does work.
I am not a techie, but I do pay attention to directions in a very detailed manner. I usually do not give comments online, but I thought I needed to do this because Miriam just saved me a lot of headache and time trying to convert my dissertation manuscript from a format in which I used EndNote X6 to create (with JAMA style), to one which my professor prefers (he prefers the one where you have consecutively numbered citations with MS Word footnotes inserted below each page).
Typically, inserting footnotes (using Word footnote features and citations inserted with EndNote software) is an easy task if you start this process from the beginning. It becomes difficult when you want to convert your document (which could run into hundreds of pages) containing citations and references (initially created using only the EndNote software) back into a document with footnotes and bibliography (that is arranged in alphabetical order).
I found that the macro may not work if you have page breaks and section breaks within your doument and you run the macro without first modifying it like Miriam suggested (i.e., deleting lines 3-6, second to the last line, and replacing line 7 with the suggested code line). However, if you modify the macro, you do not have to remove your already formatted document before running the macro. Also, remember to grant access to the macro by changing the security settings (for Word 2010, the navigation is file>options>trust center>trust center settings>macro settings>enable all macros) (remeber to change this back to the original setting once you’ve successfully run the macro).
The following directions below was exactly what I followed in order to format from Endnote JAMA (without Word footnote) to Chicago 16th A style with Word footnote.
-
Follow the direction given by Miriam in copying the macro below into Word
-
run macro
-
Go to the end of your document. You will find citations having only roman numerals (this was created by the macro) and the original references from your document.
-
Change the citations having only Roman numerals (i.e., i, ii, iii, iv, etc) into Word endnote (i.e., those containing both the Roman numerals and word-form citations following the roman numerals, by changing the style within the Word document to ‘Chicago 16th A’ (meanwhile, I reformatted the Chicago 16th A style to look like JAMA style within the edit section of EndNote X6).
-
select (4)(i.e., select all the Word endnotes)
-
right click on (5) to change the format before converting the Word endnotes to footnotes. Paragraph: align left, body text, indentation: left 0, right 0, special none; Spacing: before 0, after 10pt, line spacing multiple, at 1.15.
-
select (6)
-
right click (7) and select convert to change the endnotes to footnotes (You will now have a document that have the in-text citations as footnotes on each page. Towards the end of your document, you will have the bibliography arranged alphabetically and references numbered consecutively).
I hope this helps others in my shoe trying to change the formatting of their document.
Sub intext2footnote()
Dim vLastSectionI, vField, i, J
For Each vField In ActiveDocument.Fields
Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:= _
“ADDIN”
Selection.Find.ClearFormatting
With Selection.Find
.Text = “{ }”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=“temp”
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
ActiveDocument.Endnotes.Add Range:=Selection.Range, Reference:=""
Selection.Paste
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=“1”
Selection.Find.ClearFormatting
With Selection.Find
.Text = “{ }”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.GoTo What:=wdGoToBookmark, Name:=“temp”
Selection.Find.ClearFormatting
With Selection.Find
.Text = “{ }”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
With Selection.Find
.Text = “{ }”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveDocument.Bookmarks(“temp”).Delete
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Next vField
End Sub