复制代码时, 怎么能把行号也复制下来

给你一个我以前写的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多行代码怎么办呢，于是就在网上找到了此方法，很管用，感谢作者分享。 

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!