Using FootnoteFix removes symbols from footnotes

[Mirabilibus8]

I have an old word file (in Arabic) in .doc format. I converted it to the new format .docx but I got a problem in the footnotes, If I move a footnote to another page the footnote number doesn't change.

I used this Macro from macropod and it fixed the problem of numbering, but it also converted all symbols in the footnotes to a bracket "(."



Sub FootnoteFix()Dim i As Long, FtNtPos As Range
Application.ScreenUpdating = False
With ActiveDocument
With .Range.FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartPage
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End With
For i = .Footnotes.Count To 1 Step -1
Set FtNtPos = .Footnotes(i).Reference
FtNtPos.Collapse (wdCollapseEnd)
.Footnotes.Add Range:=FtNtPos
FtNtPos.End = FtNtPos.End + 1
FtNtPos.Footnotes(1).Range = .Footnotes(i).Range
.Footnotes(i).Reference.Delete

Next
End With
Application.ScreenUpdating = True
End Sub


The file is in Arabic language,
The symbols font is "AGA Arabesque"

I will be happy if this can be solved.

Thanks in advance, and sorry for my weak English.

[Chas Kenyon]

Macropod has retired from the forums. More information on what this does and what more you want may be needed, including why the original macro was needed and what it did.