Runs Method Example

This example formats the second run in shape two on slide one in the active presentation as bold italic if it's already italic.

With Application.ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange
    With .Runs(2).Font
        If .Italic Then
            .Bold = True
        End If
    End With
End With