VBA 代码 "Don't add space between paragraphs of the same style" 用于 Word 中的脚注

Question

我对在文档中添加新脚注时默认选中的“不要在相同样式的段落之间添加 space”感兴趣。到目前为止我有这个代码：

Sub NoSpace()
    ActiveDocument.Styles("Footnote text") _
        .NoSpaceBetweenParagraphsOfSameStyle = True
End Sub

效果不错，但只有在添加脚注和运行代码之后。我对它作为默认工作感兴趣，即。当我打开文档并添加脚注时，我希望选中该框。我希望有人能帮我解决这个问题。

Answer 1

如果您希望将“不要在相同样式的段落之间添加 space”设置为默认设置，请确保您用于创建文档的模板具有脚注文本样式设置。 VBA 此不需要代码。

Answer 2

非常感谢你们！我在更改模板中的设置时工作。

VBA code for "Don't add space between paragraphs of the same style" for footnotes in Word