word中插入漂亮的代码
有时写文档时需要将代码粘贴到word中，但直接粘贴到word中的代码虽能保持换行与缩进等格式，但在一般代码编辑工具中的关键字高亮功能却无法实现。该方法无需任何插件，只需要制作一个宏即可实现类似sublime的显示效果准备：首先完成当前所有内容，建议把代码放入单独的文本框中，方便处理，也有较好的视觉效果。记得一定要拷贝一份副本！因为很可能因为代码量比较多，处理宏的时候卡死，只能强制退出WORD了。
当前文档新定义一个样式，命名为"code"，专门用来对代码进行格式化。由于是代码，所以推荐中文使用黑体（注释等），而英文使用等宽字体（courier new）。步骤如图。
选中代码，单击样式库 ccode，将代码应用该样式
新建宏，步骤如图
将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 "||": .Add "": .Add "|": .Add "=": .Add "++": .Add "--" .Add "'": .Add """" End With isOperator = isSpecial(w, ops) End Function Private Function isType(ByVal w As String) As Boolean Dim types As New Collection With types .Add "SELECT": .Add "FROM": .Add "WHERE": .Add "INSERT": .Add "INTO": .Add "VALUES": .Add "ORDER" .Add "BY": .Add "LIMIT": .Add "ASC": .Add "DESC": .Add "UPDATE": .Add "DELETE": .Add "COUNT" .Add "html": .Add "head": .Add "title": .Add "body": .Add "p": .Add "h1": .Add " h2" .Add "h3": .Add "center": .Add "ul": .Add "ol": .Add "li": .Add "a" .Add "input": .Add "form": .Add "b" End With isType = isSpecial(w, types) End Function Sub SyntaxHighlight() Dim wordCount As Integer Dim d As Integer ' set the style of selection Selection.Style = "ccode" d = 0 wordCount = Selection.Words.Count Selection.StartOf wdWord While d wordCount d = d + Selection.MoveRight(wdWord, 1, wdExtend) w = Selection.Text If isKeyword(Trim(w)) = True Then Selection.Font.Color = wdColorBlue ElseIf isType(Trim(w)) = True Then Selection.Font.Color = wdColorDarkRed Selection.Font.Bold = True ElseIf isOperator(Trim(w)) = True Then Selection.Font.Color = wdColorBrown ElseIf Trim(w) = "//" Then 'lIne comment Selection.MoveEnd wdLine, 1 commentWords = Selection.Words.Count d = d + commentWords Selection.Font.Color = wdColorGreen Selection.MoveStart wdWord, commentWords ElseIf Trim(w) = "/*" Then 'block comment While Selection.Characters.Last "/" Selection.MoveLeft wdCharacter, 1, wdExtend Selection.MoveEndUntil ("*") Selection.MoveRight wdCharacter, 2, wdExtend Wend commentWords = Selection.Words.Count d = d + commentWords Selection.Font.Color = wdColorGreen Selection.MoveStart wdWord, commentWords End If 'move the start of selection to next word Selection.MoveStart wdWord Wend ' prepare For set lIne number Selection.MoveLeft wdWord, wordCount, wdExtend SetLIneNumber End Sub Private Sub SetLIneNumber() Dim lines As Integer lines = Selection.Paragraphs.Count Selection.StartOf wdParagraph For l = 1 To lines lIneNum = l " " If l 10 Then lIneNum = lIneNum " " End If Selection.Text = lIneNum Selection.Font.Bold = False Selection.Font.Color = wdColorAutomatic p = Selection.MoveDown(wdLine, 1, wdMove) Selection.StartOf wdLine Next End Sub
选定代码文本，然后执行highlight脚本：“视图”-“宏”- 选中“SyntaxHighlight”-“运行”，然后执行就可以了。处理较长代码时需要一定时间，请耐心等待。
绛旓細褰撳墠鏂囨。鏂板畾涔変竴涓牱寮忥紝鍛藉悕涓"code"锛屼笓闂ㄧ敤鏉ュ浠ｇ爜杩涜鏍煎紡鍖栥傜敱浜庢槸浠ｇ爜锛屾墍浠ユ帹鑽愪腑鏂囦娇鐢ㄩ粦浣擄紙娉ㄩ噴绛夛級锛岃岃嫳鏂囦娇鐢ㄧ瓑瀹藉瓧浣擄紙courier new锛夈傛楠ゅ鍥俱傞変腑浠ｇ爜锛屽崟鍑绘牱寮忓簱 ccode锛屽皢浠ｇ爜搴旂敤璇ユ牱寮 鏂板缓瀹忥紝姝ラ濡傚浘 灏哣BA浠ｇ爜锛堝湪涓嬩竴姝ヤ腑锛夋嫹璐濊繘鍘伙紝淇濆瓨鍚庡叧闂 锛堟湁VBA鎴栫浉鍏...
绛旓細1銆侀変腑浠ｇ爜鍖 2銆佹牸寮忊啋杈规鍜屽簳绾光啋搴曠汗锛岄夋嫨涓绉嶆祬娴呯殑鐏拌壊銆備唬鐮佸尯鏄笉鏄‖涓婁簡涓灞傛祬鐨勮儗鏅
绛旓細Step1锛氭妸浠ｇ爜澶嶅埗鍒 Notepad++ Step2锛氶変腑Notepad++鏂囨湰缂栬緫鍖閲岀殑浠ｇ爜锛岃繘鍏ャ愭彃浠躲戣彍鍗曪紝杩涘叆銆怤ppExport銆戯紝鐐瑰嚮銆怌opy all formats to clipboard銆慡tep3锛鍦╳ord鐨勭紪杈戝尯杩涜绮樿创鍔ㄤ綔銆係tep4锛氬湪word鐨勭紪杈戝尯涓変腑鍒氱矘璐磋繃鏉ョ殑浠ｇ爜銆傝繘鍏ャ愭牸寮忋戣彍鍗曪紝鐐瑰嚮銆愯竟妗嗗拰搴曠汗銆戯紝骞跺湪寮瑰嚭鐨勭獥浣撲腑璋冩暣鈥...
绛旓細鍦ㄨ彍鍗曟爮---鎻掑叆---瀵硅薄---鐢辨枃浠跺垱寤---娴忚---鎵惧埌闇瑕佹彃鍏ョ殑鏂囦欢---鍕鹃夐夋嫨涓哄浘鐗囨垨閾炬帴鍒版枃浠--纭畾---ok鎼炴巶 璇存槑:濡傛灉鍕鹃夐夋嫨鍥剧墖,鍙互鍐嶉夋嫨鏇存敼鍥炬爣鍜屽悕绉.瀹屾垚鍚庡彧瑕佸湪鏂囨爮褰撲腑鍙屽嚮灏卞彲浠ユ墦寮鐩稿簲鐨勬枃妗ｄ簡.甯屾湜鏄綘鎵剧殑
绛旓細WORD娌℃湁璇硶鐫鑹茬殑鍔熻兘锛屽彲浠ユ壘涓湪绾浠ｇ爜缂栬緫鍣紝澶嶅埗鍦閲岄潰锛屽埄鐢ㄥ畠鐨勭潃鑹插姛鑳藉疄鐜帮紝鐒跺悗澶嶅埗浠ｇ爜浠TML鏍煎紡绮樿创锛堥粯璁ゅ簲璇ュ氨鏄級
绛旓細涓銆侀鍏堣繘鍏ュ埌娓告垙涓傚涓嬪浘鎵绀恒備簩銆佺劧鍚庣偣鍑诲彸渚х殑鑱婂ぉ灏忓浘鏍囥傚涓嬪浘鎵绀恒備笁銆佷笅鏉ョ偣鍑讳腑闂寸殑鑱婂ぉ妗嗭紝闇瑕佽緭鍏ヤ竴娈浠ｇ爜銆傚涓嬪浘鎵绀恒傚洓銆佹帴涓嬫潵鍙互鍦ㄨ亰澶╀腑杈撳叆锛氭垜杩欓噷鏈夛紲SS_Normal_Color锕ユ兂鍙戠殑瀛楋工/>銆傚涓嬪浘鎵绀恒備簲銆佹帴涓嬫潵鐐瑰嚮鍙戦佸氨鍙互鐪嬪埌瀛椾綋棰滆壊浜嗐3銆佹垜鎯虫妸绋鏈夌壒娈婅秴濂界湅鍙...
绛旓細4. 鎻掑叆鍏紡 浠嬬粛涓涓皬鎻掍欢,鍙兘鏈夊緢澶氫汉閮藉紑濮嬬敤浜,灏辨槸 Aurora銆傚厛鏉ヨ璇翠负浠涔堜笉鐢ㄥ叾浠栫殑鍏紡缂栬緫鍣ㄣ Word 鑷甫浜嗗叕寮忕紪杈戝櫒,鍏跺疄 Word 鑷甫鐨勫叕寮忕紪杈戝櫒涓嶇敤榧犳爣鐐规潵鐐瑰幓鐨勯夋嫨鍚勭绗﹀彿,鍙互閫氳繃蹇嵎閿潵杈撳叆鍚勭绗﹀彿,涔熷彲浠ュ埄鐢ㄩ娉ㄧ粰 Word 涓殑鍏紡娣诲姞鑷姩缂栧彿浠ュ強浜ゅ弶寮曠敤銆備絾鏄湁鐐归夯鐑,杩欐槸鎴戜笉鎺ㄨ崘...
绛旓細1銆佹墦寮idle銆傜偣鍑籪ile锛岀劧鍚庣偣鍑籲ew file 杩欐槸鍒涘缓涓涓柊鐨勬枃浠躲傛柊寤...绛旓細1銆佹墦寮idle銆傜偣鍑籪ile锛岀劧鍚庣偣鍑籲ew file.杩欐槸鍒涘缓涓涓柊鐨勬枃浠躲 鏂板缓涓涓枃浠朵箣鍚庯紝鎴戜滑杈撳叆绗竴琛浠ｇ爜锛屼娇鐢╬rint鍑芥暟锛屽湪灞忓箷涓婃墦鍗颁竴鍙ヨ瘽锛屽叾涓瓧绗︿覆瑕佷娇鐢ㄥ弻寮曞彿锛岃緭鍏ユ硶瑕佷娇鐢ㄨ嫳鏂囪緭鍏ユ硶锛屽鏋滅鍙蜂娇鐢ㄤ腑鏂囪緭鍏ユ硶...
绛旓細鍒╃敤VALIGN=MIDDLE鍙互璁╄〃鏍间腑鐗╀欢鍨傜洿缃腑锛堥璁惧硷級锛孷ALIGN=BOTTOM鍙互H璁╄〃鏍间腑鐗╀欢闈犱笅鏂广傚洓銆佽〃鏍艰儗鏅缃 1銆侀偅涔堣〃鏍煎彲浠ヨ瀹氬簳鑹插悧锛熷彲浠ョ殑涓嶄絾琛ㄦ牸鍙互锛屾偍涔熷彲浠ユ寚瀹氭煇鏍忔垨鏌愬垪鐨勯鑹诧紝鏂规硶鍜屽姞鑳屾櫙棰滆壊涓鏍凤紝鍒╃敤BGCOLOR="棰滆壊鐮"灏辫浜嗐傚簳涓嬫槸鎸囧畾鏁存牸琛ㄦ牸鑳屾櫙棰滆壊鐨勬柟娉曪細浠ｇ爜锛<TABLE ...
绛旓細1銆侀鍏堝皢浣滄枃鍐呭缂栬緫鍦ㄤ竴涓word鏂囨。閲銆2銆佺劧鍚庡湪鎻掑叆鑿滃崟涓紝鐐瑰嚮鈥滃浘鐗団濇寜閽3銆佺劧鍚庡湪鐢佃剳鏂囦欢澶逛腑閫夋嫨鐩爣鍥剧墖锛岃繘琛屾彃鍏ャ4銆佺劧鍚庨変腑鍥剧墖锛岃缃叾鏂囧瓧鐜粫鏂瑰紡涓衡滆‖浜庢枃瀛椾笅鏂光濄5銆佺劧鍚庤缃浘鐗囧昂瀵镐负word鏂囨。椤甸潰澶у皬锛屾讳箣鏄鍥剧墖瑕嗙洊鏁翠釜椤甸潰銆6銆佹渶鍚庤繘琛屾墦鍗伴瑙堣繘琛屾晥鏋滈瑙堛傝繖鏍峰氨鍙互...
