Question

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

我把eclipse中的代码复制到word里面，同时把行号也复制进来， 没有工具或设置能一次完成。不想先把代码复制进来，然后一行一行的加行号。要保留eclipse中的字体风格
如果有好的解决办法, 重重加分

我改改你那段代码, 改好了, 发出来再加分, 呵呵

Answer 1

1、复制代码到notepad++，如图

2、全选代码，按Tab键，使代码整体后移给行号留出空间，然后将鼠标位置放在第一列的位置,如图

3、接下来是：编辑-列块编辑，列编辑选插入文本-初始是1-增量填1-十进制，最后点确认，行号就出来了，效果如图。

4、扩展：将代码全选之后，按如下操作，可以将代码是复制，且保持代码高亮。

5、之后你可以将代码复制到word文档中，效果如图，这下你word的代码档次就不一样了

Answer 2

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

Answer 3

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

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

·

Answer 4

把代码的截图贴上去……

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

Answer 5

不知道了...没听说过...不知道有没有这样的东东...有的话别忘了告诉我一声哦..
谢谢!