Select All Tables

Select All Tables

select table

تصور کنید نگارش پایان نامه یا کتاب خود را به اتمام رسانده اید؛ ناگهان به شما اطلاع داده می شود که اندازه ی متن داخل جداول و نوع کادر حاشیه آنها باید عوض شود. بی تردید جستجو در میان انبوه صفحات برای پیدا کردن جداول و همچنین اعمال تغییرات بر روی اندازه ی متن داخل آنها کاری بسیار زمان بر و طاقت فرساست. در این مطلب قصد داریم راهکاری ارائه دهیم تا همه ی جدول های موجود در صفحات پایان نامه را پیدا کرده و آنها را در حالت انتخاب برای اعمال قالب بندی جدید قرار دهد.

ابتدا با استفاده از کلیدهای ترکیبی Alt + F11 وارد محیط ویژوال بیسک می شویمش.
حالا از منوی Insert گزینه module را می نزیم و کد زیر را در پنجره ی باز شده وارد می کنیم.

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

حالا آنرا Save کرده و در ادامه برای اجرای این ماکرو، کلید F5 را می فشاریم.
به این ترتیب، تمامی جداول موجود در پایان نامه شما در حالت انتخاب (select) قرار می گیرد و شما می توانید قالب بندی جدید مورد نظر خود را بر روی همه ی آنها اعمال کنید.

دیدگاهتان را بنویسید