Изменить межстрочный интервал в текстовых полях

Question

Я относительно новичок в Word VBA. Как в Word vba изменить формат заполненного текстового поля с одного пробела на другой? Я пробовал:

Sub ChangeTextbox

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoTextBox Then
                shp.TextFrame.TextRange.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
                shp.TextFrame.TextRange.ParagraphFormat.SpaceAfter = 0
        End If
    Next
end sub

Ни одно из свойств paragraphformat не принято и не изменено.