表是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。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本提示（13171）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

将表转换为文本。