URGENT Plea! Runtime Error 5917: Object does not support attached text

[sugarflux]

Hi

Please help!
I'm creating a procedure to loop through thousands of word documents searching in the Header, footer and body for certain symbols and fonts to change them for others.

Part of the procedure looks for 'textboxes' in the header and checks the text in the textbox for the symbols and font i'm searching for.

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

If Selection.HeaderFooter.Shapes(myShape).TextFrame.TextRange.Font.Name = "LogoFont" Then

This is the line thats producing the above error. The above statement should be TRUE as the textbox font is 'LogoFont'

Please help urgently!
Thanks
sugarflux
Word 2000

 

[sugarflux]

I've now solved this problem myself but thought i would post the solution in case it would be usefule to someone else!

The textbox was grouped with a drawing object that did not have text.

I used
If selection.shapes(myShape).type.hastext = true then

to confirm that the shape had text. If not, i checked for grouping and looped through each of the shapes in the document.

sugarflux