如何使用VBA将Word邮件合并中的.OpenDataSource限制为只有1条记录？

在使用VBA将Word邮件合并中的.OpenDataSource限制为只有1条记录，可以通过以下步骤实现：

首先，确保你已经在Word中打开了邮件合并主文档。
在VBA编辑器中，通过按下Alt + F11键或者点击开发工具栏中的“Visual Basic”按钮来打开VBA编辑器。
在VBA编辑器中，找到并展开“Microsoft Word Objects”项目，然后双击“本文档”以打开该文档的代码窗口。
在代码窗口中，输入以下VBA代码：

Sub RestrictOpenDataSourceToOneRecord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdDataSource As Object
    
    ' 获取Word应用程序对象
    Set wdApp = GetObject(, "Word.Application")
    
    ' 获取当前活动文档对象
    Set wdDoc = wdApp.ActiveDocument
    
    ' 获取邮件合并数据源对象
    Set wdDataSource = wdDoc.MailMerge.DataSource
    
    ' 检查数据源记录数
    If wdDataSource.RecordCount > 1 Then
        ' 如果记录数大于1，则限制数据源为只有第一条记录
        wdDataSource.ActiveRecord = wdDataSource.FirstRecord
    End If
    
    ' 释放对象
    Set wdDataSource = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub