כיצד לשנות את הסגנון עבור כל הטבלאות ב- Microsoft Word

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

מצא סגנון טבלה

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

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

מאקרו בסגנון טבלה

אפשר את הכרטיסייה מפתחים ב- Word על ידי מעבר לקובץ> אפשרויות> התאמה אישית של סרט. הפעל את סרגל הכלים של המפתח ואז חזור למסמך שלך.

בכרטיסייה מפתחים ולחץ על מקרו. תן לו את השם הבא;

ApplyTableStyle

לחץ על צור והזן את הקוד הבא בקודעם זאת, עליך לערוך שורה זו: tbl.Style = "הצללה בינונית 2 - מבטא 1". החלף את החלק הקיים בתוך הציטוטים עם שם הסגנון של הטבלה שהעתקת בשלב הקודם. אל תסלק את המרכאות מהקוד. פשוט הזן את שם סגנון הטבלה והפעל אותו.

Sub ApplyTableStyle()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Style = "Medium Shading 2 - Accent 1"
Next
End Sub

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

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