1 2 3 4 5 6 7 8 9 10 11 12 |
Sub UnselectTextBoxes() Dim c As New Collection For Each s In ActiveWindow.Selection.ShapeRange If s.TextFrame.HasText <> msoTrue Then c.Add s End If Next ActiveWindow.Selection.Unselect For Each s In c s.Select MsoTriState.msoFalse Next End Sub |