Word vba LineSpacingRule = wdLineSpaceSingle

这段代码是用于设置 Word VBA 中的行间距为单倍行距。可以将其放在需要设置行间距的位置。

代码示例：

Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle

请注意，此代码中的 `Selection` 对象是 Word VBA 中的一个对象，它表示当前文档中选定的内容。如果需要设置整个文档的行间距，可以使用 `ActiveDocument.Content.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle`。

相关问题

Word vba单倍行距

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

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

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

Word vba段落设置运行2次

你可以使用一个计数器变量，使代码在第二次运行时跳过第一次设置。以下是一个示例代码：

Sub SetParagraph()
    Static counter As Integer
    If counter = 0 Then
        '设置段落样式
        Selection.Paragraphs.LeftIndent = CentimetersToPoints(1)
        Selection.Paragraphs.RightIndent = CentimetersToPoints(1)
        Selection.Paragraphs.LineSpacingRule = wdLineSpaceSingle
        counter = counter + 1
    Else
        counter = 0
    End If
End Sub

在第一次运行时，计数器变量 `counter` 会被设置为 1，代码会执行段落设置。在第二次运行时，计数器变量 `counter` 的值为 1，代码会跳过段落设置并将计数器重置为 0，以便下次再次运行时可以重新设置。