Macro for table width?

Answers

• 

  

  0

  Sign in to vote

  In Word 2010, I can place the insertion point in the table while recording a macro, activate the Layout tab of the ribbon, and click Properties in the Table group.

  The recorded macro looks like this:

  Sub SetTableWidth()
  '
  ' SetTableWidth Macro
  '
  '
      Selection.Tables(1).PreferredWidthType = wdPreferredWidthPoints
      Selection.Tables(1).PreferredWidth = CentimetersToPoints(10)
  End Sub

  (I set the width to 10 cm)

  You can edit this to make it slightly more elegant:

  Sub SetTableWidth()
      With Selection.Tables(1)
          .PreferredWidthType = wdPreferredWidthPoints
          .PreferredWidth = CentimetersToPoints(10)
      End With
  End Sub

  Perhaps you can use this as starting point.

  ---

  Regards, Hans Vogelaar

  • Marked as answer by William Zhou CHN Tuesday, February 28, 2012 3:41 AM

  Sunday, February 19, 2012 1:47 AM