表是Word用户的福音。但是，当您使用在其他字处理器中创建的文档时，表可能会很麻烦。例如，一个_WordTips_读者抱怨说，他在WordPerfect中创建的两列文本已在Word中转换为表格。他要求一种自动将所有表转换为文本的方法，而无需手动处理每个表。

下面的宏AllTablesToText将解决问题。它逐步浏览当前文档中的每个表，并将它们全部转换为文本，并在各列之间使用制表符：

Sub AllTablesToText()

Dim Tbls As Long     Dim J As Long

Tbls = ActiveDocument.Tables.Count     For J = Tbls To 1 Step —1         ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs     Next J End Sub

如果不想在列之间使用制表符，则只需更改分配给Separator参数的值即可。您可以使用wdSeparateByCommas，wdSeparateByDefaultListSeparator或wdSeparateByParagraphs。

注意：

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

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

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

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（866）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

将表转换为文本。