קוד:
[LEFT] Selection.Font.Name = Selection.Range.Text
Selection.Font.NameBi = Selection.Range.Text[/LEFT]
איך אתה רוצה לתפוס את השורה בו נמצא שם הגופן - אינני יודע (בשביל זה יש לראות דוגמא איך רשמת את שמות הגופנים (שאז אפשר להתאים לו פקודה שיעבור על כל שורה\פיסקא בפ"ע ולקלוט משם את הטעקסט של שם הגופן -- ראה לקמן הוספה
),
אך בשביל עצם
החלת הגופנים על טעקסט לפי מה שרשום בתוך הטעקסט הנבחר (בכל שורה מחדש ע"י מאקרא והדומה
- אפשר להשתמש בא' מב' השורות (או בשניהם
דלעיל.
השורה הראשונה - מחיל את שם הגופן האנגלי (ופעמים - תלוי בנסיבות - גם שם הגופן העברי
השורה השני' (שים לב להבדל: NameBi) - מחיל את שם הגופן העברי (קאמפלעקס
בלבד
כמדומה שחלק משאלת קרש שי' היתה, מה אתה רוצה בדיוק לעשות - להחיל גופן עברי על טעקסט אנגלי? ומה אם אין הגדרת טעקסט אנגלי בתוך הגופן?
מקווה שהבנתי את כוונתך.
----------
הוספה לאחר זמן:
באם אכן נמצאים אצלך שמות הגופנים - כל אחד בפיסקא
בפני עצמה, ותוכן כל פיסקא הוא שם הגופן
בלבד (כפי המשתמע מדבריך
, יכול הנך להשתמש עם מאקרא דלקמן, וכמדומה שיעשה את המלאכה.
קוד:
[LEFT]Sub FontName()
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
With p.Range
.MoveEnd Count:=-1
.Font.Name = .Text: .Font.NameBi = .Text
End With
Next p
End Sub[/LEFT]