EnableSound Property Example

This example sets the Provide feedback with sound option on the General tab in the Options dialog box, based on user input.

If MsgBox("Do you want Word to beep on errors?", 36) = vbYes Then
    Options.EnableSound = True
Else
    Options.EnableSound = False
End If