admin 管理员组文章数量: 1086019
2024年3月14日发(作者：网页设计与web前端开发案例教程)
Word VBA 排版常用语句
SubWordVbaCode()
'声明Sel 为Selection
DimSel ion
Set Sel = Selection '实例化Sel
tory '全选文档内容
ormatting '清除所选文本格式
se 1 '取消选择，光标移至段头位置
'【常用字体的设置】
5 '光标点扩选当前行
= 16 '设置3号字体
ndex = wdBlue '设置蓝色字体
= "楷体" '设置楷体字
= True '加粗
= False '取消加粗
= True '倾斜
= False '取消倾斜
ndex = wdBlack '设置黑色字体
se 0 '取消选择，光标至段尾
'【常用段落的排版设置】
'声明ParFor为ParagraphFormat
DimParFor AsParagraphFormat
'实例化ParFor
Set ParFor = aphFormat
4 '扩选当前段
ent = 0 '段落居左
ent = 1 '段落居中
ent = 2 '段落居右
ent = 3 '两端对齐
terUnitFirstLineIndent = 2 '首行缩进
terUnitFirstLineIndent = -2 '悬挂缩进
terUnitLeftIndent = 2 '段落左缩进
terUnitRightIndent = 2 '段落右缩进
itBefore = 1 '段后1行
itAfter = 1 '段前1行
acingRule = 4 '行距自定义
acing = 24 '自定义行距
se 0 '取消选择
'恢复正常排版
tory
ormatting
= 16
= "仿宋"
terUnitFirstLineIndent = 2
se 1
End Sub
Sub 删除不可见字符()
With
.Execute "[!一-龥，！？；：。、^11^13]", , , 1, , , , , , "", 2
End With
End Sub
VBA操作WORD（一）：设置段落的行间距（行距）
在vba中可以用Paragraph对象或者ParagraphFormat对象设置各种段落间距。
一、设置段落的行间距（行距）
要设置段落的行间距（行距）可以使用LineSpacingRule属性和LineSpacing属性两
者结合。
如下的vba代码分别演示了如何设置某个段落的行间距为1.5倍行距、单倍行距、多
倍行距、固定行距、最小行距：
这里要特别注意的是，单倍行距就相当于原来的字体是什么高度，就是什么高度，没
有增加额外的行间距。
Sub 设置段落的行间距() Dim oDoc As Document Set oDoc =
Document Dim oP As Paragraph Set oP = aphs(1) With oP
'行间距设置为1.5倍 .LineSpacingRule = wdLineSpace1pt5 '行间距设置为单
倍 .LineSpacingRule = wdLineSpaceSingle '行间距设置为双倍 .LineSpacingRule =
wdLineSpaceDouble '行间距设置最小值 .LineSpacingRule = wdLineSpaceAtLeast '
设置最小行距为48磅,1 line=12磅 .LineSpacing = oPoints(4)
'行间距设置为多倍 .LineSpacingRule = wdLineSpaceMultiple '设置行距为6
行 .LineSpacing = oPoints(6) '行间距设置为固定
值 .LineSpacingRule = wdLineSpaceExactly '设置行距为固定值60磅 .LineSpacing =
oPoints(5) End With End Sub
二、设置段前、段后的间距
要设置段落前或段落后的行距，可以使用SpaceBefore和SpaceAfter属性，还可以
通过设置SpaceBeforeAuto 和SpaceAfterAuto 属性把段前和段后的间距设置为自动设
置。
Sub 设置段前、段后的间距() Dim oDoc As Document Set oDoc =
Document Dim oP As Paragraph Set oP = aphs(1) With oP
'段落后面空5行 .SpaceAfter = oPoints(5) '段落前面空5
行 .SpaceBefore = oPoints(5) End With End Sub
版权声明：本文标题：Word VBA排版常用代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1710355430a569285.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论