本示例判断在活动窗口中选定的形状是否为文本框,如果是则填充文本。

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