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

来源：互联网发布：网络语的猹什么意思编辑：程序博客网时间：2024/04/29 22:34

给你一个我以前写的sub也就是一个宏。在word中：Alt+F11进入VB编辑器后，将代码粘贴。选中要添加行号的内容。按Alt+F8就可能看到一个HangHao_fhj的宏。点运行，就可以在每行（以换行符结束的行）前加上行号PS：可以将宏放常用工具栏上，选中文本后只好轻轻一点就搞写加行号了。要是你有兴趣还可以做修改。。代码其实好简单。代码：Sub HangHao_fhj()'' HangHao_fhj Macro' 宏在 2008-5-20 由 fhoujun 创建'Dim parag As ParagraphDim nLineNum: nLineNum = 0Dim selRge As RangeSet selRge = Selection.Range  For Each parag In Selection.Paragraphs  nLineNum = nLineNum + 1 selRge.Paragraphs(nLineNum).Range.InsertBefore (nLineNum & " ") NextEnd Sub

备注：今天遇到一个这样的问题，我要在VB中获取出错的行号，而IDE中又不能自动生成行号，200多行代码怎么办呢，于是就在网上找到了此方法，很管用，感谢作者分享。