עיצוב המיספור של הערת שוליים

  • פותח הנושא vtri
  • פורסם בתאריך

vtri

משתמש רשום
עיצוב גרפי
איך עושים בוורד שהמיספור של הערות שוליים יהיה בצורה כזאת: 1. 2. וכן הלאה
(נקודה אחרי המספר של הערה) ?
תודה...
 

חברה

משתמש סופר מקצוען
עיצוב גרפי
עריכה תורנית
כמו שאת מקלידה תו מסוים, תקלידי מיד נקודה אחרי הוספת ההערה, למה זה מסובך?
או שאת מתכוונת למשהו אחר?
 

Rרחמים

משתמש סופר מקצוען
עיצוב גרפי
איור וציור מקצועי
מוזיקה ונגינה
עריכה תורנית
D I G I T A L
עימוד ספרים
יש לנו תוסף שנקרא 'מספור הערות שוליים' [מופיע בקטלוג שבחתימה שלי]
בין השאר ע''י תוסף זה אפשר להוסיף נקודה, סוגר עגול או סוגר מרובע לאחר המספור.
אם רוצים אפשר להוסיף את ההוספות הנ''ל רק למספור שבטקסט העליון או רק למספור שבהערות למטה.
 

מקטעים

עימוד שמזמין לקרוא
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
יש גם אפשרות פשוטה שמובנה כבר בוורד.
המעוניינים בהסבר אפשר לפנות במייל שבחתימה.

נ.ב. עניתי רק על מה שנשאל בלבד!!! מן הסתם בתוסף שהוצע יש דברים נוספים.
 

שמח לעזור

משתמש מקצוען
D I G I T A L
נכתב ע"י דוד לוי;1270074:
המעוניינים בהסבר אפשר לפנות במייל שבחתימה.

בלי קשר, מאוד מותח אותי: מהי הסיבה לדרך הלא שגרתית בה אתה מציע עזרה?
 

מקטעים

עימוד שמזמין לקרוא
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
נכתב ע"י שמח לעזור;1270248:
בלי קשר, מאוד מותח אותי: מהי הסיבה לדרך הלא שגרתית בה אתה מציע עזרה?

אשיב בפרטי לכל הסקרנים...
אל תפנטזו, לא משהו בשמים...

נ.ב. פותח האשכול כבר קיבל עזרה והסתדר.
 

vn453

משתמש חדש
להלן מאקרו שהעתקתי פעם מאיזשהו מקום:

Sub טאב_הערות_שוליים()
'
' טאב_הערות_שוליים Macro
' יוצר טאב לאחר מספרי הערות השוליים
'
For s = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(s).Range.Select
With Selection
.Collapse Direction:=wdCollapseStart
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter "." & vbTab
.Collapse wdCollapseEnd
End With
Next
End Sub
 

תלמידים

מהמשתמשים המובילים!
מנהל
מנוי פרימיום
עיצוב גרפי DIP
עיצוב גרפי
עיצוב פונטים
עימוד ספרים
נכתב ע"י vn453;1290158:
Sub טאב_הערות_שוליים()
'
' טאב_הערות_שוליים Macro
' יוצר טאב לאחר מספרי הערות השוליים
'
For s = 1 To ActiveDocument.Footnotes.Count
ActiveDocument.Footnotes(s).Range.Select
With Selection
.Collapse Direction:=wdCollapseStart
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Paragraphs(1).Range.Font.Reset
.Paragraphs(1).Range.Characters(2) = ""
.InsertAfter "." & vbTab
.Collapse wdCollapseEnd
End With
Next
End Sub

המאקרו מצויין.
רק שהוא מוחק את כל העיצוב על הדרך, העיצוב פחות חשוב לי אפשר לחזור ולעצבו, הבעיה שהוא מסיר גם את ההדגשים במילים המודגשות, למישהו יש מאקרו תקין, או דרך להחזיר את ההדגשים למקומם בהערות שוליים?
בתודה רבה מראש.
 

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

הפרק היומי

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


תהילים פרק ד

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

ספירת העומר

לוח מודעות

למעלה