1. 首先粘貼代碼到word文檔；

2. 點擊“開發工具”->“宏”->在打開的窗口中點擊“創建”

圖1-1-14-1

3. 在打開的Micsoft Visual Basic for Applications “代碼”窗口中輸入如下代碼：

01 Sub HangHao()

02 Dim parag As Paragraph

03 Dim nLineNum: nLineNum = 0

04 Dim selRge As Range

05 Set selRge = Selection.Range

06 For Each parag In Selection.Paragraphs

07 nLineNum = nLineNum + 1

08 selRge.Paragraphs(nLineNum).Range.InsertBefore (Format$(nLineNum, “00”) & " ")

09 Next

10 End Sub

圖1-1-14-2

4. 保存。

為了經常能用到這個宏，需要在Word【文件】->【選項】->【快速訪問工具欄】->在下拉菜單中找到【宏】->在【宏】裏找到所寫的宏名稱

圖1-1-14-3

1.1.14 添加自己編寫的宏代碼（以代碼行編號為例）