Footnotes

[dsn]

Hi guys, I have a problem with footnotes in Word. I've been writing in Openoffice before, then i activated Word and when i opened a file created in Openoffice, all the footnotes were messed up. They should be this little numbers in the upper corner of a word, but they are the size (and font) of a regular text (like this: example3, instead of example*) Any way to fix it?

[gmayor]

Without seeing the document and only a single example to work with, it is hard to judge, but the following macro should help fix any that match your example.

Sub AddSuperscript()
Const strFind As String = "[a-z][0-9]{1,}>"
Dim orng As Range
    Set orng = ActiveDocument.Range
    With orng.Find
        Do While .Execute(FindText:=strFind, MatchWildcards:=True)
            orng.Start = orng.Start + 1
            orng.Select: DoEvents
            If MsgBox("Replace " & orng.Text, vbYesNo) = vbYes Then
                orng.Font.Superscript = True
            End If
            orng.Collapse 0
        Loop
    End With
    Set orng = Nothing
End Sub

[Stefan Blom]

I believe that the underlying issue here is that OpenOffice Writer lets you have one format for the footnote numbers in the text and another format for the footnote numbers in the footnote area. Word is limited in this respect, as it uses the same formatting for both (unless you intervene with a macro).