办公软件是指可以进行文字处理、表格制作、幻灯片制作、图形图像处理、简单数据库的处理等方面工作的软件。目前办公软件朝着操作简单化,功能细化等方向发展。办公软件的应用范围很广,大到社会统计,小到会议记录,数字化的办公,离不开办公软件的鼎力协助。另外,政府用的电子政务,税务用的税务系统,企业用的协同办公软件,这些都属于办公软件。
有时写文档时需要将代码粘贴到word中,但直接粘贴到word中的代码虽能保持换行与缩进等格式,但在一般代码编辑工具中的关键字高亮功能却无法实现。该方法无需任何插件,只需要制作一个宏即可实现类似sublime的显示效果

1、首先完成当前所有内容,建议把代码放入单独的文本框中,方便处理,也有较好的视觉效果。记得一定要拷贝一份副本!因为很可能因为代码量比较多,处理宏的时候卡死,只能强制退出WORD了。
2、当前文档新定义一个样式,命名为"code",专门用来对代码进行格式化。由于是代码,所以推荐中文使用黑体(注释等),而英文使用等宽字体(courier new)。步骤如图。

3、选中代码,单击样式库 ccode,将代码应用该样式

4、新建宏,步骤如图

5、将VBA代码(在下一步中)拷贝进去,保存后关闭 (有VBA或相关程序经验者可根据自己需要进行相关修改,如关键词和高亮颜色等)

复制内容到剪贴板
- 'script to high light code In document
-
- Private Function isKeyword(w) As Boolean
-
- Dim keys As New Collection
-
- With keys
-
- .Add "if": .Add "else": .Add "elseif": .Add "case": .Add "switch": .Add "break"
-
- .Add "for": .Add "continue": .Add "do": .Add "while": .Add "foreach": .Add "echo"
-
- .Add "define": .Add "array": .Add "NULL": .Add "function": .Add "include": .Add "return"
-
- .Add "global": .Add "as": .Add "die": .Add "header": .Add "this": .Add "empty"
-
- .Add "isset": .Add "mysql_fetch_assoc": .Add "class": .Add "style"
-
- .Add "name": .Add "value": .Add "type": .Add "width": .Add "_POST": .Add "_GET"
-
- End With
-
- isKeyword = isSpecial(w, keys)
-
- End Function
-
- Private Function isSpecial(ByVal w As String, ByRef col As Collection) As Boolean
-
- For Each i In col
-
- If w = i Then
-
- isSpecial = True
-
- Exit Function
-
- End If
-
- Next
-
- isspeical = False
-
- End Function
-
- Private Function isOperator(w) As Boolean
-
- Dim ops As New Collection
-
- With ops
-
- .Add "+": .Add "-": .Add "*": .Add "/": .Add "&": .Add "^": .Add ";"
-
- .Add "%": .Add "#": .Add "!": .Add ":": .Add ",": .Add "."
-
- .Add "
关键词:Word中设置代码高亮?word中关键字高亮的设置图文详细教程