word vba 代码设置选择按钮属性问题~求大神帮帮我，想在代码中的位置加上选择按钮属性

aa0077321

1. Sub test()
   
2. Dim MyRange As Range
   
3. Dim mycontrol As InlineShape
   
4. Dim str1 As String
   
5. Dim MyParagraph As Paragraph
   
6. 
   
7. For Each MyParagraph In ActiveDocument.Paragraphs
   
8. Set MyRange = MyParagraph.Range
   
9. MyRange.Find.Execute findtext:="A、", Forward:=True
   
10. If MyRange.Find.Found = True Then
    
11. MyRange.MoveEnd Unit:=wdParagraph, Count:=1
    
12. str1 = MyRange.Text
    
13. MyRange.Delete
    
14. Set mycontrol = ActiveDocument.Content.InlineShapes.AddOLEControl("Forms.OptionButton.1", MyRange)
    
15. With mycontrol
    
16. 
    
17. 此处想设置选择按钮的名称?组?caption 属性
    
18. 
    
19. End With
    
20. End If
    
21. Next
    
22. End Sub

复制代码

我想在代码里设置选择按钮属性，试了用".caption=str1   .name ="按钮1"“等方法都不行，求大神给指点下，网上找了半天也没找到~~~

aa0077321

呵呵，找到了，使用 inlineshape的oleformat对象的object 属性就好了，新手，说的可能有点乱。