在excel中打开word

《在excel中打开word》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、在EXCEL中打开WORD文档在EXCEL中打开WORD文档 ,并将 word文档中的表中的数据 复制到 EXCEL表的单元格中。。http://www.shhrclub.com/thread-1224805-1-1.html在某一MicrosoftOffice应用程序中控制其他MicrosoftOffice应用程序如果要在某一MicrosoftOffice应用程序中运行处理其他MicrosoftOffice应用程序中对象的代码，请按下列步骤进行。1、在“引用”对话框（“工具”菜单）中设置对其他应用程序的类型库的引用。进行

2、该操作之后，对象、属性和方法将显示在“对象浏览器”中，并且在编译时将检查语法。还可以获取这些对象、属性和方法的快捷帮助。2、以特定的类型声明对象变量，该对象变量将引用其他应用程序中的对象。请确保用提供对象的应用程序的名称限定了每一个类型。例如，下列语句声明了指向MicrosoftWord文档的变量和另一个指向MicrosoftExcel工作簿的变量。DimappWDAsWord.Application,wbXLAsExcel.Workbook   注释 如果希望代码早被绑定，则必须遵循前面的步骤。3、使用要在其他应用程序中

3、处理的对象的OLE程序标识符作为参数来调用CreateObject函数，如下例所示。如果要查看相应的应用程序会话，请将Visible属性设置为True。DimappWDAsWord.ApplicationSetappWD=CreateObject("Word.Application")appWd.Visible=True   4、对包含在变量中的对象应用属性和方法。例如，下述指令创建新的Word文档。DimappWDAsWord.ApplicationSetappWD=CreateObject("Word.Applicat

4、ion")appWD.Documents.Add   5、对相应的应用程序处理结束后，用Quit方法将其关闭，如下例所示。appWd.Quitappwd.Documents.OpenFileName:="2005年度政治题.doc"///////////////////////////////////Sub打开WORD文档() Workbooks.OpenFilename:="D:我的文档桌面中国联通河南省XX分公司DT、CQT覆盖性能指标.xls"   Range("A1:F38").SelectDimappWDA

5、sWord.Application,docAsObjectSetappWD=CreateObject("Word.Application")appWD.Visible=TrueappWD.Documents.OpenFilename:="D:我的文档桌面鼎利报表.doc"'appWd.QuitEndSub//////////////////////////////////////////Sub打开WORD文档()Workbooks.OpenFilename:="D:我的文档桌面中国联通河南省XX分公司DT、CQ

6、T覆盖性能指标.xls"   Range("A1:F38").SelectDimappWDAsWord.Application,docAsObjectSetappWD=CreateObject("Word.Application")appWD.Visible=TrueappWD.Documents.OpenFilename:="D:我的文档桌面鼎利报表.doc"tmpstr=ActiveDocument.Tables(1).Cell(8,2).Range.Texttmpstr=Left(tmpstr,InStr(1,

7、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")=tmpstrt

8、mpstr=ActiveDocument.Tables(1).Cell(6,4).Range.Texttmpstr=Left(tmpstr,InStr(1,tmpstr,"")-2)'MsgBoxtmpstrWindows("中国联通河南省XX分公司DT、CQT覆盖性能指标.xls").Activate