Programmatically make text box borders invisible

[Daniel Antone]

I am finding this is a real challenge.
This code supposes to set some properties of a text box. But Word sticks to the manually set defaults for auto shapes even if you try to change the defaults programmatically by using the property "SetShapesDefaultProperties"

  With Selection.ShapeRange(1)
    With .TextFrame
      .MarginLeft = 0
      .MarginRight = 0
      .MarginTop = 0
      .MarginBottom = 0
    End With
    .LockAnchor = False
    .WrapFormat.Type = wdWrapNone
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
  End With

Any suggestions will be greatly appreciated.