Word中脚注的“不要在相同样式的段落之间添加空格”的VBA代码

如何解决Word中脚注的“不要在相同样式的段落之间添加空格”的VBA代码

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

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

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

解决方法

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

,

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