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，并最后选中该范围。