Jag har en massa kryssrutor i ett dokument. Hur kan jag loopa igenom grupper av dessa för att kontrollera deras tillstånd? Hittar ingen kollektion i word. Måste man gå på varje kontroll explicit (Thisdocument.chb001)? De kryssrutor som du infogar från verktygsfältet "Kontroller" ingår endera i kollektionen "Shapes" eller "InlineShapes" beroende på hur de är formatterade (Format-Kontroll-Layout-Figursättning). I de kollektionerna ingår också ev bilder, figurer, textrutor mm. tusen tack!Kontroller i Word
mvh
/MichaelSv: Kontroller i Word
Om kryssrutornas figursättning är "I nivå med text" kan du loopa igenom kollektionen så här:
Sub Test()
Dim shp As InlineShape
Dim sName As String
On Error Resume Next
For Each shp In ActiveDocument.InlineShapes
If TypeName(shp.OLEFormat.Object) = "CheckBox" Then
With shp.OLEFormat.Object
MsgBox .Name & " = " & .Value
End With
End If
Next shp
Set shp = Nothing
End Sub
Sv:Kontroller i Word
jag var inne på InlineShapes men hittade ingen lämplig egenskap. OLEFormat.Object... där ser man.
/Michael