给你一个我以前写的sub
也就是一个宏。
在word中:
Alt+F11进入VB编辑器后,将代码粘贴。
选中要添加行号的内容。
按Alt+F8就可能看到一个HangHao_fhj的宏。
点运行,就可以在每行(以换行符结束的行)前加上行号
PS:可以将宏放常用工具栏上,选中文本后只好轻轻一点就搞写加行号了。要是你有兴趣还可以做修改。。代码其实好简单。
代码:
Sub HangHao_fhj()
'
' HangHao_fhj Macro
' 宏在 2008-5-20 由 fhoujun 创建
'
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
备注:今天遇到一个这样的问题,我要在VB中获取出错的行号,而IDE中又不能自动生成行号,200多行代码怎么办呢,于是就在网上找到了此方法,很管用,感谢作者分享。