word内的内容加上行号

在word中的代码如果需要加上行号，可以编写一个宏，然后选中内容运行即可。

=====================================================

Sub HangHao()
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

===================================================