投稿
首页 Word教程内容详情

Word中怎么设置代码高亮?word中关键字高亮的设置方法

2025-06-01 10 office教程网
Word中怎么设置代码高亮?word中关键字高亮的设置方法

站点名称：Word中怎么设置代码高亮?word中关键字高亮的设置方法

所属分类：Word教程

相关标签： # word # 代码高亮

官方网址：

SEO查询： 爱站网 站长工具

进入网站

站点介绍

Word中怎么设置代码高亮?一般编辑器中关键字都可以设置高亮，这样醒目而且重点突出，但是word中去不能讲关键字凸显出来，该怎么办呢？下面分享word中关键代码设置高亮的方法

有时写文档时需要将代码粘贴到word中，但直接粘贴到word中的代码虽能保持换行与缩进等格式，但在一般代码编辑工具中的关键字高亮功能却无法实现。该方法无需任何插件，只需要制作一个宏即可实现类似sublime的显示效果

1、首先完成当前所有内容，建议把代码放入单独的文本框中，方便处理，也有较好的视觉效果。记得一定要拷贝一份副本！因为很可能因为代码量比较多，处理宏的时候卡死，只能强制退出WORD了。

2、当前文档新定义一个样式，命名为"code"，专门用来对代码进行格式化。由于是代码，所以推荐中文使用黑体（注释等），而英文使用等宽字体（courier new）。步骤如图。

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

4、新建宏，步骤如图

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

复制内容到剪贴板
  1. 'script to high light code In document  
  2.  
  3. Private Function isKeyword(w) As Boolean  
  4.  
  5. Dim keys As New Collection  
  6.  
  7. With keys  
  8.  
  9. .Add "if": .Add "else": .Add "elseif": .Add "case": .Add "switch": .Add "break"  
  10.  
  11. .Add "for": .Add "continue": .Add "do": .Add "while": .Add "foreach": .Add "echo"  
  12.  
  13. .Add "define": .Add "array": .Add "NULL": .Add "function": .Add "include": .Add "return"  
  14.  
  15. .Add "global": .Add "as": .Add "die": .Add "header": .Add "this": .Add "empty"  
  16.  
  17. .Add "isset": .Add "mysql_fetch_assoc": .Add "class": .Add "style"  
  18.  
  19. .Add "name": .Add "value": .Add "type": .Add "width": .Add "_POST": .Add "_GET"  
  20.  
  21. End With  
  22.  
  23. isKeyword = isSpecial(w, keys)  
  24.  
  25. End Function  
  26.  
  27. Private Function isSpecial(ByVal w As String, ByRef col As Collection) As Boolean  
  28.  
  29. For Each i In col  
  30.  
  31. If w = i Then  
  32.  
  33. isSpecial = True  
  34.  
  35. Exit Function  
  36.  
  37. End If  
  38.  
  39. Next  
  40.  
  41. isspeical = False  
  42.  
  43. End Function  
  44.  
  45. Private Function isOperator(w) As Boolean  
  46.  
  47. Dim ops As New Collection  
  48.  
  49. With ops  
  50.  
  51. .Add "+": .Add "-": .Add "*": .Add "/": .Add "&": .Add "^": .Add ";"  
  52.  
  53. .Add "%": .Add "#": .Add "!": .Add ":": .Add ",": .Add "."  
  54.  
  55. .Add "||": .Add "&&": .Add "|": .Add "=": .Add "++": .Add "--"  
  56.  
  57. .Add "'": .Add """"  
  58.   
  59. End With   
  60.   
  61. isOperator = isSpecial(w, ops)   
  62.   
  63. End Function   
  64.   
  65. Private Function isType(ByVal w As String) As Boolean   
  66.   
  67. Dim types As New Collection   
  68.   
  69. With types   
  70.   
  71. .Add "SELECT": .Add "FROM": .Add "WHERE": .Add "INSERT": .Add "INTO": .Add "VALUES": .Add "ORDER"  
  72.   
  73. .Add "BY": .Add "LIMIT": .Add "ASC": .Add "DESC": .Add "UPDATE": .Add "DELETE": .Add "COUNT"  
  74.   
  75. .Add "html": .Add "head": .Add "title": .Add "body": .Add "p": .Add "h1": .Add " h2"  
  76.   
  77. .Add "h3": .Add "center": .Add "ul": .Add "ol": .Add "li": .Add "a"  
  78.   
  79. .Add "input": .Add "form": .Add "b"  
  80.   
  81. End With   
  82.   
  83. isType = isSpecial(w, types)   
  84.   
  85. End Function   
  86.   
  87. Sub SyntaxHighlight()   
  88.   
  89. Dim wordCount As Integer   
  90.   
  91. Dim d As Integer   
  92.   
  93. ' set the style of selection  
  94.  
  95. Selection.Style = "ccode"  
  96.  
  97. d = 0  
  98.  
  99. wordCount = Selection.Words.Count  
  100.  
  101. Selection.StartOf wdWord  
  102.  
  103. While d < wordCount  
  104.  
  105. d = d + Selection.MoveRight(wdWord, 1, wdExtend)  
  106.  
  107. w = Selection.Text  
  108.  
  109. If isKeyword(Trim(w)) = True Then  
  110.  
  111. Selection.Font.Color = wdColorBlue  
  112.  
  113. ElseIf isType(Trim(w)) = True Then  
  114.  
  115. Selection.Font.Color = wdColorDarkRed  
  116.  
  117. Selection.Font.Bold = True  
  118.  
  119. ElseIf isOperator(Trim(w)) = True Then  
  120.  
  121. Selection.Font.Color = wdColorBrown  
  122.  
  123. ElseIf Trim(w) = "//" Then  
  124.  
  125. 'lIne comment   
  126.   
  127. Selection.MoveEnd wdLine, 1   
  128.   
  129. commentWords = Selection.Words.Count   
  130.   
  131. d = d + commentWords   
  132.   
  133. Selection.Font.Color = wdColorGreen   
  134.   
  135. Selection.MoveStart wdWord, commentWords   
  136.   
  137. ElseIf Trim(w) = "/*" Then   
  138.   
  139. 'block comment  
  140.  
  141. While Selection.Characters.Last <> "/"  
  142.  
  143. Selection.MoveLeft wdCharacter, 1, wdExtend  
  144.  
  145. Selection.MoveEndUntil ("*")  
  146.  
  147. Selection.MoveRight wdCharacter, 2, wdExtend  
  148.  
  149. Wend  
  150.  
  151. commentWords = Selection.Words.Count  
  152.  
  153. d = d + commentWords  
  154.  
  155. Selection.Font.Color = wdColorGreen  
  156.  
  157. Selection.MoveStart wdWord, commentWords  
  158.  
  159. End If  
  160.  
  161. 'move the start of selection to next word   
  162.   
  163. Selection.MoveStart wdWord   
  164.   
  165. Wend   
  166.   
  167. ' prepare For set lIne number   
  168.   
  169. Selection.MoveLeft wdWord, wordCount, wdExtend   
  170.   
  171. SetLIneNumber   
  172.   
  173. End Sub   
  174.   
  175. Private Sub SetLIneNumber()   
  176.   
  177. Dim lines As Integer   
  178.   
  179. lines = Selection.Paragraphs.Count   
  180.   
  181. Selection.StartOf wdParagraph   
  182.   
  183. For l = 1 To lines   
  184.   
  185. lIneNum = l & " "  
  186.   
  187. If l < 10 Then   
  188.   
  189. lIneNum = lIneNum & " "  
  190.   
  191. End If   
  192.   
  193. Selection.Text = lIneNum   
  194.   
  195. Selection.Font.Bold = False   
  196.   
  197. Selection.Font.Color = wdColorAutomatic   
  198.   
  199. p = Selection.MoveDown(wdLine, 1, wdMove)   
  200.   
  201. Selection.StartOf wdLine   
  202.   
  203. Next   
  204.   
  205. End Sub   
  206.   

6、选定代码文本，然后执行highlight脚本：“视图”-“宏”- 选中“SyntaxHighlight”-“运行”，然后执行就可以了。处理较长代码时需要一定时间，请耐心等待。

word2007版盖有电子公章的文件编辑吗?怎么编辑?

word2007版盖有电子公章的文件编辑吗?怎么编辑?这是很多办公人员都经常问的一个问题，其实盖有电子公章的文件是可以编辑的，下面小编就为大家介绍具体操作方法，不会的朋友可以参考一下，希望能对大家有所帮助

注意事项：处理前一定要对原文章进行备份，以免前功尽弃。处理较长代码时需要一定时间，请耐心等待。


上一篇：在word文档中如何对插入的表格进行操作? 下一篇：word2007版盖有电子公章的文件编辑吗?怎么编辑?

相关文章

  • Word教程 Word文档怎么比较不同内容

    Word文档怎么比较不同内容呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文档怎么比较不同内容的回答，希望能够帮助大家了解。......

    2023-01-19

    详细阅读
  • Word教程 Word文档怎么拆分

    Word文档怎么拆分成多个文档呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文档怎么拆分的回答，希望能够帮助大家了解。......

    2023-01-19

    详细阅读
  • Word教程 Word不规则表格的制作方法

    Word不规则表格的制作方法是什么呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word不规则表格的制作方法的回答，希望能够帮助大家了解。......

    2023-01-19

    详细阅读
  • Word教程 Word文本框怎么自动调整大小

    Word文本框怎么自动调整大小呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文本框怎么自动调整大小的回答，希望能够帮助大家了解。......

    2023-01-19

    详细阅读
  • Word教程 Word文档忘记保存怎么办

    Word文档忘记保存怎么办呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文档忘记保存怎么办的回答，希望能够帮助大家了解。......

    2023-01-19

    详细阅读

Word怎么快速转PDF格式?Word转PDF方法图解

word批量转换成pdf怎么做呢？相信这是很多人都会想要解决的问题。即使有些word文档可以单个转换成PDF，但有些要插件麻烦，而且并不能批量转换，所以不知怎么办，今天小编就为大家介绍Word怎么快速转PDF格式方法，来看看吧

浏览统计(最近30天)

相似站点

​Word文档怎么插入对象文件

​Word文档怎么插入对象文件

说到办公软件，小伙伴们可能会想到各种自己比较常用的软件。相信很多小伙伴都会同时想到Word文档，Excel表格和PPT演示文稿这几款大部分小伙伴都比较常用的办公软件。作为三...
怎样将扫描图片转为word

怎样将扫描图片转为word

把图片或扫描文件上的转到Word上，这个想法不错，只不过实现起来比较费劲，网上有很多这种转换软件，不是识别率不高，就是不好使。那么下面就由小编给大家分享下将扫描图片转为word的技巧，希望能帮助到您。...
word 2010邮件合并功能该怎么使用?

word 2010邮件合并功能该怎么使用?

word 2010邮件合并功能该怎么使用？word中有一个功能比较不常用，但是却很有用，那就是邮件合并功能，今天我们就来看看邮件合并功能的详细使用方法，需要的朋友可以参考下...
可不可以连续打印已给文件夹里多个word文档里面的内容呢?

可不可以连续打印已给文件夹里多个word文档里面的内容呢?

可不可以连续打印已给文件夹里多个word文档里面的内容呢? 可以连续打印已给文件夹里多个word文档里面的内容,其方法: 1.选中需要打印的文档: 2.单击鼠标右键,在弹出的快捷菜单中选择打印命令即可...
word中设置背景保护色的方法步骤图

word中设置背景保护色的方法步骤图

长时间使用Word编辑和查看文档的人会觉得眼睛干涩疼痛。为了保护眼睛可以设置文档背景为柔和的豆沙绿色来代替刺眼的白底黑字。那么下面就由小编给大家分享下word中设置背景保护色的技巧，希望能帮助到您。...
如何在Word 2013中删除字符格式？

如何在Word 2013中删除字符格式？

如何在Word 2013中删除字符格式？Word 2013提供了太多的格式化命令，以致您的文本看起来可能像一堆格式化残余物，而不是任何人类语言可读的内容。Word理解此问题，因此它创建了“清除格式”命...
word奇偶页码设置

word奇偶页码设置

由于工作需要，要把页码设置为奇偶页不同，那么你知道如何设置吗？下面一起看下Word奇偶页码设置的技巧。...
Word怎么设计制作政府部门信笺纸?

Word怎么设计制作政府部门信笺纸?

Word怎么设计制作政府部门信笺纸？我们知道政府部门有专门的信笺，红色的，该怎么设计这个样式呢？下面我们就来看看详细的教程，需要的朋友可以参考下...

Copyright © 2025 AI工具导航豫ICP备14005689号-1