Removing TextBox Frame (Border) in Drawing Canvas

J

Jim

Hi,

I'm using Word 2007. I have a macro that will remove the frame (border)
around Textboxes in a document, but it doesn't work if the TextBox is in a
Drawing Canvas. Can anyone help provide a solution for removing frames
around TextBoxes in a Drawing Canvas? Here is the code that work for Text
Boxes not in a Drawing Canvas:

Sub Remove_Frames_From_Text_Boxes()
'
' Remove_Frames_From_Text_Boxes Macro
'
'
Dim shp As Shape

For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then
shp.Line.Visible = msoFalse
End If
Next shp


' Finished; go back to the start of the document and quit.

Selection.HomeKey Unit:=wdStory

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Cut selected graphic/shape and paste it into a drawing canvas 0
Word Shapes and Drawing Canvas 7
Convert old wordbasic code into VBA that will run now 0
Adding a drawing canvas via VBA that has the width of the printablearea 6
Removing drawing canvas when opening text box in Word 2003 1
Drawing Canvas in Word 1
Apply another font to all text boxes within a canvas or to groupedtext boxes 2
Remove Text box fill 0

Top