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

RobiNew · Today, 03:40 AM

Hi Macropod! Could you please correct the following macro? Thanks!

Code:

Sub FormatAndDelete()
'Format left titles
For Each oPar In ActiveDocument.Paragraphs
'Deletes period at end of paragraph (Fails!!)
    With oPar.Range.Characters
    If oPar.Range.Characters.Last.Previous = "." Then oPar.Range.Characters.Last.Previous = vbNullString
    End With
    If oPar.Range.ComputeStatistics(wdStatisticLines) = 1 _
         And oPar.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft _
         And Not oPar.Range Like "*[0-9]*" Then
      oPar.Range.Style = "LeftTitle"
    End If
Next oPar
End Sub