word vba段前段后间距1行

您可以使用以下代码在Word VBA中设置段落的段前段后间距为1行：

Sub SetParagraphSpacing()
    With ActiveDocument.Content.Paragraphs
        .SpaceBefore = LineUnitBefore:=1
        .SpaceAfter = LineUnitAfter:=1
    End With
End Sub

这将应用于活动文档中的所有段落。如果您只想应用于特定的段落，请更改 `ActiveDocument.Content.Paragraphs` 为您想要的段落范围。

相关问题

word vba段前段后间距12磅，间距33磅

可以使用以下代码来设置段前段后的间距：

Sub SetParagraphSpacing()
    Dim para As Paragraph
    
    ' 设置段前12磅，段后33磅
    For Each para In ActiveDocument.Paragraphs
        para.SpaceBefore = 12
        para.SpaceAfter = 33
    Next para
End Sub

这段VBA代码使用了一个For Each循环遍历文档中的所有段落，并将它们的段前和段后间距分别设置为12磅和33磅。如果需要设置其他数值，只需修改相应的数值即可。

word vba段前段后2行

以下是在Word VBA中实现段前段后2行的示例代码：

Sub AddSpacing()
    Selection.ParagraphFormat.SpaceBefore = 12
    Selection.ParagraphFormat.SpaceAfter = 12
End Sub

将上述代码添加到VBA编辑器中，然后在文档中选择要应用样式的段落，运行这个宏即可。这将在选定的段落之前和之后增加12个点的行间距。你可以根据需要更改行间距大小。