עזרה בקוד VBA לוורד

[אהרן]

ממיר הערות סקירה להערות שוליים

Sub commntv()
For Each comm In ActiveDocument.Comments
comm.Reference.Select
Selection.Footnotes.Add Range:=Selection.Range, Reference:="", Text:=comm.Range.Text
comm.Delete
Next
End Sub

איך אני ממיר להערות סיום?

[אהרן]

Footnotes >> Endnotes.