据说动态创建RichTextBox是有问题的,需要用特殊的技巧。 这里找了一个验证有效的,贴出来,供参考: Set objRTB = Controls.Add("RICHTEXT.RichtextCtrl.1", "rtxt")