Word中怎么设置代码高亮word中关键字高亮的设置方法
有时写文档时需要将代码粘贴到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
6、 选定代码文本 ,然后执行highlight脚本:“ 视图”-“宏”- 选中“SyntaxHighlight”-“运行”, 然后执行就可以了。处理较长代码时需要一定时间,请耐心等待。
注意事项: 处理前一定要对原文章进行备份,以免前功尽弃。处理较长代码时需要一定时间,请耐心等待。
vivoXplay需要剪卡吗vivoXplay不需要剪卡,支持GSM,WCDMA(联通3G),不支持CDMA(电信卡)。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080像素(FHD
vivoXplay支持GPS吗vivoXplay支持GPS导航功能,同时支持重力感应器距离传感器光线传感器等功能。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080像素(FHD),外观
vivoXplay可以更换电池吗vivoXplay不可以更换电池,自身搭配了一枚3400毫安时锂电池,轻松使用一整天。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080像素(FHD),外
vivoXplay支持电信卡吗vivoXplay支持GSM,WCDMA(联通3G),不支持CDMA(电信卡)。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080像素(FHD),外观部分
vivoXplay用MICROSIM卡吗vivoXplay不用MICROSIM卡,支持GSM,WCDMA(联通3G),不支持CDMA(电信卡)。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080
vivoXplay拍照怎么样vivoXplay配备了500万前置摄像头和1300万堆栈式主摄像头,拥有LED补光灯,拍照效果更佳。vivoXplay支持dtsDOLBY双解码技术,提供BBESRSVRS三音效
vivoXplay支持720p播放吗vivoXplay支持播放720p(1280x720)高清视频摄像。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080像素(FHD),外观部分采用了白色的
vivoXplay支持联通卡吗vivoXplay支持GSM,WCDMA(联通3G),不支持CDMA(电信卡)。vivoXplay配备5。7英寸IPS屏幕,分辨率1920times1080像素(FHD),外观部分
华为A199拍照怎么样华为A199的摄像头表现尚可,优点是还原比较准确,缺点也说不出,但是缺少了一些出彩的地方,总体表现也是不错的,但可以在正式版中加强一下。华为A199采用了钢琴烤漆材质后盖,不过就在
华为A199续航能力怎么样华为A199配备了一块2150毫安时的电池,应付海思K3V2四核的话还是绰绰有余的。正常情况下使用,达到两天是没问题的,对于一款四核手机来说,续航能力是比较不错的。华为A199采用
华为A199屏幕怎么样华为A199配备了一块5英寸的大屏幕,分辨率方面,华为A199达到了主流的720P像素分辨率,华为A199的屏幕支持超灵敏触控。华为A199采用了钢琴烤漆材质后盖,不过就在后盖上加
小米1S支持GPS吗小米1S支持内置GPS,支持AGPS。小米1S搭载了一块4英寸的标准全触控屏幕,采用了TFT的材质屏幕,1600万色的分辨率为854x480像素,显示引擎使用半反半透显示技术,全面
小米1S能拍摄1080p视频吗小米1S不支持拍摄1080p视频,支持720p视频拍摄。小米1S搭载了一块4英寸的标准全触控屏幕,采用了TFT的材质屏幕,1600万色的分辨率为854x480像素,显示引擎使用半反
小米1S支持720p播放吗小米1S支持720p播放。小米1S搭载了一块4英寸的标准全触控屏幕,采用了TFT的材质屏幕,1600万色的分辨率为854x480像素,显示引擎使用半反半透显示技术,全面提高了液晶屏
小米1S怎么样小米1S搭载了一块4英寸的标准全触控屏幕,采用了TFT的材质屏幕,1600万色的分辨率为854x480像素,显示引擎使用半反半透显示技术,全面提高了液晶屏幕的可视角度液晶颗粒的反应
从产品了解小米1s青春版怎么样小米手机是近年来一个比较火热的手机品牌了,小米1s青春版是最新研发出来的一个高性能的手机系列,主机采用的是1。5G双核处理器,它相较于单核处理器,运行速度要快将近一倍,另外,小米1
小米1S青春版电池怎么样小米1S青春版采用的是1930毫安的锂离子聚合物电池,日常使用可以足够坚持一天的。前置摄像头的加入仍是小米手机1S最显眼的标志。200万像素前置摄像头。背照式摄像头f2。2大光圈3
小米1S青春版拍照怎么样800万像素f2。2大光圈,背照式CMOS摄像头,28mm超大广角。全新升级的小米手机摄像头,达到几乎与小米手机2一样的拍照性能,内涵五组镜片,配合红外滤光片,画质更加清晰精彩。前
小米1S青春版续航能力怎么样小米1S青春版采用的是1930毫安的锂离子聚合物电池,日常使用可以足够坚持一天的。前置摄像头的加入仍是小米手机1S最显眼的标志。200万像素前置摄像头。背照式摄像头f2。2大光圈3
小米1S青春版待机时间怎么样小米1S青春版采用的是1930毫安的锂离子聚合物电池,日常使用可以足够坚持一天的。前置摄像头的加入仍是小米手机1S最显眼的标志。200万像素前置摄像头。背照式摄像头f2。2大光圈3
小米1S青春版屏幕尺寸是多少小米1S青春版屏幕尺寸是4。0英寸。前置摄像头的加入仍是小米手机1S最显眼的标志。200万像素前置摄像头。背照式摄像头f2。2大光圈30mm广角。小米手机1S在配置方面的提升主要表
小米1S青春版内存是多少小米1S青春版内存是4GB。前置摄像头的加入仍是小米手机1S最显眼的标志。200万像素前置摄像头。背照式摄像头f2。2大光圈30mm广角。小米手机1S在配置方面的提升主要表现在三个