zagrzeb 发表于 2007-12-14 22:17:32

VBA宏命令大全

竖排数字

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:="", Wrap:=wdFindStop, Forward:=True, MatchWildcards:=True)
If myRange.Orientation = wdTextOrientationVerticalFarEast Then
myRange.HorizontalInVertical = wdHorizontalInVerticalFitInLine
End If
Loop
End Sub
   

924177110 发表于 2016-12-7 11:21:12

我欣赏了，谢谢楼主的收藏啊
页: [1]
查看完整版本: VBA宏命令大全