בעבר התפרסמו כאן שני מקרויים [כל אחד בנפרד] הפיכת בלונים להערות שוליים.
מישהו יודע איך להפוך אחד מהם להיות הפוך?, דהיינו ההערות שוליים לבלוני סקירה.
להלן המקרויים כפי שהתפרסמו:
קוד שני
מישהו יודע איך להפוך אחד מהם להיות הפוך?, דהיינו ההערות שוליים לבלוני סקירה.
להלן המקרויים כפי שהתפרסמו:
קוד:
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