Excel教程下载和软件下载中心,Microsoft技术社区联盟成员,全球极具影响力的Excel门户,Office技术培训社区
广东快乐十分实时开奖

用Word VBA排版,你试过吗?

2018-06-23  作者:ExcelHome  阅读:次

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.x5was.cn/lesson/animation/Word/1909.html
分享到:
Copyright 1999 - 2017 Excel Home.All Rights Reserved.
本站特聘法律顾问:徐怀玉律师 李志群律师   沪ICP备11019229号

广东快乐十分实时开奖 www.x5was.cn 沪公网安备 31011702000001号

征信        广东快乐十分实时开奖
  • 外媒房价上涨 英国工人买不起英格兰的普通住房 2019-04-17
  • 确认过眼神 这才是我的夏日护发妙招 2019-04-17
  • 与蓝有关的10部电影,你都看过哪一部? 2019-04-15
  • 广东金林村:农民爱写诗 2019-04-13
  • Insta360为iPhone推出4K功能的Nano S相机 2019-04-13
  • 合成作战,营连长“无差别”竞技练指挥 2019-04-12
  • 山东五十万大学生浸润传统文化课堂 2019-04-12
  • 报考人员如何上传照片? 2019-04-11
  • 铲屎官的福音!狗狗洗澡神器,有它再也不用去宠物店了? 2019-04-11
  • 坐观光巴士 小小代言人带你游广州 2019-04-06
  • 你遇到了吗用户吐槽升iOS 11.4后耗电过快用户吐槽升iOS11后耗电过快-行情资讯 2019-04-06
  • 成都与诗文中的“西楼” 2019-04-03
  • 司机下班闻呼救 跳河勇救落水女(图) 2019-04-01
  • 上海合作组织秘书长阿利莫夫:“上海精神”凝聚欧亚八国 2019-04-01
  • 世界杯期间交管部门将加强路检路查--旅游频道 2019-03-26
  • 178| 758| 882| 114| 921| 125| 976| 153| 18| 861|