在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。 Sub ExcelToWord() Dim WordObject As Object '声明一个对象变量，这里即将声明为Word对象 On Error Resume Next Set WordObject = CreateObject("Word.Application") '