☰

使用 VBA 在 Word 中查找非空段落

tag-icon • tag-icon microsoft-word vba vbscript
使用 VBA 在 Word 中查找非空段落

我正在用 VBScript 编写一个脚本，该脚本扫描 2000 个 Word 文件集合并查找那些包含至少一个使用不需要的样式的段落的文件。因此，我的脚本的核心是：

Set objDoc = objWord.Documents.Open(objFile.Path)

With objDoc.Range.Find
.Style = objDoc.Styles("Unwanted")

SearchSuccessful = .Execute

If SearchSuccessful Then
    foundStyle = True
End If
End With

现在，我的问题是我只对非空段落感兴趣。有没有办法使用 Find 属性来搜索非空段落？还是我需要循环并测试找到的段落长度？

谢谢！

相关内容