需求：
（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”開始編編号。
解決方案三：
關注公衆号