Word Footnote Macro for QuarkXPress

It has always been a problem to import Microsoft Word documents with footnotes into QuarkXPress, as footnote references are often truncated or omitted altogether both in the body text and in front of the notes. The following Microsoft Visual Basic macro can solve this problem: it converts footnote reference numbers in the body text to plain numbers in superscript, and copies the footnotes to the end of the document with their number appended in front of them with "##" included as a separator. Then, it asks the user whether to delete all the footnotes.

If MsgBox("Make sure last paragraph is Normal", vbOKCancel) = vbCancel Then End

' inserting plain text reference numbers 
' and copying footnotes to the end of the document

For i = 1 To ActiveDocument.Footnotes.Count
  x$ = Format(ActiveDocument.Footnotes.Item(i).Index)

  ActiveDocument.Footnotes.Item(i).Range.InsertBefore Text:=(x$ + "##")
  ActiveDocument.Footnotes.Item(i).Range.Copy
  s = ActiveDocument.Range.End
  Selection.SetRange Start:=s, End:=s
  Selection.TypeParagraph
  Selection.PasteAndFormat Type:=wdFormatOriginalFormatting

  s = ActiveDocument.Footnotes.Item(i).Reference.Start
  Selection.SetRange Start:=s, End:=s
  Selection.Font.Superscript = True
  Selection.TypeText Text:=x$
Next

' deleting the footnotes

If MsgBox("Conversion done. Delete footnotes?", vbOKCancel) = vbOK Then
  For i = 1 To ActiveDocument.Footnotes.Count
    ActiveDocument.Footnotes.Item(1).Delete
  Next
End If

To install the macro, in Word, go to Tools [to] Macro [to] Macros..., type in an appropriate name for the new macro, click Create, and paste the above text between the Sub and End Sub tags. To run the macro, select Tools [to] Macro [to] Macros..., select the macro just created, and click Run, or create a keyboard shortcut. Make sure that the cursor is in the body text and not in the footnotes, and that the last paragraph in the document is formatted with the Normal style.

ALL SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.