VBA对象引用前期绑定与后期绑定.docVIP

VBA对象引用的前期绑定与后期绑定 编辑：madmlwt 前言 系列问题涉及： 1．操作环境是：Ofeice 2003完整版，Win XP操作系统。 2．探讨主方向：在EXCEL中用VBA操作WORD表格，进行EXCEL数据与WORD数据的相互读写及相应格式设置。 3．引用WORD程序的方法：后期绑定。不需要在对象库中去勾选Microsoft Word 11.0 Object Library对象。 4．资料收集整理：网络查询、Ofeice 2003相关程序自身的VBA帮助、个人理解，本人是个编辑者。 5．相关实例：网络搜索引用、个人原创，在EXCEL中实际操作通过。 综上，在后续的系列文章中的诸多说法、实例中，不再一一重复阐述说明。编辑此系列问题，可能已经滞后，仅供有此需要的朋友参考借鉴！ 如有雷同，敬请见谅、免责！ 一、问题的提出 试图在EXCEL中用VBA操作WORD文档，结果在WORD中能够正常使用的一些方法或属性，在EXCEL中不能使用或使用后没有达到应该有的效果。 【例子】 在一个空白WORD文档写入2句话（2个段落），然后分别对这二个段落进行字体、字号和居中设置。在EXCEL中用VBA操作WORD文档时， VBA代码编辑过程中，不直接引用Microsoft Word 11.0 Object Library对象，采用后期绑定Set wordAppl = CreateObject(Word.Application) 定义一个Word对象变量。1．直接在WORD中代码Sub 设置() With ActiveDocument.Paragraphs(1).Range .Font.Size = 18 字号 .Font.Name = 黑体 字体 .Font.Bold = wdToggle 字型加粗 .ParagraphFormat.Alignment = wdAlignParagraphCenter 水平居中 End With End Sub 单击代码编辑窗口上方工具栏上的绿色三角形按钮(或按键盘上的F5)，运行上述代码正常运行且达到Sub 设置() Documents.Add 创建一个新的Word文档 ………… With ActiveDocument.Paragraphs(1).Range对第一个段落进行格式设置 .Font.Size = 18 字号 .Font.Name = 黑体 字体 .Font.Bold = wdToggle 字型加粗 .ParagraphFormat.Alignment = wdAlignParagraphCenter 水平居中End With ActiveDocument.SaveAs FileName:=ThisDocument.Path \新建WORD文档.doc 保存新建Word文档与当前WORD文件相同位置 ActiveWindow.Close 关闭新建文档 Application.ScreenUpdating = False 关闭屏幕刷新 End Sub 2．在EXCEL中代码Sub 设置() Set wordAppl = CreateObject(Word.Application) 定义一个Word对象变量 ThisWorkbook.Name 当前工作簿名称 With wordAppl .Documents.Add 创建一个新的Word文档 .Selection.TypeText Text:=创建一个WORD表格模型 第一个段落文本 ………… With .ActiveDocument.Paragraphs(1).Range .Font.Size = 18 字号 .Font.Name = 黑体 字体 .Font.Bold = wdToggle 字型加粗 .ParagraphFormat.Alignment = wdAlignParagraphCenter 水平居中End With .ActiveDocument.SaveAs ThisWorkbook.Path \ Left(dqM, Len(dqM) - 4) .doc 保存新建Word文档与当前相同.Documents.Close 关闭新建文档 .Quit 关闭新建文档窗口 End With Set wordAppl = Nothing 释放存储空间End Sub 单击代码编辑窗口上方工具栏上