Find and format lines of verse

RobiNew · #1 11-04-2023, 01:13 AM

I have a tentative code to find consecutive one-line paragraphs (lines of verse) and to replace Chr(13) with (11) at the end of the line. I have uploaded a test docx. Can someone help? Thanks!

Code:

Sub LinesOfVerse()
    For Each Paragraph In ActiveDocument.Paragraphs
TypePara = "No"
NrPara = NrPara + 1
If Paragraph.Range.ComputeStatistics(wdStatisticLines) = 1 Then
    Paragraph.Range.Select
    Paragraph.Range.Characters.Last.Text = vbNullString
    Paragraph.Range.Characters.Last.Text = Chr(11)
    Paragraph.Range.Characters.Last.Text = vbNullString
    Paragraph.Range.Characters.Last.Text = Chr(11)
    TypePara = "Yes"
End If
If Paragraph.Range.ComputeStatistics(wdStatisticLines) = 1 _
And TypePara = "Yes" Then
    Paragraph.Range.Select
    Paragraph.Range.Characters.Last.Text = vbNullString
    Paragraph.Range.Characters.Last.Text = Chr(11)
    Paragraph.Range.Characters.Last.Text = vbNullString
    Paragraph.Range.Characters.Last.Text = Chr(11)
'    MsgBox "Check!"
End If
    Next
     End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Format Word Document - Remove timestamps on individual lines	lbeck	Word	4	06-21-2023 12:47 PM
How do I format indented bulleted lines??? HELP PLEASE!!!	nicholeproffitt	Word	1	02-05-2015 05:42 PM
Print table and on verse form vba	LaercioNB	Excel	1	08-09-2013 06:03 PM
How to remove unwanted lines - I cannot even find how/where they are inserted!	nickib	Word	7	08-09-2013 06:01 AM
Find and Replace multiple lines/paragraphs	jcw	Word	1	11-18-2011 11:47 AM