Word增加和刪除行號

摘要： 需求： （1）在每行的前面新增行號 （2）將每行前的行號去掉 一、增加行號 可通過建立巨集來實現 1 點選Word頂部工具欄的“檢視” --> “巨集” --> “檢視巨集” --> “建立”，將巨集名命名為InsertLineNum ...

需求：

（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”開始編編號。

解決方案三：

最完美的方法當然是編寫巨集程式碼，找到第一個空格，將空格和空格左邊的行號都刪除掉。遺憾的是，筆者不會實現這個程式碼。有哪位會實現的網友，還望不吝賜教。