需求：
（1）在每行的前面添加行号
（2）将每行前的行号去掉

一、增加行号

可通过创建宏来实现
1 点击Word顶部工具栏的“视图” --> “宏” --> “查看宏” --> “创建”，将宏名命名为InsertLineNum

2 点击“编辑”，并编写代码

Sub InsertLineNum()Dim parag As ParagraphDim nLineNum: nLineNum = 0Dim selRge As RangeSet selRge = Selection.RangeFor Each parag In Selection.ParagraphsnLineNum = nLineNum + 1selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & " ")NextEnd Sub

3 在顶部工具栏给宏添加快捷方式
点击顶部的“文件” --> “选项” --> “快速访问工具栏”

4 选中上图中的宏，点击底部的“修改”

5 在弹出的符号窗口中，随便选择一个按纽，比如第一个按纽，作为“插入行号”宏的快捷键。如下图所示：

6 测试

在Word文档里输入一些内容，然后点击上面那个宏的按纽

1 笑你我枉花光心计  爱竞逐镜花那美丽
2 怕幸运会转眼远逝  为贪嗔喜恶怒着迷
3 责你我太贪功恋势  怪大地众生太美丽
4 悔旧日太执信约誓  为悲欢哀怨妒着迷
5 啊 哈  舍不得 璀璨俗世
6 啊 哈  躲不开 痴恋的欣慰
7 啊 哈  找不到 色相代替
8 啊 哈  参一生 参不透 这条难题
9 吞风吻雨 葬落日  未曾彷徨
10 欺山赶海 践雪径  也未绝望
11 拈花把酒 偏折煞  世人情狂
12 凭这两眼 与百臂  或千手 不能防
13 天阔阔 雪漫漫   共谁同航
14 这沙滚滚 水皱皱   笑着浪荡
15 贪欢一饷  偏教那女儿 情长埋葬

二、删除行号

有两种方式，一种为拖动鼠标删除，另一种是利用宏代码实现。
先介绍拖动鼠标的方法。
先按下alt键，从行号1一直选到行号15；
或者把鼠标放到15的右侧，然后往左上角选到1，再按delete键即可。
效果如下所示：

笑你我枉花光心计 爱竞逐镜花那美丽
怕幸运会转眼远逝 为贪嗔喜恶怒着迷
责你我太贪功恋势 怪大地众生太美丽
悔旧日太执信约誓 为悲欢哀怨妒着迷
啊 哈 舍不得 璀璨俗世
啊 哈 躲不开 痴恋的欣慰
啊 哈 找不到 色相代替
啊 哈 参一生 参不透 这条难题
吞风吻雨 葬落日 未曾彷徨欺山赶海 践雪径 也未绝望拈花把酒 偏折煞 世人情狂凭这两眼 与百臂 或千手 不能防天阔阔 雪漫漫 共谁同航这沙滚滚 水皱皱 笑着浪荡贪欢一饷 偏教那女儿 情长埋葬

上面的显示有个问题，原告有些行号是一位数，原先是两位数。删除掉行号之后，原先行号为两位数的行的最左端，就多了空格。

解决方案一

针对上面第10~15行，按alt键后选定那些空格，再删除一遍

解决方案二

将所有的行号都标识为两位数，比如第一行为01，第2行为02……

代码如下所示

Sub InsertLineNum()Dim parag As ParagraphDim nLineNum: nLineNum = 0Dim selRge As RangeSet selRge = Selection.RangeFor Each parag In Selection.ParagraphsnLineNum = nLineNum + 1selRge.Paragraphs(nLineNum).Range.InsertBefore (Format$(nLineNum, "00") & " ")NextEnd Sub

效果如下所示

01 笑你我枉花光心计  爱竞逐镜花那美丽
02 怕幸运会转眼远逝  为贪嗔喜恶怒着迷
03 责你我太贪功恋势  怪大地众生太美丽
04 悔旧日太执信约誓  为悲欢哀怨妒着迷
05 啊 哈  舍不得 璀璨俗世
06 啊 哈  躲不开 痴恋的欣慰
07 啊 哈  找不到 色相代替
08 啊 哈  参一生 参不透 这条难题
09 吞风吻雨 葬落日  未曾彷徨
10 欺山赶海 践雪径  也未绝望
11 拈花把酒 偏折煞  世人情狂
12 凭这两眼 与百臂  或千手 不能防
13 天阔阔 雪漫漫   共谁同航
14 这沙滚滚 水皱皱   笑着浪荡
15 贪欢一饷  偏教那女儿 情长埋葬

这也有一种缺陷，就是若有几百行，就得从“001”开始标号，若有几千行就得从“0001”开始编编号。

解决方案三：

最完美的方法当然是编写宏代码，找到第一个空格，将空格和空格左边的行号都删除掉。遗憾的是，笔者不会实现这个代码。有哪位会实现的网友，还望不吝赐教。

了解小朋友学编程请加QQ307591841（微信与QQ同号）或QQ群581357582
关注公众号请扫描二维码

Word增加和删除行号相关推荐

在word中用vba为选中区域自动添加行号或删除行号
需求说明用word编辑文档时,希望快速为选中内容添加行号或删除行号.如果手动来做,当行数很多时,就会比较麻烦,这时VBA就可以派上用场. vba源码 '为选中内容添加行号Sub 添加行号()n = ...
计算机三号字在哪个页面,Word用楷体三号一页大约多少字？
网友求助:Word用楷体三号一页大约多少字? 问题最佳答案在word默认的竖版A4纸张,页边距为普通的情况下,楷体三号的字体写满一整页有550字(没有空格.标点与转行的情况):页边距为" ...
Word中的初号、小初、一号等是什么意思
Word字号中初号对应42磅字体,小二号对应18磅字体. Word中对字体的大小同时采用了两种不同的度量单位,其一是中国人所熟悉的"字号",另外一种则是以"磅" ...
word增加一页空白页快捷键【收藏】
1.在下面所示的页面下添加空白页 2.然后我们在word文档文段的下方按下快捷键"ctrl+enter"即可,这样空白页就出来啦 3.我们还可以先点击菜单上方的"页面布局 ...
白杨SEO：公众号为什么会增加视频/视频号和服务？公众号视频号如何互相绑定？视频号公众号又如何互相解绑？启发是什么？
公众号为什么会增加视频/视频号和服务? 如果要看图片,请在微信搜索白杨SEO公众号,里面可以看到. 如果你是公众号自媒体或者小编,你应该知道公众号以前的历史消息是没有视频/视频号和服务栏的,以前是公众 ...
表格操作系列——在指字的区域内增加或删除行不影响排版
表格操作系列二.在指定的区域内添加行或删除行在一些表格操作中,已经画好了每页的表格,并且做好了设定,可以实现每一页的页面下好打印在一个整页里,这就需要在编辑时的增加或是删除行时,不破坏原有的排版设 ...
jacob操作word增加表格行列
import com.jacob.activeX.ActiveXComponent; import com.jacob.com.Dispatch; import com.jacob.com.Va ...
word里添加加行号可编辑的代码方式，超级方便简单
1.我们打开 https://www.showdoc.cc (也就是showdoc)注册一个账号并登陆 2.点击我的项目进入个人主页 3点击新建项目随意建立一个项目 4.点击项目进入如下界面 5.选择 ...
如何让代码在word中显示行号？
写实验报告的时候,经常需要在word里面输入代码,而没有行号和高亮的代码是缺乏可读性的. 本文推荐一个添加代码高亮的网站:PlanetB 链接如下http://www.planetb.ca/synta ...
word给代码加行号
1,仅仅添加行号的话,在"布局"选项找到"页面设置组"当中的"行号"--"连续".但是,如果是几十行代码,不是从&quo ...

Word增加和删除行号

一、增加行号

二、删除行号

Word增加和删除行号相关推荐

最新文章

热门文章