Cómo mover las notas al pie de MS Word al texto del cuerpo
1
Tengo un documento de MS Word con más de 100 notas al pie. Quiero incluirlos en el texto (donde está actualmente el número de superíndice) con una <ref></ref>etiqueta para poder colocar el documento en una wiki. ¿Cómo hago esto?
Sub AddFnTextInBodyOfDoc()
Dim f As Footnote
Dim r As Range
For Each f In ActiveDocument.Footnotes
Set r = f.Reference
r.Collapse wdCollapseEnd
r.InsertAfter "<ref>" & f.Range.Text & "</ref>"
Next f
End Sub