现在的位置: 首页 > 综合 > 正文

【转载】word中实现代码高亮的宏

2012年10月07日 ⁄ 综合 ⁄ 共 3039字 ⁄ 字号 小 中 大 ⁄ 评论关闭
这个宏的原作者不得知，转载留作备份。
  1. Sub SyntaxHighlight()
  2. '
  3. ' SyntaxHighlight Macro
  4. ' 宏在 2003-4-24 由 yu 创建
  5. ' 修改 2008-12-08 由 wt.yu
  6. '
  8. 'Customization goes here
  10. Dim keywords, sysclasses
  11. keywords = Array("abstract", "asm", "auto", "bool", "boolean", "break", "byte", "case", "cast", "catch", "char", _
  12. "class", "const", "continue", "default", "delete", "do", "double", "dynamic_case", "else", "enum", "explicit", "export", "extern", "extends", "false", "final", _
  13. "finally", "friend", "float", "for", "goto", "if", "inline", "implements", "import", "instanceof", "inner", "int", _
  14. "interface", "long", "native", "new", "null", "operator", "package", "private", "protected", "public", "return", _
  15. "short", "sigend", "static", "static_cast", "struct", "super", "switch", "synchronized", "template", "this", "throw", "throws", "transient", "true", _
  16. "try", "typedef", "unsigned", "union", "using", "virtual", "void", "volatile", "while", "include", "std")
  18. sysclasses = Array("System", "String", "StringBuffer", "Runnable", "Thread", "Exception", "IOException", "cout", "cin", "std", "endl", "vector")
  20. MFCclasses = Array("CWnd", "HWND", "CRect", "HDC", "CDialog", "BOOL", "TRUE")
  22. b = Selection.Start
  23. E = Selection.End
  24. tstr = Selection.Text
  25. ll = Len(tstr)
  26. pos = 1
  27. c = ""
  28. sb = 0
  29. se = 0
  31. While (pos < ll)
  32.     c = Mid(tstr, pos, 1)
  33.     Select Case c
  34.     Case "/"
  35.         If Mid(tstr, pos + 1, 1) = "/" Then 'Comments
  36.             sb = pos
  37.             se = InStr(pos, tstr, vbCr)
  38.             Selection.Start = b + sb - 1
  39.             Selection.End = b + se - 1
  40.             Selection.Font.Italic = True
  41.             Selection.Font.Color = wdColorTeal
  42.             pos = se + 1
  43.         Else
  44.             pos = pos + 1
  45.         End If
  46.     Case """"
  47.         sb = pos
  48.         se = InStr(pos + 1, tstr, """")
  49.         Selection.Start = b + sb - 1
  50.         Selection.End = b + se
  51.         Selection.Font.Color = wdColorGray45
  52.         pos = se + 1
  53.     Case "a" To "z", "A" To "Z"
  54.         sb = pos
  55.         While (c <> " ") And (c <> "(") And (c <> ")") And (c <> "{") And (c <> "}") And (c <> vbCr) _
  56.         And (c <> ".") And (c <> ";")
  57.             pos = pos + 1
  58.             c = Mid(tstr, pos, 1)
  59.         Wend
  60.         w = Mid(tstr, sb, pos - sb)
  61.         For i = 0 To UBound(keywords)
  62.             If w = keywords(i) Then
  63.                 Selection.Start = b + sb - 1
  64.                 Selection.End = b + sb + Len(w) - 1
  65.                 Selection.Font.Bold = True
  66.                 Selection.Font.Color = wdColorBlue
  67.             End If
  68.         Next
  69.         
  70.         For i = 0 To UBound(sysclasses)
  71.             If w = sysclasses(i) Then
  72.                 Selection.Start = b + sb - 1
  73.                 Selection.End = b + sb + Len(w) - 1
  74.                 Selection.Font.Color = wdColorRed
  75.             End If
  76.         Next
  77.         
  78.         For i = 0 To UBound(MFCclasses)
  79.             If w = MFCclasses(i) Then
  80.                 Selection.Start = b + sb - 1
  81.                 Selection.End = b + sb + Len(w) - 1
  82.                 Selection.Font.Color = wdColorGreen
  83.             End If
  84.         Next
  85.         
  86.         pos = pos + 1
  87.     Case Else
  88.         pos = pos + 1
  89.     End Select
  90. Wend
  92. End Sub
返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞