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