אופיס 365 מאקרו להמיר כל הערות שוליים שבתוך טבלאות להערות סיום.

[eliezer]

אני מנסה אך לא מספיק מב בVBA בשביל להבין למה זה כושל...

Sub convertFootnoteInTebles()

Dim oTable As Table
Dim foot As Footnote

For Each oTable In ActiveDocument.Tables
    Dim allFootnotes As Footnote
    allFootnotes = oTable.Range.Footnotes
            If allFootnotes.Count > 0 Then
                For Each foot In allFootnotes
                    foot.Convert
                Next foot
           End If
Next oTable
End Sub

אודה מאד למי שיעזור

 

[eliezer]

בתיים צלחתי רק שני דברים:
א. למחוק את הערות ולא להמיר....
ב. לעשו זאת על כל המסמך ולא רק על הטבלאות....

Sub convertFootnoteInTebles()

Dim oTable As Table
Dim foot As Footnote
Dim allFootnotes As Footnotes
    
    For Each oTable In ActiveDocument.Tables
        Set allFootnotes = oTable.Range.Footnotes
             For Each foot In allFootnotes
                  foot.Delete
             Next foot
    
    Next oTable
End Sub