در نرم افزار ورد، شما می توایند برای بخشی از متن و یا کل متون Format مورد نظرتان را اعمال کنید ولی در مورد جداول مقداری کار بیشتر می شود. اگر می خواهید که یک استایل جدید را برای همه جداول در یک سند Word تغییر دهید، لازم است که هرکدام را جداگانه انتخاب کنید و استایل را اعمال کنید. برای همچین مورد از macro می توانید استفاده کنید.


قبل از ماکرونویسی، باید نام style جدول مورد نظرتان را بیابید که این استایل چه نامی دارد. برای این منظور، سند ورد مربوطه را باز کرده و یکی از جداول را انتخاب کرده و به تب Design رفته و کار ما در قسمت Table style است. نشانگر ماوس را روی استایل مورد نظرتان ببرید. با اینکار یک کادر کوچک پایین اشاره گر ماوس باز می شود که نام استایل در آن قید می شود.





نام استایل را جایی یادداشت کنید و حالا به سراغ ماکرونویسی می رویم.
برای ماکرونویسی باید به تب Developer بروید. اگر این تب فعال نیست، به منوی File رفته و سپس گزینه options را کلیک کنید. بدین ترتیب پنجره Word options باز می شود.
از پنل سمت چپ گزینه Customize ribbon را انتخاب کرده و سپس در جدول سمت راست تیک گزینه Developer را فعال و ok کنید.



اکنون به تب Developer رفته و گزینه Macros را کلیک کنید و نام زیر را بدان تخصیص دهید.

ApplyTableStyle

پس از ایجاد این ماکرو، فرم ماکرونویسی باز می شود. سپس دستور زیر را در آن وارد و Save کنید.

Dim tbl As Table

For Each tbl In ActiveDocument.Tables

tbl.Style = "Medium Shading 2 - Accent 1"

Next

فقط به جای Medium Shading 2 - Accent 1 باید نام استایل خود را جایگزین کنید. هر استایلی که توسط ورد پشتیبانی می شود را می توانید جایگزین کنید و این استایلی پیشفرض در این سند ورد برای جداولی است که ایجاد کرده اید، خواهد شد.