Runtime error 91

[waldux]

Hi,



I created userform which gives users ability to select one number from 1 to 10. After user clicks OK button, the number that he chose should be entered into the Textbox which is in the word document. This is the code that I'm using:

Private Sub CommandButton1_Click()
Dim oShape As Word.InlineShape
 
For Each oShape In ThisDocument.InlineShapes
If oShape.OLEFormat.Object.Name = "LabelA" Then
oShape.OLEFormat.Object.Caption = TextBox1.Value
End If
Next oShape
 
UserForm2.hide
End Sub

At the beginning of the day this code worked perfectly, however it started to throw error message something like 2 hours ago. Error message says that "Object variable or with block variable not set" and VBA indicates this error in the 5th line of the code (text "oShape.OLEFormat.Object.Name"). I really don't know why is this happening because I didn't change this code today and it worked fine at the start of the day.

[macropod]

Hi Waldux,

an InLineShape's '.OLEFormat.Object' property has no 'Name' or 'Caption' sub-property. Hence the error. I would therefore be surprised if the code as posted ever worked.