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

2021-01-06 06:30

阅读:881

标签:cte   sub   pre   type   就是   for   添加   rap   select   

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

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

代码如下:

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

  

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

标签:cte   sub   pre   type   就是   for   添加   rap   select   

原文地址:https://www.cnblogs.com/alex-bn-lee/p/12977623.html


评论


亲,登录后才可以留言!