Sub MoveFootnoteReferences()
Dim doc As Document
Set doc = ActiveDocument
Dim footnoteRef As Footnote
Dim rngWord As Range
For Each footnoteRef In doc.Footnotes
Set rngWord = footnoteRef.Reference
rngWord.Collapse Direction:=wdCollapseEnd 'Collapse the range to the end
rngWord.MoveStart wdCharacter, 1 'Move start to include next character
rngWord.MoveEnd wdCharacter, 1 'Move end to include next character
If Not rngWord.Characters.Last.Text = Space(1) Then 'Check if next character is not a space
rngWord.MoveEnd wdCharacter, 1 'Include next character if it's not a space
End If
footnoteRef.Reference.Delete 'Delete old reference
doc.Footnotes.Add Range:=rngWord, Text:=footnoteRef.Range.Text 'Create new footnote
Next footnoteRef
End Sub
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
קורס משולב בינה מלאכותית
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
18.06
י"ב סיוון
#רקבפרוג
הרצאה מרתקת:
פוטושופ לצלמים
עם אופק עוגן
כלים מתקדמים, טכניקות חדשות ובינה מלאכותית בפוטושופ לצלמים בעידן 2024
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק יב
א לַמְנַצֵּחַ עַל הַשְּׁמִינִית מִזְמוֹר לְדָוִד:ב הוֹשִׁיעָה יְהוָה כִּי גָמַר חָסִיד כִּי פַסּוּ אֱמוּנִים מִבְּנֵי אָדָם:ג שָׁוְא יְדַבְּרוּ אִישׁ אֶת רֵעֵהוּ שְׂפַת חֲלָקוֹת בְּלֵב וָלֵב יְדַבֵּרוּ:ד יַכְרֵת יְהוָה כָּל שִׂפְתֵי חֲלָקוֹת לָשׁוֹן מְדַבֶּרֶת גְּדֹלוֹת:ה אֲשֶׁר אָמְרוּ לִלְשֹׁנֵנוּ נַגְבִּיר שְׂפָתֵינוּ אִתָּנוּ מִי אָדוֹן לָנוּ:ו מִשֹּׁד עֲנִיִּים מֵאַנְקַת אֶבְיוֹנִים עַתָּה אָקוּם יֹאמַר יְהוָה אָשִׁית בְּיֵשַׁע יָפִיחַ לוֹ:ז אִמֲרוֹת יְהוָה אֲמָרוֹת טְהֹרוֹת כֶּסֶף צָרוּף בַּעֲלִיל לָאָרֶץ מְזֻקָּק שִׁבְעָתָיִם:ח אַתָּה יְהוָה תִּשְׁמְרֵם תִּצְּרֶנּוּ מִן הַדּוֹר זוּ לְעוֹלָם:ט סָבִיב רְשָׁעִים יִתְהַלָּכוּן כְּרֻם זֻלּוּת לִבְנֵי אָדָם: