VBA Macro For FootNotes

  • Thread starter FootNotes For VBA Macro
  • Start date
F

FootNotes For VBA Macro

Hi all i need to develop an macro (VBA) to convert the footnotes in to word
file
I will store FootNotes Symbols in XML file, XML file should dynamically read
the FootNotes Symbols and replace with the corresping tags e.g
<FootNote1>Copy Right Symbol</FootNote1>

Please let me know your suggestion

Orcas
 
J

Jean-Guy Marcil

FootNotes For VBA Macro was telling us:
FootNotes For VBA Macro nous racontait que :
Hi all i need to develop an macro (VBA) to convert the footnotes in
to word file
I will store FootNotes Symbols in XML file, XML file should
dynamically read the FootNotes Symbols and replace with the
corresping tags e.g <FootNote1>Copy Right Symbol</FootNote1>

Please let me know your suggestion

Use this to get you going:

Dim docFoot As Footnotes
Dim i As Long
Dim docNew As Document

If ActiveDocument.Footnotes.Count > 0 Then
Set docFoot = ActiveDocument.Footnotes
Else
MsgBox "There are no footnotes in this document.", _
vbExclamation, "Exit"
Exit Sub
End If

Set docNew = Documents.Add

With docFoot
For i = 1 To .Count
docNew.Range.InsertAfter .Item(i).Range.Text
docNew.Range.InsertParagraphAfter
Next
End With
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top