文档章节

word中代码高亮加行号

rockygoats
 rockygoats
发布于 2016/10/17 00:08
字数 457
阅读 101
收藏 0

word中代码高亮加行号

在IDE,网页中代码都是精心排版的,美观漂亮。但是我们在自己的文档中记录笔记写书籍的时候,word文档中的代码却不尽人意,所以通过查找资料,发现有大神已经早就解决好了word中代码排版的问题

如下图的样式 那么如何来实现word中的代码高亮加行号,这就是利用word复制粘贴富文本的功能实现代码高亮和VB宏编程来加行号。

  • 第一步:安装notepad,将代码复制粘贴到notepad中,调整文本中的代码语言,使其格式化。
  • 第二步:利用notepad中的插件复制富文本
  • 第三步:word中插入2列一行表格,创建宏。宏代码如下
Sub 设置代码表格()
' author: code4101
' 设置代码表格 宏
'
'
 ' 背景色为morning的配色方案,RGB为(229,229,229)
 With Selection.Tables(1)
 With .Shading
 .Texture = wdTextureNone
 .ForegroundPatternColor = wdColorAutomatic
 .BackgroundPatternColor = 16514043
 End With
 .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
 .Borders(wdBorderRight).LineStyle = wdLineStyleNone
 .Borders(wdBorderTop).LineStyle = wdLineStyleNone
 .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
 .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
 .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
 .Borders.Shadow = False
 End With
 With Options
 .DefaultBorderLineStyle = wdLineStyleSingle
 .DefaultBorderLineWidth = wdLineWidth050pt
 .DefaultBorderColor = wdColorAutomatic
 End With
 ' 段落无首行缩进,行间距为固定值12磅
 With Selection.ParagraphFormat
 .LeftIndent = CentimetersToPoints(0)
 .RightIndent = CentimetersToPoints(0)
 .SpaceBefore = 0
 .SpaceBeforeAuto = False
 .SpaceAfter = 0
 .SpaceAfterAuto = False
 .LineSpacingRule = wdLineSpaceExactly
 .LineSpacing = 12
 .KeepWithNext = False
 .KeepTogether = False
 .PageBreakBefore = False
 .NoLineNumber = False
 .Hyphenation = True
 .FirstLineIndent = CentimetersToPoints(0)
 .OutlineLevel = wdOutlineLevelBodyText
 .CharacterUnitLeftIndent = 0
 .CharacterUnitRightIndent = 0
 .CharacterUnitFirstLineIndent = 0
 .LineUnitBefore = 0
 .LineUnitAfter = 0
 .MirrorIndents = False
 .TextboxTightWrap = wdTightNone
 .AutoAdjustRightIndent = True
 .DisableLineHeightGrid = False
 .FarEastLineBreakControl = True
 .WordWrap = True
 .HangingPunctuation = True
 .HalfWidthPunctuationOnTopOfLine = False
 .AddSpaceBetweenFarEastAndAlpha = True
 .AddSpaceBetweenFarEastAndDigit = True
 .BaseLineAlignment = wdBaselineAlignAuto
 End With
 ' 清除原有的段落底纹
 Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorAutomatic
End Sub
Sub 输入连续数字()
' author: code4101
 行数 = InputBox("请输入代码终止行数", "输入行数", "50")
 For i = 1 To 行数 - 1
 Selection.TypeText Text:=i
 Selection.TypeParagraph
 Next
 Selection.TypeText Text:=行数
End Sub
  • 第四步:执行宏,格式化表格和加行号。

© 著作权归作者所有

上一篇: 时间四 象限
下一篇: 时间四 象限
rockygoats
粉丝 0
博文 2
码字总数 1994
作品 0
私信 提问
在Word2007中加入带行号和高亮显示的代码段

我们在编写Word文档时,希望也能有CSDN博客中的代码插件的效果,可以插入带有行号和高亮显示的代码,然而这却不太容易做到。要做到这一点,有两种方式,一种是借助Notepad++,将内容导出为H...

yt7589
2017/03/15
0
0
2018-1-4 Linux学习笔记

5.5 进入编辑模式 一般模式,按下键(i,I,a,A,o,O)即可进入编辑模式i-->在当前字符前插入I-->在光标所在行的行首插入a-->在当前字符后插入A-->在光标所在行的行尾插入o-->在当前行的下一行插入...

XiaoluHuang
2018/01/04
0
0
我的网站搭建 (第十天) Ueditor编辑器

之前说过,我的网站编辑器一开始是tinymce,然后才用的ckeditor。可是最近我发现,ckeditor的小图标不是很美观,看久了有点low的样子。我是不是应该换一个编辑器呢,一想到这里,马上打开谷歌...

代码打碟手
2018/08/28
0
0
OneNote 代码高亮方法总结

前言 微软的 OneNote 是一个跟强大的笔记工具,但是其本身并不支持代码高亮,这让我们在记录代码时很不方便。还好我们可以通过 OneNote 插件和一些方法实现代码高亮。 本篇就总结下 OneNote ...

己立
2018/01/22
0
0
4周第3次课 vim 进入编辑模式 命令模式

进入编辑模式 即进入可以对文档进行编辑的模式 vim命令模式 vim实践 多找场景进行练习

须及春
2017/11/13
0
0

没有更多内容

加载失败,请刷新页面

加载更多

group by分组后获得每组中时间最大的那条记录

用途: GROUP BY 语句用于 对一个或多个列对结果集进行分组。 例子: 原表: 现在,我们希望根据USER_ID 字段进行分组,那么,可使用 GROUP BY 语句。 我们使用下列 SQL 语句: SELECT ID,US...

豆花饭烧土豆
55分钟前
2
0
android6.0源码分析之Camera API2.0下的Preview(预览)流程分析

本文将基于android6.0的源码,对Camera API2.0下Camera的preview的流程进行分析。在文章android6.0源码分析之Camera API2.0下的初始化流程分析中,已经对Camera2内置应用的Open即初始化流程进...

天王盖地虎626
今天
4
0
java 序列化和反序列化

1. 概述 序列恢复为Java对象的过程。 对象的序列化主要有两 首先我们介绍下序列化和反序列化的概念: 序列化:把Java对象转换为字节序列的过程。 反序列化:把字节序列恢复为Java对象的过程。...

edison_kwok
今天
2
0
分布式数据一致性

狼王黄师傅
今天
2
0
经验

相信每位开发者在自己开发的过程中,都会反思一些问题,比如怎样提高编程能力、如何保持心态不砍产品经理、996 之后怎样恢复精力……最近开发者 Tomasz Łakomy 将他 7 年的开发生涯中学习到...

WinkJie
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部