使用VBA从标头中删除粗体

时间:2017-01-12 16:03:27

标签: vba ms-word word-vba

我想从标题中删除粗体,并且我可以使用以下代码为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时,所有内容都以粗体显示。

1 个答案:

答案 0 :(得分:1)

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

Style