Width Property Example

This example creates a 5x5 table in a new document and then sets the width of the first cell to 1.5 inches.

Set newDoc = Documents.Add
Set myTable = _
    newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
    NumColumns:=5)
myTable.Cell(1, 1).Width = InchesToPoints(1.5)

This example returns the width (in inches) of the cell that contains the insertion point.

If Selection.Information(wdWithInTable) = True Then
    MsgBox PointsToInches(Selection.Cells(1).Width)
End If

This example formats the section that includes the selection as three columns. The For Each...Next loop is used to display the width of each column in the TextColumns collection.

Selection.PageSetup.TextColumns.SetCount NumColumns:=3
For Each acol In Selection.PageSetup.TextColumns
    MsgBox "Width= " & PointsToInches(acol.Width)
Next acol

This example sets the width and height of the Microsoft Word application window.

With Application
    .WindowState = wdWindowStateNormal
    .Width = 500
    .Height = 400
End With

This example sets the width of the specified Frameset object to 25% of the window width.

With ActiveWindow.ActivePane.Frameset
    .WidthType = wdFramesetSizeTypePercent
    .Width = 25
End With