Question

我正在寻找一种方法来检查在Word文档中是否将任何文本的Text属性设置为隐藏。

我正在使用以下代码，但我认为我没有以正确的方式进行。

Sub ToggleShowHiddenText()
    If ActiveWindow.View.ShowHiddenText = True Then
        MsgBox "Yes Text is hidden"
    End If
    If ActiveWindow.View.ShowHiddenText = False Then
        MsgBox "Text is not hidden"
    End If
End Sub

Answer 1

我找到了解决方案，感谢@me如何。

我在Active Document中逐字逐句，然后如果Font.Properties设置为Hidden，则显示一个Message Box。

以下是代码：

Sub ToggleShowHiddenText()


For Each sentence In ActiveDocument.StoryRanges

    For Each w In sentence.Words

       If w.Font.Hidden = True Then
        MsgBox w

        End If

    Next

Next

End Sub

检查text属性是否设置为hidden

1 个答案: