באם לאחר בדיקת ההצעה של tkh שי' הבעי' עדיין עומדת במקומה - אז יש להניח, אשר הבעי' היא שההערות הישנות נעשו מיספורם באופן
ידני,
באם אכן זו הבעי' - הייתי מציע להשתמש עם המאקרא דלקמן (המחליפה מידני למיספור אווטאמאט
:
קוד:
Sub AutoReference()
Dim J, A, X, Y, Z As Integer
Application.ScreenUpdating = False: Z = ActiveWindow.View.Type: ActiveWindow.View.Type = wdNormalView
X = ActiveDocument.Footnotes.Count: Y = 0
For J = 1 To ActiveDocument.Footnotes.Count
Y = Y + 1: StatusBar = Y & ":" & X
ActiveDocument.Footnotes(J).Reference.Select
A = Selection.FootnoteOptions.NumberStyle
With Selection
.FootnoteOptions.NumberStyle = A
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
Next J
Application.ScreenUpdating = True: ActiveWindow.View.Type = Z: ActiveWindow.View.Type = Z
End Sub
הערה: פעולת המאקרא דלעיל שותל גם
מחדש את הפניית ההערה בתוך שדה ההערות שוליים בתחילת ההערה, ורק באם מוצא הוא הפני' ישנה
בתחילת ההערה - אז הוא
מחליפה בהחדש. במילא - נא לקחת זאת בחשבון (כולל אם זה מספיק סיבה לעשות גיבוי לפני' וכו').
עוד הערה: באם ישנם הרבה הערות וכו', זה עלול אולי לקחת קצת זמן. בעת הרצת המאקרא יופעל בתחתית החלון של ווארד "שורת מצב", לדעת היכן אוחז הוא.
אולי ישנם דרכים אחרות בכל זה, ואדרבה - שיעלו החברים את פתרונותיהם.