1.怎样在word中设置高亮显示
1、在电脑上用2007版word软件打开目标文件。
2、然后用鼠标选中需要高亮显示的文字,如图所示。
3、然后在上方快捷栏中,点击一下“以不同颜色突出演示文本”的快捷图标。颜色可以根据个人需要设置。
4、完成以上设置后,即可在word中设置高亮显示。
2.Word中怎么设置代码高亮
工具:word2010
通过工具栏的荧光笔可以设置代码高亮。
步骤1:打开word文档
步骤2:如要高亮函数名test,则选中test,点击【荧光笔】。
步骤3:效果如下
3.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脚本:“视图”-“宏”-="">
注意事项:处理前一定要对原文章进行备份,以免前功尽弃。处理较长代码时需要一定。
4.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脚本:“视图”-“宏”-="">
注意事项:处理前一定要对原文章进行备份,以免前功尽弃。处理较长代码时需要一定时间,请耐心等待。