1st line of 4-line poem centrally aligned; how to get lines 2-4 to start at same location on page

Guessed · #4 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.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help making legal line number stay at 25 lines a page when I have sections with single spaced text	LegalTranscriber2017	Word	5	07-16-2022 06:50 PM
word erases line bottom in tight line spacing when new line is added	ozzzy	Word	2	01-21-2021 06:41 AM
Rtl text aligned right and ltr text aligned to left in one line - HOW?	wordnew	Word	10	09-06-2020 08:23 AM
Section and Line Break leaving line on previous page	Stonehands99	Word	5	08-13-2019 08:59 PM
Can you prevent an empty line from appearing in the first line of a page?	New Daddy	Word	10	11-18-2013 07:01 AM