Hello all,
Running the below code causes run-time error 91 (Object variable or With block variable not set).
I am trying to find inlineshapes which are checkbox and perform a task when found. The problem I am finding is that the presence of any other inlineshapes causes the run-time error. Not sure how this is happening as the code is written to only run on checkboxes. Any ideas:/?
Code:
Dim inls As InlineShape
For Each inls In ActiveDocument.InlineShapes
If inls.OLEFormat.ClassType = "Forms.CheckBox.1" Then
If inls.OLEFormat.Object.Value = True Then
inls.Select
Selection.MoveStart Unit:=wdRow, Count:=0
Selection.MoveEnd Unit:=wdRow, Count:=13
Selection.Font.Hidden = True
Else
inls.Select
Selection.SelectRow
Selection.Font.Hidden = True
End If
End If
Next
A big thanks for any help!