公文标题排版（样式修改）

公文标题的排版，先设置一个样式，我选择将word内置的“标题”样式进行修改。代码如下：

Sub 标题一()'标题一：黑体 三号字With ActiveDocument.Styles("标题").Font.NameFarEast = "黑体"'西文字体.NameAscii = "Times New Roman".NameOther = "Times New Roman".Name = "Times New Roman".Size = 16End WithWith ActiveDocument.Styles("标题").ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).LineSpacingRule = wdLineSpaceExactly.LineSpacing = 28.8.CharacterUnitFirstLineIndent = 2.CharacterUnitRightIndent = 0.AutoAdjustRightIndent = True.Alignment = wdAlignParagraphLeft '左对齐'段前短后0磅.SpaceBefore = 0.SpaceBeforeAuto = False.SpaceAfter = 0.SpaceAfterAuto = FalseEnd WithActiveDocument.Styles("标题").NoSpaceBetweenParagraphsOfSameStyle = FalseWith ActiveDocument.Styles("标题").AutomaticallyUpdate = False.BaseStyle = "正文".NextParagraphStyle = "标题"End With
End SubSub 标题二()'标题二：楷体三号字With ActiveDocument.Styles("标题").Font.NameFarEast = "楷体".NameAscii = "Times New Roman".NameOther = "Times New Roman".Name = "Times New Roman".Size = 16End WithWith ActiveDocument.Styles("标题").ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).LineSpacingRule = wdLineSpaceExactly.LineSpacing = 28.8.CharacterUnitFirstLineIndent = 2.CharacterUnitRightIndent = 0.AutoAdjustRightIndent = True.Alignment = wdAlignParagraphLeft '左对齐'段前短后0磅.SpaceBefore = 0.SpaceBeforeAuto = False.SpaceAfter = 0.SpaceAfterAuto = FalseEnd WithActiveDocument.Styles("标题").NoSpaceBetweenParagraphsOfSameStyle = FalseWith ActiveDocument.Styles("标题").AutomaticallyUpdate = False.BaseStyle = "正文".NextParagraphStyle = "标题"End WithEnd Sub
Sub 标题三()'标题三：仿宋三号With ActiveDocument.Styles("标题").Font.NameFarEast = "仿宋_GB2312".NameAscii = "Times New Roman".NameOther = "Times New Roman".Name = "Times New Roman".Size = 16End WithWith ActiveDocument.Styles("标题").ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).LineSpacingRule = wdLineSpaceExactly.LineSpacing = 28.8.CharacterUnitFirstLineIndent = 2.CharacterUnitRightIndent = 0.AutoAdjustRightIndent = True.Alignment = wdAlignParagraphLeft '左对齐'段前短后0磅.SpaceBefore = 0.SpaceBeforeAuto = False.SpaceAfter = 0.SpaceAfterAuto = FalseEnd WithActiveDocument.Styles("标题").NoSpaceBetweenParagraphsOfSameStyle = FalseWith ActiveDocument.Styles("标题").AutomaticallyUpdate = False.BaseStyle = "正文".NextParagraphStyle = "标题"End With
End Sub

公文标题排版（样式修改）相关推荐

用html+javascript打造公文一键排版系统3：获取参数设置、公文标题排版
我们用自定义函数setDocFmt()来实现对公文的排版. 一.获取公文参数值要对公文进行排版,首先要读取公文"参数设置"区中的参数值.比如公文要求对公文标题的一般规定是:一般用 ...
【Android 应用开发】 ActionBar 样式详解 -- 样式主题简介 Actionbar 的 icon logo 标题菜单样式修改
作者 : 万境绝尘 (octopus_truth@163.com) 转载请著名出处 : http://blog.csdn.net/shulianghan/article/details/3926916 ...
用html+javascript打造公文一键排版系统5：二级标题排版
公文中二级标题的一般以(X)标注(其中X为由"一二三四五六七八九十"中的字符组成的字符串),用楷体字加粗. 首先我们要判断一段文字是否包含二级标题,最简单的方法就是判断文字中的头 ...
用html+javascript打造公文一键排版系统6：三级标题排版
正文中的标题分为四级,文中结构层次序数依次可以用"一.""(一)""1.""(1)"标注:一般第一层用黑体字.第二层用楷 ...
RadioButton的排版，图标样式修改和图标文字间距修改
RadioButton排版 1.使用RadioGroup排版 RadioGroup本身只支持横向或者纵向排版,不支持多行 public class RadioGroup extends LinearL ...
13 ，CSS 入门基础,行内排版内嵌式排版和外部排版样式
1.认识 CSS 2.传统 HTML 设计网页版面的缺点 3.CSS 的特点 4.CSS 的排版样式 13.1 认识CSS CSS的英文全名是 Cascading Style Sheets,中文可翻译 ...
layui表头样式_layui中table表头样式修改方法
如下所示: layui.use('table', function () { var table = layui.table; table.render({ elem: '#desTable' , u ...
标题排版字幕动画fcpx模板：Typography Titles for Mac
Typography Titles是一套包含12种不同文字标题排版动画效果的字幕插件集.您可以自定义修改文字,支持中文和英文输入,可调整字体,位置,大小,颜色等属性,帮助您创建任何项目类型的视频开场! ...
legend位置 pyecharts_Echarts 饼图图例修改，legend样式修改
1. 效果如图,应用了echarts官网的饼图例子作说明 image.png 2. 配置如下 var data=[ { value: 335, name: '直接访问' }, { value: 310 ...
html改变微信标题栏颜色,带你了解微信在线编辑器的颜色样式修改
原标题:带你了解微信在线编辑器的颜色样式修改使用样式之前,通过点击调色栏内的颜色值,不同颜色样式下有不同的样式展现情况,可通过点击调色栏右侧"+"选更多颜色,以便于选出更匹配文章 ...

公文标题排版（样式修改）

公文标题排版（样式修改）相关推荐

最新文章

热门文章