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