change value of option button (OLE object) in Microsoft Word file

[bnquynhnhu]

Hi guys,

I would like to convert a macro from VBA to AppleScript. Unfortunately, I'm the beginner of AppleScript and I don't know how to change value of an option button in Microsoft Word.

For example, I have an option button with 2 options (group name = question413) Yes and No. Now, I would like to open Word file, then change value of option button with group name "question413" to Yes. Below is my code in VBA.

SetOptionButton "question413", "Yes"

Public Sub SetOptionButton(GroupName As String, Value As String)
Dim oShape As Word.InlineShape
For Each oShape In ActiveDocument.InlineShapes
If oShape.OLEFormat.ProgID = "Forms.OptionButton.1" Then
If oShape.OLEFormat.Object.GroupName = GroupName Then
If oShape.OLEFormat.Object.Caption = Trim(Value) Then
oShape.OLEFormat.Object.Value = True
Else
oShape.OLEFormat.Object.Value = False
End If
End If
End If
Next
End Sub

How could I convert them to AppleScript?Any comments would be highly appreciated.

Thanks,

 

[bnquynhnhu]

Help me, please.