1. 程式人生 > >1.1.14 新增自己編寫的巨集程式碼(以程式碼行編號為例)

1.1.14 新增自己編寫的巨集程式碼(以程式碼行編號為例)

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