本示例复制表格 1 中的首行。

If ActiveDocument.Tables.Count >= 1 Then
    ActiveDocument.Tables(1).Rows(1).Range.Copy
End If