给你一个我以前写的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多行代码怎么办呢,于是就在网上找到了此方法,很管用,感谢作者分享。
复制代码时, 怎么能把行号也复制下来
最新推荐文章于 2024-07-09 17:02:50 发布