Dzwebs.Net

撰写电脑技术杂文十余年

让文档内的数字站起来的VBA代码

Admin | 2015-11-7 5:06:01 | 被阅次数 | 4958

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  让数字站起来的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


该杂文来自: Word杂文

上一篇:使word文字竖排时让数字和字母也竖立

下一篇:单独设置word奇偶页的页边距

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计