Спойлер в Ворде

.Caption Like "-*" ' = True

Me.Shapes(1).Visible = True

With CommandButton1
'условие, если надпись на кнопке "+ Открыть", тогда надпись на кнопке "- Свернуть"
'в противном случае надпись на кнопке "+ Открыть"
    .Caption = IIf(.Caption = "+ Открыть", "- Свернуть", "+ Открыть")
    'условие, если надпись на кнопке "- Свернуть", тогда сделать видимым Me.Shapes(1)
    If .Caption = "- Свернуть" Then Me.Shapes(1).Visible = True
End With

If .Caption = "- Свернуть" Then Me.Shapes(1).Visible = True Else Me.Shapes(1).Visible = False

Private Sub CommandButton1_Click()
With CommandButton1
    .Caption = IIf(.Caption Like "+*", "- Свернуть", "+ Открыть")
    Me.Shapes(1).Visible = .Caption Like "-*"
End With
End Sub

Sub main()
    On Error Resume Next
    For Each shap In Me.Shapes
            Debug.Print "Index: "; shap.ZOrderPosition
            Debug.Print "Name: "; shap.Name
            Debug.Print "Text: "; shap.AlternativeText
            Debug.Print "========================="
    Next shap
End Sub