Word vba首行缩进设置

可以通过以下代码设置Word文档中段落的首行缩进：

Sub SetFirstLineIndent()
    ' 设置选定段落的首行缩进为1厘米
    Selection.ParagraphFormat.FirstLineIndent = CentimetersToPoints(1)
End Sub

如果要将整个文档中所有段落的首行缩进设置为1厘米，可以使用以下代码：

Sub SetFirstLineIndentForAllParagraphs()
    Dim i As Integer
    For i = 1 To ActiveDocument.Paragraphs.Count
        ActiveDocument.Paragraphs(i).Format.FirstLineIndent = CentimetersToPoints(1)
    Next i
End Sub

注意，这些代码只能在Word VBA中使用，不能在其他应用程序中使用。

相关问题

Word vba首行缩进设置0

你可以使用以下代码来设置Word文档中的首行缩进为0：

Sub SetFirstLineIndentToZero()
    With Selection.ParagraphFormat
        .LeftIndent = 0
        .FirstLineIndent = 0
    End With
End Sub

你可以将上述代码复制到Word的宏编辑器中，并将其保存为一个宏。然后，你可以在需要设置首行缩进为0的地方运行这个宏。你也可以将这个宏绑定到一个快捷键或者自定义按钮上，以便更方便地使用。

Word vba首行缩进设置运行2次

这个问题可能是因为在第一次运行时没有完全设置首行缩进，需要再次运行才能生效。你可以尝试以下代码来设置首行缩进并运行两次：

Sub SetIndentation()
    With ActiveDocument.Range.Paragraphs.TabStops
        .ClearAll
        .Add Position:=Application.InchesToPoints(0.5), _
             Alignment:=wdAlignTabLeft, _
             Leader:=wdTabLeaderSpaces
    End With
    With ActiveDocument.Range.Paragraphs
        .IndentFirstLineCharWidth 1
    End With
    ' 运行两次以确保设置生效
    ActiveDocument.Undo
    ActiveDocument.Undo
End Sub

这段代码会将首行缩进设置为一个字符宽度，并且添加一个左对齐的制表符。然后，它会运行两次 `Undo` 命令来撤销前两个操作，这样就可以确保设置生效了。