Return Word wdDialogEditFind options

[OptionBase1]

For the record, I'm using an older version of Word than you, since I have fewer checkboxes in my Search dialog.

This code worked as far as returning the accurate state of the Match case and Find whole words only checkbox provided that a search was done (if I changed the state of those checkboxes and then just clicked cancel the "updated" state of the checkbox was not properly returned).

That being said, I can't get it to return the proper state for PatternMatch or SoundsLike no matter what I tried.

Private Sub CommandButton1_Click()

Dim dlgFind As Dialog
 
Set dlgFind = Dialogs(wdDialogEditFind)
 
With dlgFind
 .Display
 .Update
 .Execute
End With

MsgBox dlgFind.MatchCase
MsgBox dlgFind.WholeWord
MsgBox dlgFind.PatternMatch
MsgBox dlgFind.SoundsLike

End Sub

Edit: I got it to return the proper state of PatternMatch and SoundsLike only when a search found a result in the document. YMMV