Microsoft Office Forums - View Single Post - 1st line of 4-line poem centrally aligned; how to get lines 2-4 to start at same location on page

Guessed · 09-13-2022, 08:13 PM

Have you tried a macro to do this (after selecting all the paragraphs you want to align)?

Code:

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

You can change the .Characters(2) to specify which character in the first paragraph you want to align with.