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

 

posted @ 2019-08-02 11:32  Repetition_Maximum  阅读(2224)  评论(2编辑  收藏  举报