检查text属性是否设置为hidden

时间:2014-05-01 10:53:40

标签: vba word-vba

我正在寻找一种方法来检查在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

1 个答案:

答案 0 :(得分: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
相关问题