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

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