WidthRule Property Example

This example sets the width of the last frame in the active document to exactly 72 points (1 inch).

If ActiveDocument.Frames.Count >= 1 Then
    With ActiveDocument.Frames(ActiveDocument.Frames.Count)
        .WidthRule = wdFrameExact
        .Width = 72
    End With
End If