- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 3Adobe Illustrator CS5 序列号大全
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 6Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8最新的Adobe Illustrator CS4序列号大全
- 9Intel i7-9700K性能跑分曝光：同代提升约12%
- 10qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
- 11XP系统怎么清除缓存？
- 12AMD推土机架构回顾：虽陨落却是Zen成功的垫脚石
[摘要]有时写文档时需要将代码粘贴到word中，但直接粘贴到word中的代码虽能保持换行与缩进等格式，但在一般代码编辑工具中的关键字高亮功能却无法实现。该方法无需任何插件，只需要制作一个宏即可实现类似sublime的显示效果 center">1、首先完成当前所有内容，建议把代码放入单独的文...
有时写文档时需要将代码粘贴到word中，但直接粘贴到word中的代码虽能保持换行与缩进等格式，但在一般代码编辑工具中的关键字高亮功能却无法实现。该方法无需任何插件，只需要制作一个宏即可实现类似sublime的显示效果
1、首先完成当前所有内容，建议把代码放入单独的文本框中，方便处理，也有较好的视觉效果。记得一定要拷贝一份副本！因为很可能因为代码量比较多，处理宏的时候卡死，只能强制退出WORD了。
2、当前文档新定义一个样式，命名为"code"，专门用来对代码进行格式化。由于是代码，所以推荐中文使用黑体（注释等），而英文使用等宽字体（courier new）。步骤如图。
3、选中代码，单击样式库 ccode，将代码应用该样式
4、新建宏，步骤如图
5、将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
Office办公软件是办公的第一选择，这个地球人都知道。除了微软Office，市面上也存在很多其他Office类软件。
推荐资讯 总人气榜
