Footnotes

dsn · #1 05-26-2019, 01:17 AM

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 · #2 05-26-2019, 03:07 AM

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.

Code:

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 · #3 05-27-2019, 04:20 PM

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).

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to change superscript footnotes into genuine Word footnotes	Knounte29	Word VBA	41	01-16-2020 04:48 PM
creating manuscript w/footnotes from separate documents containing chapters with footnotes-word 2010	Dottie	Publisher	0	02-19-2017 03:18 PM
Footnotes	christal	Word	3	04-30-2016 11:09 PM
Convert manual cross references in footnotes to other footnotes to automatic cross references	ghumdinger	Word VBA	7	11-20-2014 11:47 PM
Keep with next and footnotes	nfactor13	Word	1	05-15-2011 02:39 PM