Word vba LineSpacingRule = wdLineSpaceSingle

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

代码示例：

Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle

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

相关问题

.LineSpacingRule = wdLineSpaceExactly

这不是一个问题，而是一个VBA代码行，用于设置Microsoft Word文档中指定段落的行间距规则为“固定值”。具体来说，该代码行将该段落的行间距规则属性(LineSpacingRule)设置为wdLineSpaceExactly，其中wdLineSpaceExactly是Microsoft Word VBA中的一个常量，表示“固定值”行间距规则。

Word vba段落设置必须运行2次

这可能是因为你的 VBA 代码中未完全应用段落格式设置。在 VBA 中设置段落格式需要在段落对象上执行两次操作。第一次操作将段落格式应用于段落，第二次操作清除段落中任何残留的格式。以下是一个示例代码，展示了如何正确设置段落格式：

Sub SetParagraphFormat()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        With para.Range
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            ' 第一次应用段落格式
            .ParagraphFormat.SpaceBefore = 6
            .ParagraphFormat.SpaceAfter = 6
            .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
            .ParagraphFormat.LineUnitBefore = 0
            .ParagraphFormat.LineUnitAfter = 0
            ' 第二次应用段落格式
            .SetRange .Start, .End
            .ParagraphFormat.SpaceBefore = 6
            .ParagraphFormat.SpaceAfter = 6
            .ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
            .ParagraphFormat.LineUnitBefore = 0
            .ParagraphFormat.LineUnitAfter = 0
        End With
    Next para
End Sub

在上面的代码中，我们首先使用 `With` 语句块将段落对象的范围设置为 `para.Range`，然后在第一次操作中应用段落格式。接下来，我们使用 `SetRange` 方法将范围重新设置为 `para.Range`，然后在第二次操作中应用相同的段落格式。这样可以确保所有之前的格式都被清除，从而使段落格式设置能够正确应用。