??斗地主捕鱼电竞提现秒到 广告位招租 - 15元/月全站展示
??支付宝搜索579087183领大额红包 ??伍彩集团官网直营彩票
??好待遇→招代理 ??伍彩集团官网直营彩票
??络茄网 广告位招租 - 15元/月全站展示
用Word VBA排版,你试过吗?

转载   ExcelHome   2018-06-23   浏览量:231



Excel VBA 为大家所熟知,在数据处理方面其强大之处不再述说。今天为大伙带来一小段Word VBA ,主要是用于VBA 在Word文档中的排版使用。对于经常排版文书的同志们可以了解下,希望能让你的Word排版效率提高那么“一点点”。

单步运行效果如下:



代码如下:

Option Explicit '强制

'Word VBA 常用语句(在Word VBE中运行)

SubWordVbaCode()

'声明Sel 为Selection

DimSel AsWord.Selection

Set Sel = Selection '实例化Sel

Sel.WholeStory '全选文档内容

Sel.ClearFormatting '清除所选文本格式

Sel.Collapse 1 '取消选择,光标移至段头位置

'【常用字体的设置】

Sel.Expand 5 '光标点扩选当前行

Sel.Font.Size = 16 '设置3号字体

Sel.Font.ColorIndex =wdBlue '设置蓝色字体

Sel.Font.Name = "楷体" '设置楷体字

Sel.Font.Bold = True'加粗

Sel.Font.Bold = False'取消加粗

Sel.Font.Italic = True'倾斜

Sel.Font.Italic = False'取消倾斜

Sel.Font.ColorIndex =wdBlack '设置黑色字体

Sel.Collapse 0 '取消选择,光标至段尾

'【常用段落的排版设置】

'声明ParFor为ParagraphFormat

DimParFor AsParagraphFormat

'实例化ParFor

Set ParFor = Sel.ParagraphFormat

Sel.Expand 4 '扩选当前段

ParFor.Alignment = 0 '段落居左

ParFor.Alignment = 1 '段落居中

ParFor.Alignment = 2 '段落居右

ParFor.Alignment = 3 '两端对齐

ParFor.CharacterUnitFirstLineIndent = 2 '首行缩进

ParFor.CharacterUnitFirstLineIndent = -2 '悬挂缩进

ParFor.CharacterUnitLeftIndent = 2 '段落左缩进

ParFor.CharacterUnitRightIndent = 2 '段落右缩进

ParFor.LineUnitBefore = 1 '段后1行

ParFor.LineUnitAfter = 1 '段前1行

ParFor.LineSpacingRule = 4'行距自定义

ParFor.LineSpacing = 24 '自定义行距

Sel.Collapse 0 '取消选择

'恢复正常排版

Sel.WholeStory

Sel.ClearFormatting

Sel.Font.Size = 16

Sel.Font.Name = "仿宋"

ParFor.CharacterUnitFirstLineIndent = 2

Sel.Collapse 1

End Sub
 

转载请注明来源"ExcelHome"并保留原文链接。
固定链接://www.excelhome.net/lesson/animation/Word/1909.html

彩票开奖查询 www.kbyp.net

转载自://www.excelhome.net/lesson/animation/Word/1909.html

招聘 不方便扫码就复制添加关注:程序员招聘谷,微信号:jobs1024


上一篇:
没有了

poi 导出word,导出图片解决方法
    /** * 写入图片 * @param document * @param picName * @param width * @param height * @para
word常用技巧
问题:1、wps或者word,需要在方框中输入√,或者×的方法方法:插入-符号,在对话框中,字体选择“Wingdings2”,然后拖动滚动条到最下方就看到了要插入的图了
word press 概要
wordpress要安装EasyWPSMTP插件 并填写Smtp代理邮箱,才能让服务器发邮件安装wp-user-avatar用于对用户头像图片的配置,可运行用户自行上传图像JiaThis分享工具--插件,可以让文章分享到QQ 微博等
word怎么设计透明背景的淘宝主图? word商品图背景变透明的教程
word怎么设计透明背景的淘宝主图?word中想要让图片的背景变透明,该怎么设计透明背景效果的淘宝主图呢?下面我们就来看看word商品图背景变透明的教程,需要的朋友可以参考下
word怎怎么设计条形码? word设计条形码的教程
word怎怎么设计条形码?word中想要设计一款条形码,该怎么设计呢?下面我们就来看看word设计条形码的教程,很简单,需要的朋友可以参考下
word怎么换照片的底色?用Word把证件照底色换成蓝色教程
word更换照片底色是一项很实用的技能,那么,你知道word怎么换照片的底色吗?今天小编就给大家带来用Word把证件照底色换成蓝色教程,方法简单快捷,一学就会,感兴趣的朋友不妨一起去看看吧
为什么word 2007文件在不同电脑上排版显示不同?应该如何解决?
最近,很多网友问小编为什么word 2007文件在不同电脑上排版显示不同?应该如何解决? 一般出现这种情况是因为别人的电脑中没有文档所设定的字体格式,所以导致版面错乱,至于解决方法,小编也给大家整理了一下,需要的朋友一起去看看吧
word里面怎么添加附件? word附件的两种添加方法
word里面怎么添加附件?word文件中需要添加附件,该怎么添加呢?下面我们就来看看word附件的两种添加方法,很简单,需要的朋友可以参考下
word中工艺流程图怎么画?在word里绘制工艺流程图的方法介绍
word中工艺流程图怎么画?是很多office初学者都想知道的问题,今天小编就给大家介绍一下在word里绘制工艺流程图的方法步骤,希望对大家有所帮助