הפיכת מאקרו

[בר בי רב]

בעבר התפרסמו כאן שני מקרויים [כל אחד בנפרד] הפיכת בלונים להערות שוליים.
מישהו יודע איך להפוך אחד מהם להיות הפוך?, דהיינו ההערות שוליים לבלוני סקירה.
להלן המקרויים כפי שהתפרסמו:

Sub בלונים_להערות_שוליים()
    Application.ScreenUpdating = False
    Dim oDoc As Document, oComment As Comment
    Set oDoc = ActiveDocument
    For Each oComment In ActiveDocument.Comments
        oDoc.Footnotes.Add Range:=oComment.Scope, Text:=oComment.Range.Text
        oComment.Delete
    Next
    Application.ScreenUpdating = True
End Sub

קוד שני

Sub בלונים_להערות_2()
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

 

[בר בי רב]

רבותי
חפשתי בגוגל לפי קוד המקרו ומצאתי אוצר של מקרויים כאן
https://www.datanumen.com/blogs/4-ways-quickly-convert-comments-footnotesendnotes-vice-versa-word/
אני ממליץ לעיין שם יש שם כל מה שאנחנו צריכים.

 

[אלחנן אריאל]

תודה על השיתוף!