本示例判断在活动窗口中选定的形状是否为文本框。

With ActiveWindow.Selection.ShapeRange
    If .HasTextFrame Then
        .TextFrame.TextRange.Text = "这是一个文本框"
    End If
End With