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”-“运行”,然后执行就可以了。处理较长代码时需要一定时间,请耐心等待。
注意事项:处理前一定要对原文章进行备份,以免前功尽弃。处理较长代码时需要一定时间,请耐心等待。
怎样在word中高亮显示java代码
一、首先用notepad++打开源代码文件。notepad++能识别C/C++、Java、matlab等多种语言的源代码。选中要粘贴的代码(如果该代码文件中的所有内容均需要粘贴,则无需选中文字)。然后在选择 插件->NppExport->Copy HTML to clipboard(版本原因 也有可能是plugin commands->copyXXXXXXX)。
二、然后在word中粘贴即可。
此外,关键字的颜色也可以根据自己的需求在notepad++中进行设置,设置方法:菜单->格式->语言格式设置
亲测,可用!!!!!
如何在word中使代码高亮
步骤一:首先完成当前所有内容,建议把代码放入单独的文本框中,方便处理
步骤二:当前文档新定义一个样式,命名为"code",专门用来对代码进行格式化。由于是代码,所以推荐中文使用黑体(注释等),而英文使用等宽字体(courier new)。步骤如图。
步骤三:选中代码,单击样式库 ccode,将代码应用该样式
步骤四:新建宏,步骤如图
步骤五:将VBA代码(在下一步中)拷贝进去,保存后关闭 。
如何在word中实现“代码段”效果,不是高亮
工具:word2010 通过工具栏的荧光笔可以设置代码高亮。 步骤1:打开word文档 步骤2:如要高亮函数名test,则选中test,点击【荧光笔】。 步骤3:效果如下
如何实现word或是wps里面的代码高亮
写实验报告,或是在写一个关于一些含有代码的文档的时候,我们常常会需要在里面
加一些代码,但是黑白的代码难免影响代码的美观和形式。这里给出一些实现高亮代码到
三种方法。
方法一:
第一种方法是直接给wps安装插件,从而实现高亮代码显示,在WPS官网下载语法高亮插件。
http://www.wps.cn/addons/ThreadView/wdid-6538.htm
方法二:
第二种方法是借助Notepad++
首先是下载Notepad++,这是下载地址,当然也可以百度一下Notepad++下载安装。
http://notepad-plus.sourceforge.net/tw/site.htm
安装完成后把需要的代码复制到Notepad++里面,当然首先可以设置一下代码的类别
在语言栏里面设置:
在Notepad++上,选择“插件——NppExport——Copy RTF to clipboard”标签,复制该代码
然后到wps里面选择性张贴的时候选择RFT格式粘贴就好。
方法三:
第三种方法是针对Eclipse编译器来说的,如果使用的是Eclipse编辑Java代码,有时候直接拷贝代
码就可以实现代码的高亮,但是有时候不能实现高亮就需要设置一下
设置方法如下:
打开windows里面的prefrences。输入floding搜索,打开java->Edotor->floding。进行如下操作
OK,复制过去就是高亮的代码。
请问一下在Word中怎样插入C语言这样格式的代码 如下图片:
CoolFormat可以满足你的要求。
软件作者博客,内有下载地址:
http://blog.csdn.net/akof1314/article/details/5355948
使用方法:粘贴代码到CoolFormat,设置代码语言,高级选项卡中可以设置高亮颜色风格,点击高亮到博客查看高亮后的代码,全选,复制,粘贴到Word中即可。
怎样在word中设置高亮显示
如果只是要一个词高亮的话,在工具栏字体颜色中选择其他颜色即可,要文章中同一个词都高亮的话按ctrl+F键,填入查找单词,勾选突出显示所有在该范围查找的项目,查找全部即可,最后设置不同的字体颜色就可以了。
转载请注明出处51数据库 » word中插入高亮代码 Word中怎么设置代码高亮