Microsoft Office Forums - View Single Post - [Solved] Macro to delete ending period at the end of a single paragraph

RobiNew · Today, 07:27 AM

Thanks, Macropod! But I posted the wrong version. Please check this one with regard to period deletion.

Code:

Sub FormatAndDeleteNew()
'Format left titles
For Each oPar In ActiveDocument.Paragraphs
    If oPar.Range.ComputeStatistics(wdStatisticLines) = 1 _
         And oPar.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft _
         And Not oPar.Range Like "*[0-9]*" Then
'If above conditions are true, then delete possible period and apply style
    If oPar.Range.Characters.Last.Previous = "." Then oPar.Range.Characters.Last.Previous = vbNullString
      oPar.Range.Style = "LeftTitle"
    End If
Next oPar
End Sub