VBA宏命令大全

zagrzeb

竖排数字

Sub 竖排数字()
Dim myRange As Range, myRange1 As Range
Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.MatchByte = True
End With
Do While myRange.Find.Execute(findtext:="[0-9]", Wrap:=wdFindStop, Forward:=True, MatchWildcards:=True)
If myRange.Orientation = wdTextOrientationVerticalFarEast Then
myRange.HorizontalInVertical = wdHorizontalInVerticalFitInLine
End If
Loop
End Sub
   

924177110

我欣赏了，谢谢楼主的收藏啊