Word增加和删除行号

Word增加和删除行号

需求： （1）在每行的前面添加行号 （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

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

6 测试

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”开始编编号。

解决方案三：

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。