日期: 2016 年 12 月 4 日

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