@יום-חדש-מתחיל אני מפרסם כאן סקריפט לוורד, שהופך את כל הערות השוליים הרגילות להערות שוליים מיוחדות שנתמכות על ידי תוכנת אוצריא. כדי להשתמש בסקריפט יש להוריד את הקובץ הבא : המרת הערות שוליים.dotm לפתוח אותו ולהעתיק את הטקסט לתוכו, ואז תחת מפתחים->פקודות מאקרו להפעיל את פקודת מזג_הערות_שוליים.
חשוב: מטעמי אבטחה, הקובץ לא יעבוד אלא אם כן נאשר לו לרוץ על המחשב. לכן לפני שנפתח אותו, לחיצה ימנית ->מאפיינים לסמן את הריבוע בטל חסימה.
[למתקדמים:] זהו הקוד של VBA למי שרוצה להעתיק אותו ידנית:
Sub merge_footnotes()
' Macro created by @sivan22 to relocate footnotes at the end of every paragraph and convert to html tags
Dim p As Paragraph
Dim afootnote As Footnote
For Each p In ActiveDocument.Paragraphs
' we need the next paragraph in order to insert the footnotes in order
Dim nextParagraph As Paragraph
Set nextParagraph = p.Next
' a for each loop won't work b/c of a bug
For ftCounter = 1 To p.Range.Footnotes.Count
Set afootnote = p.Range.Footnotes(ftCounter)
' we insert every footnote right before the next paragraph (so it will be in tt's original order)
nextParagraph.Range.InsertBefore "<small><sup>" & afootnote.Index & "</sup>" & afootnote.Range & "</small>" & vbCr
' make sure the footnote is not in bold font
nextParagraph.Previous.Style = "רגיל"
' we mark the number to remove it later
afootnote.Reference.InsertBefore "a" & afootnote.Index & "a"
Next
Next p
' delete the original footnotes
For Each afootnote In ActiveDocument.Footnotes
afootnote.Reference.Delete
Next afootnote
'set the style of the new numbers
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Superscript = True
.Bold = False
End With
'delete all the original numbers
With Selection.Find
.Text = "(a)([0-9]{1,})(a)"
.Replacement.Text = "<sup>\2</sup>"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
אני אציין שכותרות והדגשות של וורד נתמכות באוצריא ואין צורך להשתמש בסימונים מיוחדים. גודל הכתב לא נתמך. והערות שוליים רק באמצעות הסקריפט דלעיל.