返回首页
当前位置: 主页 > 精通Office > Word教程 >

word中数字如何竖排的两种方法

时间:2014-04-09 00:02来源:知行网www.zhixing123.cn 编辑:麦田守望者

本文对word中数字如何竖排给出两种解答方法,并对word竖排数字方法的原理加以分析说明。

  在以前的文章《word竖排文字方法》,介绍了word中文字竖排方法。但细心的朋友会发现,竖排命令只是对文字有效果。对字母、数字竖排时不会起作用的。那么在使用word竖排命令时,数字和字母如何也同样竖排呢?

  下图左边是常规方法,右边是字母和数字竖排的效果。

word中数字如何竖排

  word中数字如何竖排呢,本文提供两种方法,使用内置命令和VBA代码实现。

word数字竖排方法一:

  选中已经进行竖排过的内容,然后单击开始——更改大小写——全角。这样字母和数字都全部竖排了。

word数字竖排

  这种方法实现word数字竖排的原理:一个汉字占两个英文字符的位置,一个英文字符所占的位置称为"半角",一个汉字所占的位置称为"全角"。在汉字输入时,系统提供"半角"和"全角"两种不同的输入状态,在半角状态字母和数字被作为英文字符处理;在全角状态,字母和数字作为中文字符处理。因此将字母和数字转换为全角,就可以实现word数字竖排。

  通常情况下,这种简单的设置可以完全解决word中数字如何竖排。

word数字竖排方法二:

  如果对于某些特殊的用户,只是仅仅将数字竖排,而英文字母保存不变的话,可以使用下面的VBA代码来实现word竖排数字。

  操作步骤是:按下ALT+F11,打开VBE编辑器,单击插入——模块,复制下面的代码(从sub至end sub结束),并粘贴在右边的代码编辑窗口,关闭VBE。

  返回word文档中,按ALT+F8,打开“宏”对话框,找到“竖排数字”宏,单击“运行”系统自动完成word数字竖排。

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

顶一下
(8)
100%
踩一下
(0)
0%
标签(Tag):Word2007 Word Word2010 Word2003 Word教程 Word技巧 word2010教程 word2010技巧
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片