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

一、添加行号

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

1.png

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

2.png

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

3.png

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

4.png

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

5.png

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
关注公众号请扫描二维码

qrcode_for_kidscode_258.jpg