本示例复制表格 1 中的首行。
If ActiveDocument.Tables.Count >= 1 Then
ActiveDocument.Tables(1).Rows(1).Range.Copy
End If