Set all rows of all tables to at least row height 1.2 cm

Posted on 2012-08-16
Last Modified: 2012-08-17
Dear Experts:

For all the rows in all the tables in the current document I would like to set the row height to at least 1.2 cm using VBA.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas
Question by:AndreasHermle
    LVL 59

    Accepted Solution

    How about:

    Sub tableRowHeight()
    Dim tbl As Table
        Application.ScreenUpdating = False
        For Each tbl In ActiveDocument.Tables
            tbl.Rows.HeightRule = wdRowHeightAtLeast
            tbl.Rows.Height = CentimetersToPoints(1.2)
        Application.ScreenUpdating = True
    End Sub

    Open in new window


    Author Closing Comment

    Hi Chris,

    great, this did the trick. Thank you very much for your professional help. Regards, Andreas

    Featured Post

    How to improve team productivity

    Quip adds documents, spreadsheets, and tasklists to your Slack experience
    - Elevate ideas to Quip docs
    - Share Quip docs in Slack
    - Get notified of changes to your docs
    - Available on iOS/Android/Desktop/Web
    - Online/Offline

    Join & Write a Comment

    Like many others, we try and discourage users from printing documents unnecessarily and instead send or share them electronically. However, this doesn't always work and documents are still printed. With this simple solution, if the user tries to …
    When creating Microsoft Word-based forms there may be a need to have a form field repeated throughout the whole document. For instance, with a company name, you may want this information repeated automatically throughout the document rather than man…
    This video walks the viewer through the process of creating Hyperlinks for the web and other documents. Select the "Insert" tab: Click "Hyperlink":  Type "http://" followed by a web address to reference a website or navigate to a document to ref…
    In a previous video Micro Tutorial here at Experts Exchange (, I explained how to get a free, one-month trial of Office …

    734 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    23 Experts available now in Live!

    Get 1:1 Help Now