'脚本方式新建word 再新建文档,文档中输入字符串"你好" Dim wdapp As Word.Application Dim wddoc As Word.Document Set wdapp = CreateObject("Word.Application") Set wddoc = wdapp.Documents.Open("d:\123.doc ") With wdapp .Visible = True .Activate .Selection.TypeText Text:="你好" End With