به نظر می رسد بسیاری از افراد، به دلایلی، همیشه از تب ها برای تنظیم جداول ساده به جای استفاده از ویرایشگر جدول داخلی که Word شامل آن است، استفاده می کنند. اگر می خواهید به سرعت "جدول Tabed" را به یک جدول Word واقعی تبدیل کنید، از این نکته قدردانی خواهید کرد. ماکرو ارائه شده در اینجا، TabsToTable، فرض می کند که هر خط نشان دهنده یک ردیف متفاوت در جدول است، و زبانه ها نشان دهنده تقسیمات بین ستون ها هستند.
ممکن است تعجب کنید که چرا می خواهید به جای استفاده از گزینه تبدیل متن به جدول از ابزار Table، از یک ماکرو برای تبدیل یک جدول تب دار استفاده کنید. (ابزار Table در گروه Tables در زبانه Insert روبان قابل مشاهده است.) دلیل آن ساده است: گزینه Convert فرض می کند که هر تب نشان دهنده یک ستون است. اگر چند بار در اطراف بلوک بوده‌اید، می‌دانید که در بسیاری از موارد جدول‌های تب دار از چندین تب بین ستون‌ها استفاده می‌کنند. بنابراین، اولین وظیفه ماکرو این است که چندین تب را با یک برگه جایگزین کند و سپس تبدیل را انجام دهد.
Sub TabsToTable With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "^t{2,}" .Replacement.Text = "^t" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.ConvertToTable _ Separator:=wdSeparateByTabs, _ Format:=wdTableFormatNone End Sub
هنگامی که برای اجرای ماکرو آماده هستید، به سادگی متنی را که می خواهید تبدیل کنید انتخاب کنید. هنگامی که این ماکرو را اجرا می کنید، همان چیزی را دریافت خواهید کرد که اگر گزینه Convert Text to Table را از ابزار Table انتخاب کنید، دریافت خواهید کرد. این بدان معناست که ستون های شما ممکن است بد بو به نظر برسند. قطعا باید اندازه آنها تغییر کند. اما کار سخت خلاص شدن از شر تمام تب ها برای شما انجام شده است.
