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

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

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是世界上最流行的文字处理软件。）本技巧（5955）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

使用制表符格式化ASCII表。