Consulting

Results 1 to 2 of 2

Thread: Using FootnoteFix removes symbols from footnotes

  1. #1

    Using FootnoteFix removes symbols from footnotes

    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.

  2. #2
    VBAX Contributor
    Joined
    Jul 2020
    Location
    Sun Prairie
    Posts
    118
    Location
    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •