גופן שונה בוורד למספרי ההפניות להערות שוליים ולמספרים בהערות עצמם

[ניק ירושלמי]

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

 

[Rרחמים]

עם חיפוש והחלפה אתה יכול להחיל על כל אחד איזה עיצוב שתרצה

 

[ניק ירושלמי]

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

 

[Yisrael]

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

מכיון ש Word משתמש בשביל סימוני ההפניות בגוף הטקסט ובהערות עצמן באותו סגנון זה בלתי אפשרי.

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

 

[ניק ירושלמי]

נשמע מענין, אודה לך אם תוכל לפרט מה השלבים של המאקרו.

 

[Yisrael]

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

הקוד הזה למעשה יוצר סימניה במיקום בטקסט שבו אני יוצא את ההערה (יש לי מאקרו אחר שאני משתמש בו כדי לחזור בסיום כתיבת ההערה לאותו מיקום שבו יצרתי את ההערה ובשביל זה הסימניה, כמובן שהיא נמחקת אחר כך ע"י המאקרו השני)
אבל חוץ מזה הקוד גם מעצב את סימון ההפניה שמופיע בהערת שוליים ואת סגנון הערת השוליים עצמה. במקרה שלי הוא רק קובע את ה Position של ההפניה, אבל כמובן שאפשר להשתמש בזה לכל עיצוב שהוא.

Sub הערה()
With Selection
     .Bookmarks.Add "a", Selection
     .Footnotes.Add Selection.Range
     .Style = ActiveDocument.Styles("הערות מעוצב")
     .MoveLeft wdCharacter, 1
     .MoveLeft wdCharacter, 1, wdExtend
     .Font.Position = -1
     .MoveRight wdCharacter, 2
     .Font.Position = 0
End With
End Sub