جداول یک امتیاز بزرگ برای کاربران Word است. با این حال، وقتی با اسنادی کار می کنید که در یک واژه پرداز متفاوت ایجاد شده اند، جداول می توانند آزاردهنده باشند. به عنوان مثال، یکی از خوانندگان WordTips شکایت کرد که متن دو ستونی او که در یک واژه پرداز دیگر ایجاد شده بود در Word به جداول تبدیل شده است. او خواستار راهی برای تبدیل خودکار تمام جداول به متن، بدون نیاز به پردازش دستی هر جدول شد.
ماکرو زیر، AllTablesToText، این کار را انجام می دهد. از هر جدول در سند جاری عبور می کند و همه آنها را با برگه های بین ستون ها به متن تبدیل می کند:
Sub AllTablesToText()
Dim t As Table
For Each t in ActiveDocument.Tables
t.ConvertToText Separator:=wdSeparateByTabs
Next t
End Sub
اگر نمی خواهید برگه هایی بین ستون ها وجود داشته باشد، تنها کاری که باید انجام دهید این است که مقدار اختصاص داده شده به پارامتر Separator را تغییر دهید. می توانید از wdSeparateByCommas، wdSeparateByDefaultListSeparator یا wdSeparateByParagraphs استفاده کنید.
