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

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

3. Private Function isKeyword(w) As Boolean

5. Dim keys As New Collection

7. With keys

9. .Add "if": .Add "else": .Add "elseif": .Add "case": .Add "switch": .Add "break"

11. .Add "for": .Add "continue": .Add "do": .Add "while": .Add "foreach": .Add "echo"

13. .Add "define": .Add "array": .Add "NULL": .Add "function": .Add "include": .Add "return"

15. .Add "global": .Add "as": .Add "die": .Add "header": .Add "this": .Add "empty"

17. .Add "isset": .Add "mysql_fetch_assoc": .Add "class": .Add "style"

19. .Add "name": .Add "value": .Add "type": .Add "width": .Add "_POST": .Add "_GET"

21. End With

23. isKeyword = isSpecial(w, keys)

25. End Function

27. Private Function isSpecial(ByVal w As String, ByRef col As Collection) As Boolean

29. For Each i In col

31. If w = i Then

33. isSpecial = True

35. Exit Function

37. End If

39. Next

41. isspeical = False

43. End Function

45. Private Function isOperator(w) As Boolean

47. Dim ops As New Collection

49. With ops

51. .Add "+": .Add "-": .Add "*": .Add "/": .Add "&": .Add "^": .Add ";"

53. .Add "％": .Add "#": .Add "!": .Add ":": .Add ",": .Add "."

55. .Add "||": .Add "&&": .Add "|": .Add "=": .Add "++": .Add "--"

57. .Add "'": .Add """"

59. End With   

61. isOperator = isSpecial(w, ops)   

63. End Function   

65. Private Function isType(ByVal w As String) As Boolean   

67. Dim types As New Collection   

69. With types   

71. .Add "SELECT": .Add "FROM": .Add "WHERE": .Add "INSERT": .Add "INTO": .Add "VALUES": .Add "ORDER"

73. .Add "BY": .Add "LIMIT": .Add "ASC": .Add "DESC": .Add "UPDATE": .Add "DELETE": .Add "COUNT"

75. .Add "html": .Add "head": .Add "title": .Add "body": .Add "p": .Add "h1": .Add " h2"

77. .Add "h3": .Add "center": .Add "ul": .Add "ol": .Add "li": .Add "a"

79. .Add "input": .Add "form": .Add "b"

81. End With   

83. isType = isSpecial(w, types)   

85. End Function   

87. Sub SyntaxHighlight()   

89. Dim wordCount As Integer   

91. Dim d As Integer   

93. ' set the style of selection

95. Selection.Style = "ccode"

97. d = 0

99. wordCount = Selection.Words.Count

101. Selection.StartOf wdWord

103. While d < wordCount

105. d = d + Selection.MoveRight(wdWord, 1, wdExtend)

107. w = Selection.Text

109. If isKeyword(Trim(w)) = True Then

111. Selection.Font.Color = wdColorBlue

113. ElseIf isType(Trim(w)) = True Then

115. Selection.Font.Color = wdColorDarkRed

117. Selection.Font.Bold = True

119. ElseIf isOperator(Trim(w)) = True Then

121. Selection.Font.Color = wdColorBrown

123. ElseIf Trim(w) = "//" Then

125. 'lIne comment   

127. Selection.MoveEnd wdLine, 1   

129. commentWords = Selection.Words.Count   

131. d = d + commentWords   

133. Selection.Font.Color = wdColorGreen   

135. Selection.MoveStart wdWord, commentWords   

137. ElseIf Trim(w) = "/*" Then   

139. 'block comment

141. While Selection.Characters.Last <> "/"

143. Selection.MoveLeft wdCharacter, 1, wdExtend

145. Selection.MoveEndUntil ("*")

147. Selection.MoveRight wdCharacter, 2, wdExtend

149. Wend

151. commentWords = Selection.Words.Count

153. d = d + commentWords

155. Selection.Font.Color = wdColorGreen

157. Selection.MoveStart wdWord, commentWords

159. End If

161. 'move the start of selection to next word   

163. Selection.MoveStart wdWord   

165. Wend   

167. ' prepare For set lIne number   

169. Selection.MoveLeft wdWord, wordCount, wdExtend   

171. SetLIneNumber   

173. End Sub   

175. Private Sub SetLIneNumber()   

177. Dim lines As Integer   

179. lines = Selection.Paragraphs.Count   

181. Selection.StartOf wdParagraph   

183. For l = 1 To lines   

185. lIneNum = l & " "

187. If l < 10 Then   

189. lIneNum = lIneNum & " "

191. End If   

193. Selection.Text = lIneNum   

195. Selection.Font.Bold = False   

197. Selection.Font.Color = wdColorAutomatic   

199. p = Selection.MoveDown(wdLine, 1, wdMove)   

201. Selection.StartOf wdLine   

203. Next   

205. End Sub   

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

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