vba in visio causes error when linked in word

[xplo5iv]

Hi

I've created a Visio document which runs a sub when opened...

ThisDocument.Pages.Item(1).Shapes.ItemFromID(4).Characters.Text = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)

This works fine, but if I then link the Visio diagram into Word I get an error when trying to update. I know it must be due to the vba referencing, but I hardly know Visio vba and I'm stuck.

TIA

Jonathan

 

[fumei]

I get an error when trying to update

Could you move your shoulder to the left a bit? I can't quite see the error message on the screen.

Gerry
My paintings and sculpture

 

[xplo5iv]

Oops, sorry!

Run time error 91

Object variable or with block variable not set

Thx

Jonathan

 

[firefytr]

You'll need to post all of your code then.

Regards,
Zack Barresse

Simplicity is the ultimate sophistication. What is a MS MVP? PODA
- Leonardo da Vinci

 

[xplo5iv]

That is all the code at the minute, other than the bit automatically filled in by Visio ie

Private Sub Document_DocumentOpened(ByVal doc As IVDocument)

ThisDocument.Pages.Item(1).Shapes.ItemFromID(4).Characters.Text = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)

End Sub

Thx

Jonathan