在EXCEL中打开WORD文档.docxVIP

在EXCEL中打开WORD文档在EXCEL中打开WORD文档? , 并将? word 文档中的表中的数据? 复制到? EXCEL表的单元格中。。/thread-1224805-1-1.html在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应用程序如果要在某一 Microsoft Office 应用程序中运行处理其他 Microsoft Office 应用程序中对象的代码，请按下列步骤进行。1、在“引用”对话框（“工具”菜单）中设置对其他应用程序的类型库的引用。进行该操作之后，对象、属性和方法将显示在“对象浏览器”中，并且在编译时将检查语法。还可以获取这些对象、属性和方法的快捷帮助。2、以特定的类型声明对象变量，该对象变量将引用其他应用程序中的对象。请确保用提供对象的应用程序的名称限定了每一个类型。例如，下列语句声明了指向 Microsoft Word 文档的变量和另一个指向 Microsoft Excel 工作簿的变量。Dim appWD As Word.Application, wbXL As Excel.Workbook???注释? 如果希望代码早被绑定，则必须遵循前面的步骤。3、使用要在其他应用程序中处理的对象的 OLE 程序标识符作为参数来调用CreateObject函数，如下例所示。如果要查看相应的应用程序会话，请将 Visible 属性设置为 True。Dim appWD As Word.ApplicationSet appWD = CreateObject(Word.Application)appWd.Visible = True???4、对包含在变量中的对象应用属性和方法。例如，下述指令创建新的 Word 文档。Dim appWD As Word.ApplicationSet appWD = CreateObject(Word.Application)appWD.Documents.Add???5、对相应的应用程序处理结束后，用 Quit 方法将其关闭，如下例所示。appWd.Quitappwd.Documents.OpenFileName:=2005年度政治题.doc///////////////////////////////////Sub 打开WORD文档()?Workbooks.Open Filename:=D:\我的文档\桌面\中国联通河南省XX分公司DT、CQT覆盖性能指标.xls??? Range(A1:F38).SelectDim appWD As Word.Application, doc As ObjectSet appWD = CreateObject(Word.Application)appWD.Visible = TrueappWD.Documents.Open Filename:=D:\我的文档\桌面\鼎利报表.docappWd.QuitEnd Sub//////////////////////////////////////////Sub 打开WORD文档()Workbooks.Open Filename:=D:\我的文档\桌面\中国联通河南省XX分公司DT、CQT覆盖性能指标.xls??? Range(A1:F38).SelectDim appWD As Word.Application, doc As ObjectSet appWD = CreateObject(Word.Application)appWD.Visible = TrueappWD.Documents.Open Filename:=D:\我的文档\桌面\鼎利报表.doctmpstr = ActiveDocument.Tables(1).Cell(8, 2).Range.Texttmpstr = Left(tmpstr, InStr(1, tmpstr, ) - 2)MsgBoxtmpstrWindows(中国联通河南省XX分公司DT、CQT覆盖性能指标.xls).ActivateRange(X4) = tmpstrtmpstr = ActiveDocument.Tables(1).Cell(7, 4).Range.Texttmpstr = Left(tmpstr, InStr(1, tmpstr, ) - 2)MsgBoxtmpstrWindows(中国联通河南省XX分公司DT、CQT覆盖性能指标.xls).ActivateRange(Y4) = tmpstrtmpstr = ActiveDocument.Tables(1).Cell(6, 4).Range.Texttmpstr = Left(tmpstr, InStr(1, tmpstr, ) - 2)MsgB