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

分类：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 
     ? 
     
 
       
     
 
    
 
   
   
   
 
    
SubHangHao_fhj()
 
    
'
 
    
'HangHao_fhjMacro
 
    
'宏在2008-5-20由fhoujun创建
 
    
'
 
    
DimparagAsParagraph
 
    
DimnLineNum:nLineNum=0
 
    
DimselRgeAsRange
 
    
SetselRge=Selection.Range
 
    
ForEachparagInSelection.Paragraphs
 
    
nLineNum=nLineNum+1
 
    
selRge.Paragraphs(nLineNum).Range.InsertBefore(nLineNum&"")
 
    
Next
 
    
 
    
EndSub
 
   
  
  
备注：今天遇到一个这样的问题，我要在VB中获取出错的行号，而IDE中又不能自动生成行号，200多行代码怎么办呢，于是就在网上找到了此方法，很管用，感谢作者分享。