我试图在文档中找到一些仅以“标题 1”样式出现的文本。到目前为止,没有任何效果。
示例代码:
With ThisDocument.Range.Find
.Text = "The Heading"
.Style = "Heading 1" 'Does not work
.Execute
If .Found Then Debug.Print "Found"
End With
请注意,它一直停在目录处。
编辑:修复了拼写错误的“if”语句
你的代码对我来说看起来不错。我最好的猜测是您的目录中存在“标题 1”样式?
下面的代码应该继续查找,查找所有出现的情况:
Dim blnFound As Boolean
With ThisDocument.Range.Find
.Text = "The Heading"
.Style = "Heading 1"
Do
blnFound = .Execute
If blnFound Then
Debug.Print "Found"
Else
Exit Do
End If
Loop
End With
我希望这有帮助。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)