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

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

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

代码如下：

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