הפיכת מאקרו

בר בי רב

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

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק א

א אַשְׁרֵי הָאִישׁ אֲשֶׁר לֹא הָלַךְ בַּעֲצַת רְשָׁעִים וּבְדֶרֶךְ חַטָּאִים לֹא עָמָד וּבְמוֹשַׁב לֵצִים לֹא יָשָׁב:ב כִּי אִם בְּתוֹרַת יְהוָה חֶפְצוֹ וּבְתוֹרָתוֹ יֶהְגֶּה יוֹמָם וָלָיְלָה:ג וְהָיָה כְּעֵץ שָׁתוּל עַל פַּלְגֵי מָיִם אֲשֶׁר פִּרְיוֹ יִתֵּן בְּעִתּוֹ וְעָלֵהוּ לֹא יִבּוֹל וְכֹל אֲשֶׁר יַעֲשֶׂה יַצְלִיחַ:ד לֹא כֵן הָרְשָׁעִים כִּי אִם כַּמֹּץ אֲשֶׁר תִּדְּפֶנּוּ רוּחַ:ה עַל כֵּן לֹא יָקֻמוּ רְשָׁעִים בַּמִּשְׁפָּט וְחַטָּאִים בַּעֲדַת צַדִּיקִים:ו כִּי יוֹדֵעַ יְהוָה דֶּרֶךְ צַדִּיקִים וְדֶרֶךְ רְשָׁעִים תֹּאבֵד:
נקרא  48  פעמים

ספירת העומר

לוח מודעות

למעלה