Microsoft Word 中的相关单选按钮

Question

我在 MS Words 文档中创建了一个表单，其中包括一组可供选择的单选按钮（选项按钮）（请求应发送给哪个团队：团队 1、团队 2 或团队 3）。这些应该始终保持不变。

根据用户选择的团队，这应该更新或在后续问题（“什么类型的请求？”）中显示第二组单选按钮。因此，当单击 Team 1 时，此部分中的单选按钮选择应变为请求 1a、请求 1b。对于团队 2，选择应变为请求 2a、请求 2b。对于团队 3，选择变为请求 3a、请求 3b。 我如何在 VBA 中编写此代码？

Answer 1

• 假设

  team

  选项按钮的名称为

  OptionButton1

  OptionButton2

  OptionButton3

Private Sub OptionButton1_Click()
    UpdateOptBtn 1
End Sub
Private Sub OptionButton2_Click()
    UpdateOptBtn 2
End Sub
Private Sub OptionButton3_Click()
    UpdateOptBtn 3
End Sub

Sub UpdateOptBtn(ByVal iD As Long)
    Dim s As InlineShape
    Dim sCap As String
    Const GRP_NAME = "request"
    For Each s In ActiveDocument.InlineShapes
        With s.OLEFormat.Object
            If .GroupName = GRP_NAME Then
                 sCap = .Caption
                 .Caption = Left(sCap, Len(sCap) - 2) & iD & Right(sCap, 1)
            End If
        End With
    Next
End Sub