הגדלת גופן בנקודה

[פרידמן]

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

הפקודה היא :Selection.Font.SizeBi = Selection.Font.SizeBi + 1
שאלתי ובקשתי מה צריך להוסיף בכדי שפקודה זו תחול רק על פיסקה או טקסט נבחר, וגם רק על תו מסוים [מרכאות]. בתודה וברכה לכל המסייע בזה.

 

[שמח לעזור]

תחליף את כל התוים הנ"ל לסגנון חדש שתיצור, ושלוט שמה על כולם.
פספסתי משהו?

(להחלפת כמה תוים לסגנון, אפשר תווים כללים ובחפש את כתבו את התוים עליהם רותים את השינוי בתוך סוגריים מרובעות למשל: [":,] ו"בהחלף ב" לבחור עיצוב>סגנון ולבחור סגנון שנוצר לשם כך).

 

[שמח לעזור]

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

Sub YourMacro()
    For Each c In Selection.Characters
        If c = """" Or c = ":" Or c = "," Or c = "/" Then
            c.Font.SizeBi = c.Font.SizeBi + 1
        End If
    Next
End Sub

 

[sek]

המאקרו מראה הודעת שגיאה

 

[שמח לעזור]

המאקרו מראה הודעת שגיאה

תודה, תוקן.

 

[שג]

עוד דרך קלה:
לעשות סימון על כל מה שרוצים להגדיל, ואח"כ לעשות חיפוש על כל מה שסומן, ולבחור ב"חפש במסמך" (זה בוחר הכל ביחד), ואח"כ להגדיל הכל ע"י "CTRL ["

מקווה שהובנתי

 

[פרידמן]

תודה רבה עזרת לי מאוד