Word macro buttons - I need to reset them, but don't know how once they execute the first time

[stressler]

I am creating a Word document that has several buttons associated to a macro. However, once I execute the form button the first time, there isn't any way for me to remove the response provided by the macro and re-execute the button again. So in simpler terms, I have several buttons that when double clicked, provide me with a "Yes" text response. If I delete my Yes response, that button no longer seems to be active, when I double click it, nothing happens.

Do you know if a way to reset the macro buttons or allow me to delete the response provided by the macro button and then re-execute to provide the "Yes" response again?

Here's what I have so far...

Sub Macro1SUM()
'
' Macro1SUM Macro
' When this button is pushed, the form will auto-fill with 1SUM as the selection.
'
Selection.TypeText Text:="1SUM Yes"
End Sub
Sub MacroREDE()
'
' MacroREDE Macro
' When this button is pushed, the form will auto-fill with REDE as the selection.
'
Selection.TypeText Text:="REDE Yes"
End Sub
Sub MacroBoth()
'
' MacroBoth Macro
' When this button is pushed, the form will auto-fill with Both as the selection.
'
Selection.TypeText Text:="Both Yes"
End Sub

 

[Macropod]

The way your macro is coded, it outputs the text to wherever the cursor happens to be, which is less than ideal. What you should do is create a bookmark in the document where you want the output to go. Then you could use code like:

Const StrBkMk As String = "MyBookmark"

Sub Macro1SUM()
Call UpdateBookmark(StrBkMk, "1SUM Yes")
End Sub

Sub MacroREDE()
Call UpdateBookmark(StrBkMk, "REDE Yes")
End Sub

Sub MacroBoth()
Call UpdateBookmark(StrBkMk, "Both Yes")
End Sub

Sub UpdateBookmark(StrBkMkNm As String, StrTxt As String)
Dim BkMkRng As Range
With ActiveDocument
  If .Bookmarks.Exists(StrBkMkNm) Then
    Set BkMkRng = .Bookmarks(StrBkMkNm).Range
    BkMkRng.Text = StrTxt
    .Bookmarks.Add StrBkMkNm, BkMkRng
  End If
End With
Set BkMkRng = Nothing
End Sub

 

[stressler]

I really like the bookmarking suggestion, it's very clean, which is nice. However, I still have the same issue. Once I execute the macro, there's no way for me to remove the macro response and reset the buttons. Meaning, if I delete the 1SUM Yes or REDE Yes or Both Yes, then try to double click my macro buttons again, nothing happens. How can I reset them so that they can be used again?

 

[Macropod]

With the code I posted, clicking any button will update the bookmarked range. So, click on the macrobutton for 'Macro1SUM' and you'll get "1SUM Yes". If you then click on the macrobutton for 'MacroREDE' the output will update to "REDE Yes". If you want to clear the bookmark, you need to update it with no text. For example:

Sub MacroClear()
Call UpdateBookmark(StrBkMk, "")
End Sub