2024年2月8日发(作者：)

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