我想从标题中删除粗体,并且我可以使用以下代码为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
时,所有内容都以粗体显示。
答案 0 :(得分:1)
这可以在不使用SubReport0
方法的情况下工作,您可以直接与.Find
对象进行交互,如下所示:
Style