使用VBA从标头中删除粗体

Question

我想从标题中删除粗体，并且我可以使用以下代码为Heading 1执行此操作：

With ActiveDocument.Content.Find
    .Format = True
    .Style = "Heading 1"
    .Execute
    .Parent.Bold = False
End With

然而，这似乎不适用于其他级别的标题。要删除Heading 4，请尝试：

With ActiveDocument.Content.Find
    .Format = True
    .Style = "Heading 4"
    .Execute
    .Parent.Bold = False
End With

但它没有做任何事情。当我使用高级Heading 4手动搜索style = ctrl-f时，所有内容都以粗体显示。

Answer 1

这可以在不使用SubReport0方法的情况下工作，您可以直接与.Find对象进行交互，如下所示：

Style