【467】VBA实现word文字变成竖版

在朋友圈看见有人求助，如何实现将2500字的文档，每两字中间添加回车

这个就是通过录制宏来实现，先实现一个，然后循环2500次即可

代码如下：

?

1 2 3 4 5 6 7 8 9 10

Sub Macro1() ' ' Macro1 Macro ' '     For i = 1 To 2500         Selection.MoveRight Unit:=wdCharacter, Count:=1         Selection.TypeParagraph     Next End Sub