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.