Spacing Property Example

This example demonstrates two different character spacings at the beginning of the active document.

Set myRange = ActiveDocument.Range(Start:=0, End:=0)
With myRange
    .InsertAfter "Demonstration of no character spacing. "
    .InsertParagraphAfter
    .InsertAfter "Demonstration of character spacing (1.5pt)."
    .InsertParagraphAfter
End With
ActiveDocument.Paragraphs(2).Range.Font.Spacing = 1.5

This example sets the character spacing of the selected text to 2 points.

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Spacing = 2
Else
    MsgBox "You need to select some text."
End If

This example sets the spacing between cells in the first table in the active document to 9 points.

ActiveDocument.Tables(1).Spacing = 9

This example formats the active document to display text in two columns with 0.5 inch (36 points) spacing between the columns.

With ActiveDocument.PageSetup.TextColumns
    .SetCount NumColumns:=2
    .LineBetween = False
    .EvenlySpaced = True
    .Spacing = 36
End With