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，以便下次再次运行时可以重新设置。

相关问题

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`，然后在第二次操作中应用相同的段落格式。这样可以确保所有之前的格式都被清除，从而使段落格式设置能够正确应用。

word vba段落间距28磅

您可以使用以下 VBA 代码将 Word 段落间距设置为 28 磅：

Sub SetParagraphSpacing()
    ActiveDocument.Paragraphs.SpaceAfter = 28
End Sub

您可以将此代码复制粘贴到 Word 的 VBA 编辑器中（按下 Alt + F11 打开），然后运行该代码即可。请注意，此代码将更改整个文档中所有段落的间距。如果您只想更改特定部分的间距，请在代码中添加相应的条件语句。