پرسش تنظیم مجدد این کد که برای وورد است

[bnyamin]

سلام دوستان
با این کد هرچه جدول در متن باشد را حذف میکنیم و متن باقی میماند حالا این کار را میخواهیم در فوت نوت متن ورد نیز انجام دهیم .لطفا راهنمایی کنید .

Sub AllTablestoText()


For Each aTable In ActiveDocument.Tables
aTable.ConvertToText wdSeparateByDefaultListSeparator, True
Next aTable


End Sub