Word vba单倍行距

你可以使用以下代码将Word文档中的行距设置为单倍行距：

Sub SingleSpacing()
    With ActiveDocument.Content.ParagraphFormat
        .LineSpacingRule = wdLineSpaceSingle
        .SpaceBefore = 0
        .SpaceAfter = 0
    End With
End Sub

将代码复制到Word VBA编辑器中，然后执行该代码即可将文档中的行距设置为单倍行距。

相关问题

word VBA 窗体标签行距

您可以使用以下代码更改Word VBA窗体中标签的行距：

UserForm1.Controls("Label1").Height = 25 '设置标签高度
UserForm1.Controls("Label1").Top = 10 '设置标签顶部位置
UserForm1.Controls("Label1").Font.Size = 12 '设置标签字体大小
UserForm1.Controls("Label1").Font.Name = "Calibri" '设置标签字体
UserForm1.Controls("Label1").Caption = "这是一个标签" '设置标签文本
UserForm1.Controls("Label1").AutoSize = True '自适应文本大小
UserForm1.Controls("Label1").WordWrap = True '自动换行
UserForm1.Controls("Label1").BorderStyle = fmBorderStyleSingle '设置标签边框样式
UserForm1.Controls("Label1").BackColor = vbYellow '设置标签背景颜色
UserForm1.Controls("Label1").ForeColor = vbRed '设置标签前景颜色
UserForm1.Controls("Label1").SpecialEffect = fmSpecialEffectRaised '设置标签特殊效果
UserForm1.Controls("Label1").Font.Bold = True '设置标签加粗
UserForm1.Controls("Label1").Font.Italic = True '设置标签斜体
UserForm1.Controls("Label1").Font.Underline = True '设置标签下划线

您可以根据需要更改这些属性来调整标签的外观和行距。

Word vba行距设置

要设置Word VBA中的行距，请使用以下代码：

Sub SetLineSpacing()
    '设置行距为1.5倍
    With ActiveDocument.Styles("Normal").ParagraphFormat
        .LineSpacingRule = wdLineSpace1pt5
        .SpaceBefore = 0
        .SpaceAfter = 0
    End With
End Sub

在这个例子中，我们将"Normal"样式的行距设置为1.5倍。如果你想设置不同的样式的行距，只需将"Normal"替换为你想要设置的样式名称即可。

你也可以调整行距规则，例如设置为"wdLineSpaceAtLeast"或"wdLineSpaceExactly"，这取决于你的需求。