需求:
(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 文档里输入一些内容, 然后点击上面那个宏的按纽
笑你我枉花光心计 爱竞逐镜花那美丽
怕幸运会转眼远逝 为贪嗔喜恶怒着迷
责你我太贪功恋势 怪大地众生太美丽
悔旧日太执信约誓 为悲欢哀怨妒着迷
啊 哈 舍不得 璀璨俗世
啊 哈 躲不开 痴恋的欣慰
啊 哈 找不到 色相代替
啊 哈 参一生 参不透 这条难题
吞风吻雨 葬落日 未曾彷徨
欺山赶海 践雪径 也未绝望
拈花把酒 偏折煞 世人情狂
凭这两眼 与百臂 或千手 不能防
天阔阔 雪漫漫 共谁同航
这沙滚滚 水皱皱 笑着浪荡
贪欢一饷 偏教那女儿 情长埋葬
二, 删除行号
有两种方式, 一种为拖动鼠标删除, 另一种是利用宏代码实现.
先介绍拖动鼠标的方法.
先按下 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 吞风吻雨 葬落日 未曾彷徨
欺山赶海 践雪径 也未绝望
拈花把酒 偏折煞 世人情狂
凭这两眼 与百臂 或千手 不能防
天阔阔 雪漫漫 共谁同航
这沙滚滚 水皱皱 笑着浪荡
贪欢一饷 偏教那女儿 情长埋葬
这也有一种缺陷, 就是若有几百行, 就得从 "001" 开始标号, 若有几千行就得从 "0001" 开始编编号.
解决方案三:
最完美的方法当然是编写宏代码, 找到第一个空格, 将空格和空格左边的行号都删除掉. 遗憾的是, 笔者不会实现这个代码. 有哪位会实现的网友, 还望不吝赐教.
了解小朋友学编程请加 QQ307591841(微信与 QQ 同号) 或 QQ 群 581357582
关注公众号请扫描二维码
qrcode_for_kidscode_258.jpg
来源: http://www.jianshu.com/p/57c7bd308cc9