Rows.First (Word)

Retorna um objeto Row que representa o primeiro item da coleção Rows .

ActiveDocument.Tables(1).Borders.Enable = False 
With ActiveDocument.Tables(1).Rows.First 
 .Shading.Texture = wdTexture10Percent 
 .Borders(wdBorderBottom).LineStyle = wdLineStyleSingle 
End With