Determining whether Endnotes pane is open

[Larry]

I know this has got to be simple, but I'm not finding it. How do I
return whether the cursor is located in an open pane displaying the
endnotes?

Thanks,
Larry

 

[Larry]

This works, but is crude. Can any one point to a better way?

Dim r As Range
Set r = ActiveDocument.StoryRanges(wdEndnotesStory)

If Selection.Start > r.Start And Selection.End < r.End Then _
MsgBox "cursor is in range."

Larry

 

[Jean-Guy Marcil]

Hi Larry,

Try this:

'_______________________________________
If Selection.Information(wdInEndnote) Then
MsgBox "The cursor is in the end note pane!"
Else
MsgBox "The cursor is NOT in the end note pane!"
End If
'_______________________________________

--
Cheers!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org

 

[Larry]

Très bien! Merci beaucoup.

I never saw that (wdInEndnote) before.

Larry