word vba段前段后为0，首行缩进为0，居中设置

你可以使用以下代码将段落的段前段后设置为0，首行缩进也设置为0，同时将文本居中：

Sub SetParagraphFormatAndAlignment()
    With ActiveDocument.Content.Paragraphs
        .SpaceBefore = 0
        .SpaceAfter = 0
        .FirstLineIndent = 0
        .Alignment = wdAlignParagraphCenter
    End With
End Sub

这段代码首先使用 `With` 语句将 `ActiveDocument.Content.Paragraphs` 对象赋值给一个对象变量，以便在后面的代码中可以直接使用点号（.）访问其属性。然后将段前段后和首行缩进都设置为0，并将文本居中。

需要注意的是，这段代码将会将整个文档的段落格式都设置为相同的格式，如果你只想设置某些部分的格式，可以在代码中使用 `Range` 对象，或者手动选中要设置格式的部分。

相关问题

word vba段前段后为0，首行缩进为0

你可以使用以下代码将段落的段前段后设置为0，首行缩进也设置为0：

Sub SetParagraphFormat()
    With ActiveDocument.Content.Paragraphs
        .SpaceBefore = 0
        .SpaceAfter = 0
        .FirstLineIndent = 0
    End With
End Sub

这段代码首先使用 `With` 语句将 `ActiveDocument.Content.Paragraphs` 对象赋值给一个对象变量，以便在后面的代码中可以直接使用点号（.）访问其属性。然后将段前段后和首行缩进都设置为0。

需要注意的是，这段代码将会将整个文档的段落格式都设置为相同的格式，如果你只想设置某些部分的格式，可以在代码中使用 `Range` 对象，或者手动选中要设置格式的部分。

word vba选中内容首行缩进为0

你可以使用以下代码将选中的文本段落的首行缩进设置为0：

Sub SetSelectedTextFirstLineIndentToZero()
    With Selection.ParagraphFormat
        .FirstLineIndent = 0
    End With
End Sub

这段代码首先使用 `With` 语句将 `Selection.ParagraphFormat` 对象赋值给一个对象变量，以便在后面的代码中可以直接使用点号（.）访问其属性。然后将选中的文本段落的首行缩进设置为0。

需要注意的是，如果当前没有选中任何文本，这段代码会报错，因此在运行前需要先选中要设置格式的文本。如果想要自动选中指定的文本，可以使用 `Range` 对象的 `SetRange` 方法来设置要选中的范围，例如：

Sub SetRangeFirstLineIndentToZero()
    Dim myRange As Range
    Set myRange = ActiveDocument.Range(Start:=10, End:=20) '将范围设置为文档的第10到20个字符
    myRange.ParagraphFormat.FirstLineIndent = 0 '将选中范围的段落首行缩进设置为0
    myRange.Select '选中范围
End Sub

这段代码首先使用 `ActiveDocument.Range` 方法将范围设置为文档的第10到20个字符，然后设置该范围的段落首行缩进为0，并最后选中该范围。