Форум по VBA и MS Office

Как узнать, что Selection находится в виде мигающего курсора?

Sub Macro()

    If Selection.Type = wdSelectionIP Then
        MsgBox "Selection в виде мигающего курсора.", vbInformation
    Else
        MsgBox "Selection не в виде мигающего курсора.", vbInformation
    End If
   
End Sub

спасибо