fjern "specify hieght" for rows på alle tabeller i doc

vi sætter lige lidt flere point på. Er der ikke nogen der kan hjælpe med en makro, der løber et dokument igennem og retter en bestemt parameter på alle tabeller?

Nød lærer...

Sub update_tables()
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Select
Selection.Font.Size = 8
Selection.Tables(1).Rows.LeftIndent = CentimetersToPoints(2.54)
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints
    Selection.Tables(1).PreferredWidth = CentimetersToPoints(15)
    Selection.Rows.HeightRule = wdRowHeightAuto
Next

End Sub