Set up the MacroButton in the document with

{ MACROBUTTON SymbolCarousel No/}

And immediately after the closing } type

YesNo

Select the Yes and from the Insert menu select Bookmarks and enter the
bookmark name Yes.  Then select the No of YesNo and create a bookmark for it
with the name of No.  To select those words individually, you may have to
uncheck the "When selecting, automatically select entire word" under
Tools>Options>Edit.

Select the word Yes and format the font as Strikethrough.  Select the word
No and format it as Strikethrough and Hidden.

Then use the following code:

Sub SymbolCarousel()

Dim Str1 as String, Str2 As String

Str1 = "Yes/"
Str2 = "No/"

Select Case (Mid(Selection.Fields(1).Code.Text, 29)
   Case Str1
       Selection.Fields(1).Code.Text = " MACROBUTTON SymbolCarousel " &
Str2
       With ActiveDocument
           .Bookmarks("No").Range.Font.Hidden = True
           .Bookmarks("Yes").Range.Font.Hidden = False
       End With
   Case Str2
       Selection.Fields(1).Code.Text = " MACROBUTTON SymbolCarousel " &
Str1
       With ActiveDocument
           .Bookmarks("No").Range.Font.Hidden = False
           .Bookmarks("Yes").Range.Font.Hidden = True
       End With
End Select

End Sub