04Word VBA学习交流资料之四(数组).docVIP

Word VBA 学习交流资料之四 感　　想：有感于国人的Word水平比较低，尤其是VBA这一块，本人想请大家一起学习VBA，在提高自身的能力同时帮助需要帮助的人。 感　　谢：绿叶的建群之功，也感谢you兄、八爪鱼兄的热烈支持，更感谢大家的大力支持！ 学前必备：Word VBA帮助（2003或别的都行，大体相当）（没有也没有关系，在这里，大多看到的就是复制自“帮助”的。） 可选工具：金山词霸（对E文不太懂的人，尤其重要） 语法工具：共享区的VBS（感谢七兄） 学习方法：“不求甚解”（一开始，不太懂，没关系，坚持下去就懂了。） 学习步骤：看到例子时，复制到VBE编辑器中运行一次，看一下结果（最好按F8，一步一步地看） 必要指出：是“互学”，错误或不妥之处难免！因鄙人也是一边看帮助，一边写。 开始之前：高唱国歌（最好能喊：自强不息！） ――――――――――――――― Start： 在 Microsoft Word 中使用 DAO （其实说实在话，我也不会。因为DAO的范围比我们Word VBA要大的多，再暂时对我们有一定的难度。作为了解吧。） 数据访问对象（DAO）的属性、对象和方法的用法与 Microsoft Word 属性、对象和方法的用法相同。在建立对 DAO 对象库的引用之后，您可以打开数据库，设计和运行查询，并将结果记录集返回 Word。 引用 DAO 使用 DAO 之前，必须建立对 DAO 对象库的引用。使用下列步骤可建立对 DAO 对象库的引用： 切换到“Visual Basic 编辑器”。 在“工具”菜单上，单击“引用”。 在“可使用的引用”框中，单击“Microsoft DAO 3.6 Object Library”。 （以上三条是充分必要的条件） 下列示例打开 Northwind 数据库（是不是超纲了？了解一点！）并将 Shippers 表中的项目插入活动文档。 （以下红色部分是引用DAO的标准语句，基本这几句都要用） Sub UsingDAOWithWord() Dim docNew As Document Dim dbNorthwind As DAO.Database Dim rdShippers As Recordset Dim intRecords As Integer Set docNew = Documents.Add Set dbNorthwind = OpenDatabase _ (Name:=C:\Program Files\Microsoft Office\Office11\ _ Samples\Northwind.mdb) Set rdShippers = dbNorthwind.OpenRecordset(Name:=Shippers) For intRecords = 0 To rdShippers.RecordCount - 1 docNew.Content.InsertAfter Text:=rdShippers.Fields(1).Value rdShippers.MoveNext docNew.Content.InsertParagraphAfter Next intRecords rdShippers.Close dbNorthwind.Close End Sub 使用 OpenDatabase 方法可连接并打开数据库。打开数据库后，用 OpenRecordset 方法访问表格或进行查询。若要浏览记录集，可用 Move 方法。若要寻找指定的记录，可用 Seek 方法。如果仅需要记录的子集而不是整个记录集，可用 CreateQueryDef 方法自定义查询来选择满足搜索条件的记录。结束对数据库的操作后，最好用 Close 方法关闭该数据库，以节省内存。 说明 有关指定 DAO 对象、方法或属性的详细信息，请参阅“数据访问对象帮助”。 与其他应用程序进行通讯 除了处理 Word 数据，您可能需要用户应用程序与 Microsoft Excel、Microsoft PowerPoint 或 Microsoft Access 等其他应用程序进行数据交换。可以通过使用自动功能（以前称为 OLE 自动功能）或动态数据交换（DDE）与其他应用程序进行通讯。 从其他应用程序中自动进行 Word 操作 自动功能允许通过引用其他应用程序的对象、属性和方法来返回、编辑和输出数据。可由其他应用程序引用的应用程序对象称为 Automation 对象。 若要使其他应用程序使用 Microsoft Word 的自动功能，需要首先创