Word中的代码怎样语法高亮

在平常我们粘贴代码到Word中的时候，经常会遇到代码粘贴到Word中后没有语法高亮，看着很乱很不友好，Word自带的样式---语法使用着也不尽人意，

网上有很多做法可以使得在插入在Word中的代码能够高亮显示，有使用notepad++先编辑再复制到Word中的，

也有使用网上的代码复制到转换网站，然后再复制到Word实现代码高亮，也有使用Word插件的，

但是这些方法个人认为多次转换复制太过麻烦，Word插件用着自己又觉得不太放心，故，这里介绍使用Word宏来实现语法高亮。

此宏的代码一部分来自互联网，原作者不是太清楚，在这里感谢提供基础源码的作者，这里附上链接https://www.xuebuyuan.com/1843358.html

建议把这个宏做成模板，需要使用的时候引入模板即可，此处我做好的模板可以在这里下载 template

Linux 下可用命令的高亮支持这里只做了一部分的命令，如果要支持所有的Linux可用命令，请自行添加。

如果要添加关键字支持Linux下所有命令的高亮显示，请注意：

　　1、添加命令的关键字在VB集合中时要注意，定义在单个函数中用 :Add "keyword" 添加的关键字不宜过多，否则在执行宏时会报“执行过程过长”的错误

　　2、解决的办法是用多个函数来定义关键字集合，然后再在高亮显示的执行函数中做处理即可。

为了让代码看起来更加整洁，这里我们将代码写在1 X 1 的表格中，原始效果如图：

接下来使用宏来进行语法着色，效果如下：

以下贴出源代码，供大家参考，此代码一部分来自互联网，原作者不是太清楚，在这里感谢提供基础源码的作者，这里附上链接 https://www.xuebuyuan.com/1843358.html

以下是我个人二次开发的源代码，还有一些不足的地方，甚至一些小BUG（个人对VB不是很了解），只能实现上述一些基本功能，希望大家能够继续改进，讨论交流和评论

有兴趣的也可以进行二次开发，实现自己需要的功能。

  1 '宏在2019 年 8 月 2 日创建
  2 ' 作者：ZhongYuanMei
  3
  4 '设置行号
  5 Private Sub SetLIneNumber()
  6
  7     Dim lines As Integer
  8
  9     lines = Selection.Paragraphs.Count
 10
 11     Selection.StartOf wdParagraph
 12
 13     For l = 1 To lines
 14
 15         lIneNum = l & "   "
 16
 17         If l < 10 Then
 18
 19             lIneNum = lIneNum & " "
 20
 21         End If
 22
 23         Selection.Text = lIneNum
 24
 25         Selection.Font.Bold = False
 26
 27         Selection.Font.Color = wdColorAutomatic
 28
 29         p = Selection.MoveDown(wdLine, 1, wdMove)
 30
 31         Selection.StartOf wdLine
 32
 33     Next
 34
 35 End Sub
 36 ' 处理集合
 37 Private Function isSpecial(ByVal w As String, ByRef col As Collection) As Boolean
 38
 39     For Each i In col
 40
 41         If w = i Then
 42
 43             isSpecial = True
 44
 45             Exit Function
 46
 47         End If
 48
 49     Next
 50
 51     isspeical = False
 52
 53 End Function
 54 '其它符号
 55 Private Function isOthers(ByVal w As String) As Boolean
 56
 57     Dim others As New Collection
 58
 59     With others
 60
 61         .Add "--": .Add "error": .Add "$": .Add """": .Add "{": .Add "}": .Add "[": .Add "]": .Add "root": .Add "@": .Add "(": .Add ")": .Add "()"
 62
 63
 64     End With
 65
 66     isOthers = isSpecial(w, others)
 67
 68 End Function
 69 '常见的操作运算符
 70 Private Function isOperator(w) As Boolean
 71
 72     Dim ops As New Collection
 73
 74     With ops
 75
 76         .Add "+": .Add "-": .Add "*": .Add "/": .Add "&": .Add "^": .Add ";"
 77
 78         .Add "%": .Add "!": .Add ":": .Add ",": .Add "."
 79
 80         .Add "||": .Add "&&": .Add "|": .Add "=": .Add "++": .Add "--"
 81
 82         .Add "'": .Add """": .Add "===": .Add "==": .Add "**": .Add "+=": .Add "-=": .Add "*=": .Add "/=": .Add "%="
 83
 84
 85     End With
 86
 87     isOperator = isSpecial(w, ops)
 88
 89 End Function
 90
 91 'C语言关键字
 92 Private Function isCLANGKeyword(w) As Boolean
 93
 94     Dim keys As New Collection
 95
 96     With keys
 97
 98         .Add "if": .Add "else": .Add "elseif": .Add "case": .Add "switch": .Add "break"
 99
100         .Add "for": .Add "continue": .Add "do": .Add "while": .Add "foreach": .Add "echo"
101
102         .Add "define": .Add "array": .Add "NULL": .Add "function": .Add "include": .Add "return"
103
104         .Add "global": .Add "as": .Add "die": .Add "header": .Add "this": .Add "empty"
105
106         .Add "isset": .Add "mysql_fetch_assoc": .Add "class": .Add "style"
107
108         .Add "name": .Add "value": .Add "type": .Add "width": .Add "_POST": .Add "_GET"
109
110     End With
111
112     isCLANGKeyword = isSpecial(w, keys)
113
114 End Function
115 'MySQL关键字
116 Private Function isMySQLKeyword(w) As Boolean
117
118     Dim keys As New Collection
119
120     With keys
121         .Add "ADD": .Add "ALL": .Add "ALTER": .Add "ANALYZE": .Add "AND": .Add "AS": .Add "ASC": .Add "ASENSITIVE": .Add "BEFORE": .Add "BETWEEN"
122         .Add "BIGINT": .Add "BINARY": .Add "BLOB": .Add "BOTH": .Add "BY": .Add "CALL": .Add "CASCADE": .Add "CASE": .Add "CHANGE"
123         .Add "CHAR": .Add "CHARACTER": .Add "CHECK": .Add "COLLATE": .Add "COLUMN": .Add "CONDITION": .Add "CONNECTION"
124         .Add "CONSTRAINT": .Add "CONTINUE": .Add "CONVERT": .Add "CREATE": .Add "CROSS": .Add "CURRENT_DATE": .Add "CURRENT_TIME"
125         .Add "CURRENT_TIMESTAMP": .Add "CURRENT_USER": .Add "CURSOR": .Add "DATABASE": .Add "DATABASES": .Add "DAY_HOUR"
126         .Add "DAY_MICROSECOND": .Add "DAY_MINUTE": .Add "DAY_SECOND": .Add "DEC": .Add "DECIMAL": .Add "DECLARE": .Add "DEFAULT"
127         .Add "DELAYED": .Add "DELETE": .Add "DESC": .Add "DESCRIBE": .Add "DETERMINISTIC": .Add "DISTINCT": .Add "DISTINCTROW"
128         .Add "DIV": .Add "DOUBLE": .Add "DROP": .Add "DUAL": .Add "EACH": .Add "ELSE": .Add "ELSEIF": .Add "ENCLOSED": .Add "ESCAPED"
129         .Add "EXISTS": .Add "EXIT": .Add "EXPLAIN": .Add "FALSE": .Add "FETCH": .Add "FLOAT": .Add "FLOAT4": .Add "FLOAT8": .Add "FOR"
130         .Add "FORCE": .Add "FOREIGN": .Add "FROM": .Add "FULLTEXT": .Add "GOTO": .Add "GRANT": .Add "GROUP": .Add "HAVING"
131         .Add "HIGH_PRIORITY": .Add "HOUR_MICROSECOND": .Add "HOUR_MINUTE": .Add "HOUR_SECOND": .Add "IF": .Add "IGNORE"
132         .Add "IN": .Add "INDEX": .Add "INFILE": .Add "INNER": .Add "INOUT": .Add "INSENSITIVE": .Add "INSERT": .Add "INT": .Add "INT1"
133         .Add "INT2": .Add "INT3": .Add "INT4": .Add "INT8": .Add "INTEGER": .Add "INTERVAL": .Add "INTO""": .Add "IS": .Add "ITERATE"
134         .Add "JOIN": .Add "KEY": .Add "KEYS": .Add "KILL": .Add "LABEL": .Add "LEADING": .Add "LEAVE": .Add "LEFT": .Add "LIKE"
135         .Add "LIMIT": .Add "LINEAR": .Add "LINES": .Add "LOAD": .Add "LOCALTIME": .Add "LOCALTIMESTAMP": .Add "LOCK": .Add "LONG"
136         .Add "LONGBLOB": .Add "LONGTEXT": .Add "LOOP": .Add "LOW_PRIORITY": .Add "MATCH": .Add "MEDIUMBLOB": .Add "MEDIUMINT"
137         .Add "MEDIUMTEXT": .Add "MIDDLEINT": .Add "MINUTE_MICROSECOND": .Add "MINUTE_SECOND": .Add "MOD": .Add "MODIFIES"
138         .Add "NATURAL": .Add "NOT": .Add "NO_WRITE_TO_BINLOG": .Add "NULL": .Add "NUMERIC": .Add "ON": .Add "OPTIMIZE"
139         .Add "OPTION": .Add "OPTIONALLY": .Add "OR": .Add "ORDER": .Add "OUT": .Add "OUTER": .Add "OUTFILE": .Add "PRECISION"
140         .Add "PRIMARY": .Add "PROCEDURE": .Add "PURGE": .Add "RAID0": .Add "RANGE": .Add "READ": .Add "READS": .Add "REAL"
141         .Add "REFERENCES": .Add "REGEXP": .Add "RELEASE": .Add "RENAME": .Add "REPEAT": .Add "REPLACE": .Add "REQUIRE"
142         .Add "RESTRICT": .Add "RETURN": .Add "REVOKE": .Add "RIGHT": .Add "RLIKE": .Add "SCHEMA": .Add "SCHEMAS"
143         .Add "SECOND_MICROSECOND": .Add "SELECT": .Add "SENSITIVE": .Add "SEPARATOR": .Add "SET": .Add "SHOW": .Add "SMALLINT"
144         .Add "SPATIAL": .Add "SPECIFIC": .Add "SQL": .Add "SQLEXCEPTION": .Add "SQLSTATE": .Add "SQLWARNING": .Add "SQL_BIG_RESULT"
145         .Add "SQL_CALC_FOUND_ROWS": .Add "SQL_SMALL_RESULT": .Add "SSL": .Add "STARTING": .Add "STRAIGHT_JOIN": .Add "TABLE"
146         .Add "TERMINATED": .Add "THEN": .Add "TINYBLOB": .Add "TINYINT": .Add "TINYTEXT": .Add "TO": .Add "TRAILING": .Add "TRIGGER"
147         .Add "TRUE": .Add "UNDO": .Add "UNION": .Add "UNIQUE": .Add "UNLOCK": .Add "UNSIGNED": .Add "UPDATE": .Add "USAGE": .Add "USE"
148         .Add "USING": .Add "UTC_DATE": .Add "UTC_TIME": .Add "UTC_TIMESTAMP": .Add "VALUES": .Add "VARBINARY": .Add "VARCHAR"
149         .Add "VARCHARACTER": .Add "VARYING": .Add "WHEN": .Add "WHERE": .Add "WHILE": .Add "WITH": .Add "WRITE": .Add "X509"
150         .Add "XOR": .Add "YEAR_MONTH": .Add "add": .Add "all": .Add "alter": .Add "analyze": .Add "and": .Add "as": .Add "asc"
151         .Add "asensitive": .Add "before": .Add "between": .Add "bigint": .Add "binary": .Add "blob": .Add "both": .Add "by"
152         .Add "call": .Add "cascade": .Add "case": .Add "change": .Add "char": .Add "character": .Add "check": .Add "collate"
153         .Add "column": .Add "condition": .Add "connection": .Add "constraint": .Add "continue": .Add "convert": .Add "create"
154         .Add "cross": .Add "current_date": .Add "current_time": .Add "current_timestamp": .Add "current_user": .Add "cursor"
155         .Add "database": .Add "databases": .Add "day_hour": .Add "day_microsecond": .Add "day_minute": .Add "day_second"
156         .Add "dec": .Add "decimal": .Add "declare": .Add "default": .Add "delayed": .Add "delete": .Add "desc": .Add "describe"
157         .Add "deterministic": .Add "distinct": .Add "distinctrow": .Add "div": .Add "double": .Add "drop": .Add "dual": .Add "each"
158         .Add "else": .Add "elseif": .Add "enclosed": .Add "escaped": .Add "exists": .Add "exit": .Add "explain": .Add "false"
159         .Add "fetch": .Add "float": .Add "float4": .Add "float8": .Add "for": .Add "force": .Add "foreign": .Add "from"
160         .Add "fulltext": .Add "goto": .Add "grant": .Add "group": .Add "having": .Add "high_priority": .Add "hour_microsecond"
161         .Add "hour_minute": .Add "hour_second": .Add "if": .Add "ignore": .Add "in": .Add "index": .Add "infile": .Add "inner"
162         .Add "inout": .Add "insensitive": .Add "insert": .Add "int": .Add "int1": .Add "int2": .Add "int3": .Add "int4": .Add "int8"
163         .Add "integer": .Add "interval": .Add "into""": .Add "is": .Add "iterate": .Add "join": .Add "key": .Add "keys": .Add "kill"
164         .Add "label": .Add "leading": .Add "leave": .Add "left": .Add "like": .Add "limit": .Add "linear": .Add "lines": .Add "load"
165         .Add "localtime": .Add "localtimestamp": .Add "lock": .Add "long": .Add "longblob": .Add "longtext": .Add "loop"
166         .Add "low_priority": .Add "match": .Add "mediumblob": .Add "mediumint": .Add "mediumtext": .Add "middleint"
167         .Add "minute_microsecond": .Add "minute_second": .Add "mod": .Add "modifies": .Add "natural": .Add "not"
168         .Add "no_write_to_binlog": .Add "null": .Add "numeric": .Add "on": .Add "optimize": .Add "option": .Add "optionally"
169         .Add "or": .Add "order": .Add "out": .Add "outer": .Add "outfile": .Add "precision": .Add "primary": .Add "procedure"
170         .Add "purge": .Add "raid0": .Add "range": .Add "read": .Add "reads": .Add "real": .Add "references": .Add "regexp"
171         .Add "release": .Add "rename": .Add "repeat": .Add "replace": .Add "require": .Add "restrict": .Add "return"
172         .Add "revoke": .Add "right": .Add "rlike": .Add "schema": .Add "schemas": .Add "second_microsecond": .Add "select"
173         .Add "sensitive": .Add "separator": .Add "set": .Add "show": .Add "smallint": .Add "spatial": .Add "specific": .Add "sql"
174         .Add "sqlexception": .Add "sqlstate": .Add "sqlwarning": .Add "sql_big_result": .Add "sql_calc_found_rows"
175         .Add "sql_small_result": .Add "ssl": .Add "starting": .Add "straight_join": .Add "table": .Add "terminated"
176         .Add "then": .Add "tinyblob": .Add "tinyint": .Add "tinytext": .Add "to": .Add "trailing": .Add "trigger": .Add "true"
177         .Add "undo": .Add "union": .Add "unique": .Add "unlock": .Add "unsigned": .Add "update": .Add "usage": .Add "use"
178         .Add "using": .Add "utc_date": .Add "utc_time": .Add "utc_timestamp": .Add "values": .Add "varbinary": .Add "varchar"
179         .Add "varcharacter": .Add "varying": .Add "when": .Add "where": .Add "while": .Add "with": .Add "write": .Add "x509"
180         .Add "xor": .Add "year_month"
181     End With
182
183     isMySQLKeyword = isSpecial(w, keys)
184
185 End Function
186
187 'Python语言的关键字
188 Private Function isPythonLANGKeyword(w) As Boolean
189
190     Dim keys As New Collection
191
192     With keys
193         .Add "False": .Add "def": .Add "if": .Add "raise": .Add "None": .Add "del": .Add "import": .Add "return": .Add "True": .Add "elif": .Add "in"
194         .Add "try": .Add "and": .Add "else": .Add "is": .Add "while": .Add "as": .Add "except": .Add "lambda": .Add "with": .Add "assert": .Add "finally"
195         .Add "nonlocal": .Add "yield": .Add "break": .Add "for": .Add "not": .Add "class": .Add "from": .Add "or": .Add "continue": .Add "global": .Add "pass": .Add "self"
196
197     End With
198
199     isPythonLANGKeyword = isSpecial(w, keys)
200
201 End Function
202
203 'Java语言关键字
204 Private Function isJavaLANGKeyword(w) As Boolean
205
206     Dim keys As New Collection
207
208     With keys
209         .Add "abstract": .Add "asm": .Add "auto": .Add "bool": .Add "boolean": .Add "break": .Add "byte": .Add "case": .Add "cast": .Add "catch": .Add "char"
210         .Add "class": .Add "const": .Add "continue": .Add "default": .Add "delete": .Add "do": .Add "double": .Add "dynamic_case": .Add "else": .Add "enum": .Add "explicit": .Add "export": .Add "extern": .Add "extends": .Add "false": .Add "final"
211         .Add "finally": .Add "friend": .Add "float": .Add "for": .Add "goto": .Add "if": .Add "inline": .Add "implements": .Add "import": .Add "instanceof": .Add "inner": .Add "int"
212         .Add "interface": .Add "long": .Add "native": .Add "new": .Add "null": .Add "operator": .Add "package": .Add "private": .Add "protected": .Add "public": .Add "return"
213         .Add "short": .Add "sigend": .Add "static": .Add "static_cast": .Add "struct": .Add "super": .Add "switch": .Add "synchronized": .Add "template": .Add "this": .Add "throw": .Add "throws": .Add "transient": .Add "true"
214         .Add "try": .Add "typedef": .Add "unsigned": .Add "union": .Add "using": .Add "virtual": .Add "void": .Add "volatile": .Add "while": .Add "include": .Add "std"
215     End With
216
217     isJavaLANGKeyword = isSpecial(w, keys)
218
219 End Function
220 'Java语言系统相关的关键字
221 Private Function isJavaSystemLANGKeyword(w) As Boolean
222
223     Dim keys As New Collection
224
225     With keys
226
227        .Add "System": .Add "String": .Add "StringBuffer": .Add "Runnable": .Add "Thread": .Add "Exception": .Add "IOException": .Add "cout": .Add "cin": .Add "std": .Add "endl": .Add "vector"
228
229     End With
230
231     isJavaSystemLANGKeyword = isSpecial(w, keys)
232
233 End Function
234
235 'RHEL系列的系统常用命令
236 Private Function isRHELLANGKeyword(w) As Boolean
237
238     Dim keys As New Collection
239
240     With keys
241         .Add "cat": .Add "chattr": .Add "chgrp": .Add "chmod": .Add "chown": .Add "cksum": .Add "cmp": .Add "diff": .Add "diffstat"
242         .Add "file": .Add "find": .Add "git": .Add "gitview": .Add "indent": .Add "cut": .Add "ln": .Add "less": .Add "locate"
243         .Add "lsattr": .Add "mattrib": .Add "mc": .Add "mdel": .Add "mdir": .Add "mktemp": .Add "more": .Add "mmove": .Add "mread"
244         .Add "mren": .Add "mtools": .Add "mtoolstest": .Add "mv": .Add "od": .Add "paste": .Add "patch": .Add "rcp": .Add "rm": .Add "slocate"
245         .Add "split": .Add "tee": .Add "tmpwatch": .Add "touch": .Add "umask": .Add "which": .Add "cp": .Add "whereis": .Add "mcopy"
246         .Add "mshowfat": .Add "rhmask": .Add "scp ": .Add "awk": .Add "read": .Add "updatedb": .Add "col": .Add "colrm": .Add "comm"
247         .Add "csplit": .Add "ed": .Add "egrep": .Add "ex": .Add "fgrep": .Add "fmt": .Add "fold": .Add "grep": .Add "ispell": .Add "jed"
248         .Add "joe": .Add "join": .Add "look": .Add "mtype": .Add "pico": .Add "rgrep": .Add "sed": .Add "sort": .Add "spell": .Add "tr"
249         .Add "expr": .Add "uniq": .Add "wc": .Add "let": .Add " ": .Add "lprm": .Add "lpr": .Add "lpq": .Add "lpd": .Add "bye": .Add "ftp"
250         .Add "uuto": .Add "uupick": .Add "uucp": .Add "uucico": .Add "tftp": .Add "ncftp": .Add "ftpshut": .Add "ftpwho": .Add "ftpcount"
251         .Add "cd": .Add "df": .Add "dirs": .Add "du": .Add "edquota": .Add "eject": .Add "mcd": .Add "mdeltree": .Add "mdu": .Add "mkdir"
252         .Add "mlabel": .Add "mmd": .Add "mrd": .Add "mzip": .Add "pwd": .Add "quota": .Add "mount": .Add "mmount": .Add "rmdir": .Add "rmt"
253         .Add "stat": .Add "tree": .Add "umount": .Add "ls": .Add "quotacheck": .Add "quotaoff": .Add "lndir": .Add "repquota"
254         .Add "quotaon": .Add "badblocks": .Add "cfdisk": .Add "dd": .Add "e2fsck": .Add "ext2ed": .Add "fsck": .Add "fsck.minix"
255         .Add "fsconf": .Add "fdformat": .Add "hdparm": .Add "mformat": .Add "mkbootdisk": .Add "mkdosfs": .Add "mke2fs": .Add "mkfs.ext2"
256         .Add "mkfs.msdos": .Add "mkinitrd": .Add "mkisofs": .Add "mkswap": .Add "mpartition": .Add "swapon": .Add "symlinks": .Add "sync"
257         .Add "mbadblocks": .Add "mkfs.minix": .Add "fsck.ext2": .Add "fdisk": .Add "losetup": .Add "mkfs": .Add "sfdisk": .Add "swapoff"
258         .Add "apachectl": .Add "arpwatch": .Add "dip": .Add "getty": .Add "mingetty": .Add "uux": .Add "telnet": .Add "uulog": .Add "uustat"
259         .Add "ppp-off": .Add "netconfig": .Add "nc": .Add "httpd": .Add "ifconfig": .Add "minicom": .Add "mesg": .Add "dnsconf": .Add "wall"
260         .Add "netstat": .Add "ping": .Add "pppstats": .Add "samba": .Add "setserial": .Add "talk": .Add "traceroute": .Add "tty"
261         .Add "newaliases": .Add "uuname": .Add "netconf": .Add "write": .Add "statserial": .Add "efax": .Add "pppsetup": .Add "tcpdump"
262         .Add "ytalk": .Add "cu": .Add "smbd": .Add "testparm": .Add "smbclient": .Add "shapecfg": .Add "adduser": .Add "chfn": .Add "useradd"
263         .Add "date": .Add "exit": .Add "finger": .Add "fwhios": .Add "sleep": .Add "suspend": .Add "groupdel": .Add "groupmod": .Add "halt"
264         .Add "kill": .Add "last": .Add "lastb": .Add "login": .Add "logname": .Add "logout": .Add "ps": .Add "nice": .Add "procinfo"
265         .Add "top": .Add "pstree": .Add "reboot": .Add "rlogin": .Add "rsh": .Add "sliplogin": .Add "screen": .Add "shutdown": .Add "rwho"
266         .Add "sudo": .Add "gitps": .Add "swatch": .Add "tload": .Add "logrotate": .Add "uname": .Add "chsh": .Add "userconf": .Add "userdel"
267         .Add "usermod": .Add "vlock": .Add "who": .Add "whoami": .Add "whois": .Add "newgrp": .Add "renice": .Add "su": .Add "skill": .Add "w"
268         .Add "id": .Add "free": .Add "reset": .Add "clear": .Add "alias": .Add "dircolors": .Add "aumix": .Add "bind": .Add "chroot"
269         .Add "clock": .Add "crontab": .Add "declare": .Add "depmod": .Add "dmesg": .Add "enable": .Add "eval": .Add "export"
270         .Add "pwunconv": .Add "grpconv": .Add "rpm": .Add "insmod": .Add "kbdconfig": .Add "lilo": .Add "liloconfig": .Add "lsmod"
271         .Add "minfo": .Add "set": .Add "modprobe": .Add "ntsysv": .Add "mouseconfig": .Add "passwd": .Add "pwconv": .Add "rdate"
272         .Add "resize": .Add "rmmod": .Add "grpunconv": .Add "modinfo": .Add "time": .Add "setup": .Add "sndconfig": .Add "setenv"
273         .Add "setconsole": .Add "timeconfig": .Add "ulimit": .Add "unset": .Add "chkconfig": .Add "apmd": .Add "hwclock"
274         .Add "mkkickstart": .Add "fbset": .Add "unalias": .Add "SVGATextMode": .Add "ar": .Add "bunzip2": .Add "bzip2": .Add "yum"
275         .Add "bzip2recover": .Add "gunzip": .Add "unarj": .Add "compress": .Add "cpio": .Add "dump": .Add "uuencode": .Add "gzexe"
276         .Add "gzip": .Add "lha": .Add "restore": .Add "tar": .Add "uudecode": .Add "unzip": .Add "zip": .Add "zipinfo": .Add "setleds": .Add "echo"
277         .Add "loadkeys": .Add "rdev": .Add "dumpkeys"
278     End With
279
280     isRHELLANGKeyword = isSpecial(w, keys)
281
282 End Function
283
284 'RHEL syntax hight light
285 Sub RHELForSyntaxHighlight()
286
287     Dim wordCount As Integer
288
289     Dim d As Integer
290
291     ' set the style of selection
292
293     ' Selection.Style = "ccode"
294
295     d = 0
296
297     wordCount = Selection.Words.Count
298
299     Selection.StartOf wdWord
300
301     While d < wordCount
302
303         d = d + Selection.MoveRight(wdWord, 1, wdExtend)
304
305         w = Selection.Text
306         If isRHELLANGKeyword(Trim(w)) = True Then
307
308             Selection.Font.Color = wdColorBlue
309
310             Selection.Font.Bold = True
311
312         End If
313
314         If isRHELLANGKeyword(Trim(w)) = True Then
315
316             Selection.Font.Color = wdColorBlue
317
318             Selection.Font.Bold = True
319
320
321         ElseIf isOperator(Trim(w)) = True Then
322             Selection.Font.Bold = True
323
324             Selection.Font.Color = wdColorBrown
325
326
327         ElseIf isOthers(Trim(w)) = True Then
328
329             Selection.Font.Color = wdColorBrown
330
331             Selection.Font.Bold = True
332
333         Else
334
335             Selection.Font.Bold = True
336         End If
337
338         'move the start of selection to next word
339
340         Selection.MoveStart wdWord
341
342     Wend
343
344     ' prepare For set lIne number
345
346     'Selection.MoveLeft wdWord, wordCount, wdExtend
347
348     'SetLIneNumber
349
350 End Sub
351 ' java syntax hight light
352 Sub JavaLANGSyntaxHighlight()
353
354     Dim wordCount As Integer
355
356     Dim d As Integer
357
358     ' set the style of selection
359
360     ' Selection.Style = "ccode"
361
362     d = 0
363
364     wordCount = Selection.Words.Count
365
366     Selection.StartOf wdWord
367
368     While d < wordCount
369
370         d = d + Selection.MoveRight(wdWord, 1, wdExtend)
371
372         w = Selection.Text
373         If isJavaLANGKeyword(Trim(w)) = True Then
374
375             Selection.Font.Color = wdColorRed
376
377             Selection.Font.Bold = True
378
379         ElseIf isJavaSystemLANGKeyword(Trim(w)) = True Then
380
381             Selection.Font.Color = wdColorRed
382
383             Selection.Font.Bold = True
384
385
386         ElseIf isOperator(Trim(w)) = True Then
387
388             Selection.Font.Color = wdColorBrown
389
390             Selection.Font.Bold = True
391
392         ElseIf isOthers(Trim(w)) = True Then
393
394             Selection.Font.Color = wdColorBrown
395
396             Selection.Font.Bold = True
397
398
399         ElseIf Trim(w) = "//" Then
400
401             'lIne comment
402
403             Selection.MoveEnd wdLine, 1
404
405             commentWords = Selection.Words.Count
406
407             d = d + commentWords
408
409             Selection.Font.Color = wdColorBlack
410
411             Selection.MoveStart wdWord, commentWords
412
413          ElseIf Trim(w) = "/*" Then
414
415             'block comment
416
417             While Selection.Characters.Last <> "/"
418
419                 Selection.MoveLeft wdCharacter, 1, wdExtend
420
421                 Selection.MoveEndUntil ("*")
422
423                 Selection.MoveRight wdCharacter, 2, wdExtend
424
425             Wend
426
427             commentWords = Selection.Words.Count
428
429             d = d + commentWords
430
431             Selection.Font.Color = wdColorBlack
432
433             Selection.MoveStart wdWord, commentWords
434
435             Selection.Font.Bold = True
436         Else
437
438             Selection.Font.Bold = True
439
440         End If
441
442         'move the start of selection to next word
443
444         Selection.MoveStart wdWord
445
446     Wend
447
448     ' prepare For set lIne number
449
450     Selection.MoveLeft wdWord, wordCount, wdExtend
451
452     SetLIneNumber
453
454 End Sub
455 ' python syntax high light
456 Sub PythonLANGSyntaxHighlight()
457
458     Dim wordCount As Integer
459
460     Dim d As Integer
461
462     ' set the style of selection
463
464     ' Selection.Style = "ccode"
465
466     d = 0
467
468     wordCount = Selection.Words.Count
469
470     Selection.StartOf wdWord
471
472     While d < wordCount
473
474         d = d + Selection.MoveRight(wdWord, 1, wdExtend)
475
476         w = Selection.Text
477         If isPythonLANGKeyword(Trim(w)) = True Then
478
479             Selection.Font.Color = wdColorViolet
480
481             Selection.Font.Bold = True
482
483         ElseIf isOperator(Trim(w)) = True Then
484
485             Selection.Font.Color = wdColorBrown
486
487             Selection.Font.Bold = True
488
489         ElseIf isOthers(Trim(w)) = True Then
490
491             Selection.Font.Color = wdColorBrown
492
493             Selection.Font.Bold = True
494
495         Else
496
497             Selection.Font.Bold = True
498         End If
499
500         'move the start of selection to next word
501
502         Selection.MoveStart wdWord
503
504     Wend
505
506     ' prepare For set lIne number
507
508     Selection.MoveLeft wdWord, wordCount, wdExtend
509
510     SetLIneNumber
511
512 End Sub
513 'C syntax hight light
514 Sub CLANGSyntaxHighlight()
515
516     Dim wordCount As Integer
517
518     Dim d As Integer
519
520     ' set the style of selection
521
522     ' Selection.Style = "ccode"
523
524     d = 0
525
526     wordCount = Selection.Words.Count
527
528     Selection.StartOf wdWord
529
530     While d < wordCount
531
532         d = d + Selection.MoveRight(wdWord, 1, wdExtend)
533
534         w = Selection.Text
535         If isCLANGKeyword(Trim(w)) = True Then
536
537             Selection.Font.Color = wdColorBlue
538
539             Selection.Font.Bold = True
540
541
542         ElseIf isOperator(Trim(w)) = True Then
543
544             Selection.Font.Bold = True
545
546             Selection.Font.Color = wdColorBrown
547
548
549         ElseIf isOthers(Trim(w)) = True Then
550
551             Selection.Font.Color = wdColorBrown
552
553             Selection.Font.Bold = True
554
555
556         ElseIf Trim(w) = "//" Then
557
558             'lIne comment
559
560             Selection.MoveEnd wdLine, 1
561
562             commentWords = Selection.Words.Count
563
564             d = d + commentWords
565
566             Selection.Font.Color = wdColorBlack
567
568             Selection.MoveStart wdWord, commentWords
569
570          ElseIf Trim(w) = "/*" Then
571
572             'block comment
573
574             While Selection.Characters.Last <> "/"
575
576                 Selection.MoveLeft wdCharacter, 1, wdExtend
577
578                 Selection.MoveEndUntil ("*")
579
580                 Selection.MoveRight wdCharacter, 2, wdExtend
581
582             Wend
583
584             commentWords = Selection.Words.Count
585
586             d = d + commentWords
587
588             Selection.Font.Color = wdColorBlack
589
590             Selection.MoveStart wdWord, commentWords
591
592         Else
593
594             Selection.Font.Bold = True
595         End If
596
597         'move the start of selection to next word
598
599         Selection.MoveStart wdWord
600
601     Wend
602
603     ' prepare For set lIne number
604
605     Selection.MoveLeft wdWord, wordCount, wdExtend
606
607     SetLIneNumber
608
609 End Sub
610
611 ' MySQL syntax hight light
612 Sub MySQLForSyntaxHighlight()
613
614     Dim wordCount As Integer
615
616     Dim d As Integer
617
618     ' set the style of selection
619
620     ' Selection.Style = "ccode"
621
622     d = 0
623
624     wordCount = Selection.Words.Count
625
626     Selection.StartOf wdWord
627
628     While d < wordCount
629
630         d = d + Selection.MoveRight(wdWord, 1, wdExtend)
631
632         w = Selection.Text
633
634         If isMySQLKeyword(Trim(w)) = True Then
635
636             Selection.Font.Color = wdColorRed
637
638             Selection.Font.Bold = True
639
640         ElseIf isOperator(Trim(w)) = True Then
641
642             Selection.Font.Bold = True
643
644             Selection.Font.Color = wdColorBrown
645
646
647         ElseIf isOthers(Trim(w)) = True Then
648
649             Selection.Font.Color = wdColorBrown
650
651             Selection.Font.Bold = True
652
653
654         ElseIf Trim(w) = "#" Then
655
656             'lIne comment
657
658             Selection.MoveEnd wdLine, 1
659
660             commentWords = Selection.Words.Count
661
662             d = d + commentWords
663
664             Selection.Font.Color = wdColorBlack
665
666             Selection.MoveStart wdWord, commentWords
667
668         Else
669
670             Selection.Font.Bold = True
671         End If
672
673         'move the start of selection to next word
674
675         Selection.MoveStart wdWord
676
677     Wend
678
679     ' prepare For set lIne number
680
681     ' Selection.MoveLeft wdWord, wordCount, wdExtend
682
683     ' SetLIneNumber
684
685 End Sub

以下是来自互联网的源代码，原作者不是太清楚，这里附上链接 https://www.xuebuyuan.com/1843358.html

此处再次感谢提供基础源码的作者。

  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