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

给你一个我以前写的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

要是回答的内容有问题，或认为不妥，请发送百度消息给我，消息内容加上本页网址哦。。

·

　　1、直接复制到word里面，保证word前面有两行已经有编号的信息（随便什么都行，比如“1.你好”然后回车就自动编号了）。
　　2、复制Eclipse里面的代码到word的第三行，代码就自动加上编号了也就是行号，然后再删除前面两行就行了。
　　3、最后，再复制到文本文件或者其他的地方都是带行号的。

把代码的截图贴上去……

或者你在word里把默认字体更改成和eclipse里用的字体相同，然后在页面设置中设置行号，再把代码贴上去应该就