FirstLineIndent Property

Microsoft Publisher Visual Basic

expression.FirstLineIndent

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a text box, fills it with text, and indents the first line of every paragraph a half inch.

Sub IndentFirstLines()
    Dim intCount As Integer
    With ActiveDocument.Pages(1).Shapes _
            .AddTextbox(Orientation:=pbTextOrientationHorizontal, _
            Left:=100, Top:=100, Width:=100, Height:=100) _
            .TextFrame.TextRange
        For intCount = 1 To 10
            .InsertAfter NewText:="This is a test. "
        Next intCount
        .ParagraphFormat.FirstLineIndent = InchesToPoints(0.5)
    End With
End Sub