如何使用VBA让两行文字按空格对齐

skysong123

在Word中有两行文字，每行有字数不同的几个部分，每个部分都用一个空格隔开。例如：

英语 数学 政治 专业课
4 10000 100 20

想要让上下两行的对应部分的开头对齐：
英语 数学   政治 专业课
4     10000 100   20


第一行的第一部分“英语”，长度比第二行对应的“4”长，因此第一行的“英语”和“数学”之间仍然保留一个空格，而让第二行的第二个部分“10000”的开头与第一行的“数学”对齐。以此类推。

请问能否利用word vba实现？
谢谢！

chendeyan126

这个好像没有必要用vba，用制表符就可以了。

skysong123

用制表符，数量多，就太麻烦了

413191246se

1. Sub test()
   
2.     Selection.ConvertToTable Separator:=4, NumRows:=2, AutoFitBehavior:=wdAutoFitFixed
   
3.     Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)
   
4.     ActiveWindow.View.TableGridlines = Not ActiveWindow.View.TableGridlines
   
5. End Sub

复制代码

skysong123

413191246se 发表于 2019-3-17 13:10

这个方法可行，谢谢您！