六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網(wǎng)中心：是一個(gè)免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺(tái)！

Word中設(shè)置代碼高亮?word中關(guān)鍵字高亮的設(shè)置圖文說(shuō)明教程

發(fā)表時(shí)間：2023-09-05 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]有時(shí)寫(xiě)文檔時(shí)需要將代碼粘貼到word中，但直接粘貼到word中的代碼雖能保持換行與縮進(jìn)等格式，但在一般代碼編輯工具中的關(guān)鍵字高亮功能卻無(wú)法實(shí)現(xiàn)。該方法無(wú)需任何插件，只需要制作一個(gè)宏即可實(shí)現(xiàn)類(lèi)似sublime的顯示效果 center">1、首先完成當(dāng)前所有內(nèi)容，建議把代碼放入單獨(dú)的文...

有時(shí)寫(xiě)文檔時(shí)需要將代碼粘貼到word中，但直接粘貼到word中的代碼雖能保持換行與縮進(jìn)等格式，但在一般代碼編輯工具中的關(guān)鍵字高亮功能卻無(wú)法實(shí)現(xiàn)。該方法無(wú)需任何插件，只需要制作一個(gè)宏即可實(shí)現(xiàn)類(lèi)似sublime的顯示效果

 

Word中設(shè)置代碼高亮?word中關(guān)鍵字高亮的設(shè)置圖文教程1

1、首先完成當(dāng)前所有內(nèi)容，建議把代碼放入單獨(dú)的文本框中，方便處理，也有較好的視覺(jué)效果。記得一定要拷貝一份副本！因?yàn)楹芸赡芤驗(yàn)榇a量比較多，處理宏的時(shí)候卡死，只能強(qiáng)制退出WORD了。

2、當(dāng)前文檔新定義一個(gè)樣式，命名為"code"，專(zhuān)門(mén)用來(lái)對(duì)代碼進(jìn)行格式化。由于是代碼，所以推薦中文使用黑體（注釋等），而英文使用等寬字體（courier new）。步驟如圖。

Word中設(shè)置代碼高亮?word中關(guān)鍵字高亮的設(shè)置圖文教程2

3、選中代碼，單擊樣式庫(kù) ccode，將代碼應(yīng)用該樣式

Word中設(shè)置代碼高亮?word中關(guān)鍵字高亮的設(shè)置圖文教程3

4、新建宏，步驟如圖

Word中設(shè)置代碼高亮?word中關(guān)鍵字高亮的設(shè)置圖文教程4

5、將VBA代碼（在下一步中）拷貝進(jìn)去，保存后關(guān)閉 （有VBA或相關(guān)程序經(jīng)驗(yàn)者可根據(jù)自己需要進(jìn)行相關(guān)修改，如關(guān)鍵詞和高亮顏色等）

Word中設(shè)置代碼高亮?word中關(guān)鍵字高亮的設(shè)置圖文教程5

復(fù)制內(nèi)容到剪貼板
  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.   

Office辦公軟件是辦公的第一選擇，這個(gè)地球人都知道。除了微軟Office，市面上也存在很多其他Office類(lèi)軟件。
主站蜘蛛池模板： 一二三四在线手机观看视频 | 亚洲欧美日韩不卡一区二区三区 | 欧美亚洲国产精品久久久久 | 欧美艳星nikki办公室 | 手机看片自拍自拍 | 四虎影视国产884a精品亚洲 | 手机看片福利日韩欧美看片 | 亚洲动作片| 午夜久久久久久久 | 一级黄色片免费播放 | 日韩国产一区二区 | 亚洲综合在线最大成人 | 手机看片国产在线 | 四虎影酷 | 午夜天堂在线视频 | 香港三级理论在线观看网站 | 亚洲产国偷v产偷v自拍涩爱 | 青青黄色 | 亚洲天堂男人网 | 欧美亚洲另类一区中文字幕 | 性夜黄a爽影免费看 | 日本在线看免费 | 欧美亚洲国产日韩一区二区三区 | 伊人六月 | 午夜视频成人 | 日韩在线视频二区 | 青青草国产精品人人爱99 | 日韩久操 | 天天干夜夜曰 | 日韩中文字幕精品久久 | 伊人久久大香线蕉综合热线 | 午夜精品视频在线 | 特级黄一级播放 | 亚洲狠狠婷婷综合久久久久图片 | 小屁孩cao大人免费网站 | 日韩欧美精品综合一区二区三区 | 深夜视频在线看 | 日本激情视频一区二区三区 | 日韩在线视频在线观看 | 最近更新在线中文字幕一页 | 在线亚洲精品防屏蔽 |