activedocument.Tables(1).Range.ParagraphFormat.Spaceafter=0 activedocument.Tables(1).Range.ParagraphFormat.SpaceBefore=0 activedocument.Tables(1).Rows.HeightRule=wdRowHeightAuto