Firstly, to remove the autonumbers, this code is simpler
Code:
Sub NumberingDeleteHardcoded()
'Only acts on selected paragraphs
Dim iResp As Integer
iResp = MsgBox("This macro will remove all hardcoded paragraph numbers " _
& vbCr & "from the SELECTED paragraphs. Click OK to continue.", _
vbOKCancel, "Delete Hard Numbers")
If iResp = vbOK Then
WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1
End If
End Sub
Secondly, if the right paragraph style is applied and those styles are defined correctly, to get the alignment correct all you need to do is reset the paragraph attributes to remove local overrides.
Code:
Selection.ParagraphFormat.Reset