在许多文字处理器中,使用空格格式化表格的情况并不少见。

在每列之间插入足够的空间以对齐每列的第一个字母。但是,Word包含一个表编辑器,该编辑器在格式化和使用表方面提供了更大的灵活性。将最初用空格格式化的ASCII表转换为Word表可能很耗时。以下VBA宏将自动进行格式化。

它假定每一行代表表中的不同行,并且任何超出单个空格的内容都代表列之间的划分。

Sub SpacesToTable     With Selection.Find         .ClearFormatting         .Replacement.ClearFormatting         .Text = " {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是世界上最流行的文字处理软件。)本技巧(12214)适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里: