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

分类： VB2011-07-13 11:46 705人阅读 评论(0) 收藏 举报

vbeach工具ide

给你一个我以前写的sub也就是一个宏。在word中：Alt+F11进入VB编辑器后，将代码粘贴。选中要添加行号的内容。按Alt+F8就可能看到一个HangHao_fhj的宏。点运行，就可以在每行（以换行符结束的行）前加上行号PS：可以将宏放常用工具栏上，选中文本后只好轻轻一点就搞写加行号了。要是你有兴趣还可以做修改。。代码其实好简单。代码：
[vb] view plaincopyprint?
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多行代码怎么办呢，于是就在网上找到了此方法，很管用，感谢作者分享。