You are using legacy code.
To do this you need to use the new code for TextRange2 that came from v. 2007
See if this does it
Sub fixindent()Dim oshp As Shape
Dim otr2 As TextRange2
Set oshp = ActiveWindow.Selection.ShapeRange(1)
Set otr2 = oshp.TextFrame2.TextRange
With otr2.ParagraphFormat
.LeftIndent = 0.3 * 28.3465
.FirstLineIndent = -(0.3 * 28.3465)
End With
End Sub
Or depending on exactly what you mean
Sub fixindent()Dim oshp As Shape
Dim otr2 As TextRange2
Set oshp = ActiveWindow.Selection.ShapeRange(1)
Set otr2 = oshp.TextFrame2.TextRange
With otr2.ParagraphFormat
.LeftIndent = 0.6 * 28.3465
.FirstLineIndent = -(0.3 * 28.3465)
End With
End Sub