Word增加和删除行号

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

一、增加行号

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

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

Sub InsertLineNum()
  Dim parag As Paragraph
  Dim nLineNum: nLineNum = 0
  Dim selRge As Range
  
  Set selRge = Selection.Range
  For Each parag In Selection.Paragraphs
    nLineNum = nLineNum + 1
    selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & " ")
  Next
  
End 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 Paragraph
  Dim nLineNum: nLineNum = 0
  Dim selRge As Range
  
  Set selRge = Selection.Range
  For Each parag In Selection.Paragraphs
    nLineNum = nLineNum + 1
    selRge.Paragraphs(nLineNum).Range.InsertBefore (Format$(nLineNum, "00") & " ")
  Next
  
End Sub

效果如下所示

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

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

解决方案三：

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

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