Sub AlignWithMe()
  Dim aPar As Paragraph, aRng As Range, iPos As Integer
  
  Set aRng = Selection.Range
  aRng.Paragraphs(1).Alignment = wdAlignParagraphCenter
  iPos = aRng.Paragraphs(1).Range.Characters(2).Information(wdHorizontalPositionRelativeToTextBoundary)
  aRng.MoveStart Unit:=wdParagraph, Count:=1
  With aRng.Paragraphs
    .Alignment = wdAlignParagraphLeft
    .LeftIndent = iPos
  End With
End Sub