word vba段落间距28磅

您可以使用以下 VBA 代码将 Word 段落间距设置为 28 磅：

Sub SetParagraphSpacing()
    ActiveDocument.Paragraphs.SpaceAfter = 28
End Sub

您可以将此代码复制粘贴到 Word 的 VBA 编辑器中（按下 Alt + F11 打开），然后运行该代码即可。请注意，此代码将更改整个文档中所有段落的间距。如果您只想更改特定部分的间距，请在代码中添加相应的条件语句。

相关问题

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调用自带段落设置功能

在 Word VBA 中，可以通过以下代码调用自带的段落设置功能：

' 设置段落格式
With Selection.ParagraphFormat
    .LeftIndent = CentimetersToPoints(1) ' 左缩进1厘米
    .RightIndent = CentimetersToPoints(1) ' 右缩进1厘米
    .LineSpacingRule = wdLineSpaceSingle ' 行间距为1行
    .SpaceBefore = 0 ' 段前间距为0
    .SpaceAfter = 0 ' 段后间距为0
End With

其中，`Selection.ParagraphFormat` 用于获取当前所选文本的段落格式对象，通过设置该对象的属性来设置段落格式。在上面的示例中，设置了左缩进、右缩进、行间距、段前间距和段后间距。可以根据需要调整这些属性的值。