word排版程序代码

代码格式

1.        在notepad++中高亮代码：在菜单栏中选择对应的语言即可。

2.        选中目标代码，执行插件->NppExport->Cope HTML to clipboard。

3.        粘贴到word中。

如下代码即是冲notepad++中粘贴过来的。（注：此处我为代码加上了边框以示区别）

#include

 

int main()

{

    printf("helloworld!");

    return 0;

}

此操作巧用word支持html格式来实现。

代码加行号

使用宏“代码加行号”，参见‘程序代码加行号.bas’

效果如下：

#001 #include

#002

#003 int main()

#004 {

#005     printf("helloworld!");

#006     return 0;

#007 }

 

如想取消行号，可按住Alt键，选择行号，然后删除。

 

提示：Word2010默认情况下隐藏开“发工具选项”栏，因此找不到宏。可在 文件->选项->自定义功能区，勾选开发工具 来打开。

 

附录：程序代码加行号，参见：Word排版艺术10.4

#001 Sub 程序代码加行号()

#002 Dim nLineNum

#003 Dim sLineNum As String

#004 Dim selRge As Range

#005 Dim i

#006

#007 Set selRge = Selection.Range

#008 For nLineNum = 1 ToselRge.Paragraphs.Count

#009     sLineNum = Str(nLineNum)

#010     sLineNum = LTrim(sLineNum)

#011     For i = 1 To (3 -Len(sLineNum))

#012         sLineNum = "0" + sLineNum

#013     Next i

#014     sLineNum = "#" & sLineNum

#015     sLineNum = sLineNum + " "

#016     

#017     selRge.Paragraphs(nLineNum).Range.InsertBefore (sLineNum)

#018 Next nLineNum

#019 End Sub