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

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

vb each 工具 ide

给你一个我以前写的sub
也就是一个宏。

在word中：
Alt+F11进入VB编辑器后，将代码粘贴。

选中要添加行号的内容。
按Alt+F8就可能看到一个HangHao_fhj的宏。

点运行，就可以在每行（以换行符结束的行）前加上行号

PS：可以将宏放常用工具栏上，选中文本后只好轻轻一点就搞写加行号了。要是你有兴趣还可以做修改。。代码其实好简单。


代码：

  
  

   
   

    
    

     
     [vb] 
     
     view plain
     
     copy
     
     print
     
     ?
     
     

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