+ -
当前位置:首页 → 问答吧 → [求助]WORD文档中竖排文字时,怎样使数字站起来,不躺着

[求助]WORD文档中竖排文字时,怎样使数字站起来,不躺着

时间:2007-08-10

来源:互联网

请教:在WORD文档中竖排文字时,怎样使数字站起来,不躺着?请教设置数量比较多的数字的方法

联系方式:[email protected]

作者: luoyuyun   发布时间: 2007-08-10

好像只有用全角字符将就一下。

作者: yuyvtul   发布时间: 2007-08-10

真的是这样的,谢谢谢谢[em17]

作者: luoyuyun   发布时间: 2007-08-10

QUOTE:
以下是引用luoyuyun在2007-8-10 14:48:53的发言:

请教:在WORD文档中竖排文字时,怎样使数字站起来,不躺着?请教设置数量比较多的数字的方法

联系方式:[email protected]

除了yuyvtul兄的方法外,还可以使用中文版式中的纵横混排。以下代码可将坚排文字的所有数字“站起来”:

Sub test()
    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

作者: chylhr   发布时间: 2007-08-10

一个简单方法:

选中该数字>菜单栏>字体>格式>中文混排

作者: tony@cq   发布时间: 2007-08-10

学习了谢谢!再也不怕,遇到这样的问题了。

作者: igmq   发布时间: 2007-08-13

学习了

作者: xxhacker   发布时间: 2007-08-13

选中该数字>菜单栏>字体>格式>中文混排

这个真的很好用

谢谢

作者: 单飞的青鸟   发布时间: 2007-09-05

恩  很好   又学到高招了  

作者: haode163   发布时间: 2007-09-24

菜单栏在哪?

作者: 海阔天空1999   发布时间: 2011-07-27