让数字站起来的VBA代码。
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