word中插入高亮代码 Word中怎么设置代码高亮

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中怎么设置代码高亮