- 1、本文档共3页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
word中数字若何竖排的两种方法
word中数字如何竖排的两种方法
在以前的文章 HYPERLINK /show.asp?id=1085 \t _blank 《word竖排文字方法》,介绍了word中文字竖排方法。但细心的朋友会发现,竖排命令只是对文字有效果。对字母、数字竖排时不会起作用的。那么在使用word竖排命令时,数字和字母如何也同样竖排呢?
下图左边是常规方法,右边是字母和数字竖排的效果。
word中数字如何竖排呢,本文提供两种方法,使用内置命令和VBA代码实现。
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??? LoopEnd Sub
文档评论(0)