由于某种原因，许多人似乎总是使用选项卡来设置简单的表，而不是使用Word包含的内置表编辑器。如果您希望将“选项卡式表”快速转换为真实的Word表，则将不胜感激。此处显示的宏TabToTable假设每一行代表表中的不同行，并且选项卡代表列之间的分隔。

您可能想知道为什么要使用宏转换带选项卡的表，而不是使用“表”菜单中的“转换”选项。原因很简单：“转换”选项假定每个选项卡都代表一列。如果您多次访问该块，则已经知道很多选项卡式表在列之间使用多个选项卡。因此，宏的第一个任务是用单个选项卡替换多个选项卡，然后进行转换。

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

准备好运行宏时，只需选择要转换的文本。当您运行此宏时，将获得与从“表格”菜单中选择“转换”选项然后选择“文本到表格”相同的结果。这意味着您的列可能看起来很时髦。他们肯定需要调整大小。但是，摆脱所有标签的辛苦工作已经为您完成。

注意：

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

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

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

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

使用制表符格式化ASCII表。