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

macropod · Today, 05:18 AM

Code:

Sub FormatAndDelete()
'Format left titles
Application.ScreenUpdating = False
Dim oPar As Paragraph
For Each oPar In ActiveDocument.Paragraphs
  With oPar.Range
    If .Characters.Last.Previous = "." Then .Characters.Last.Previous = vbNullString
    If .ComputeStatistics(wdStatisticLines) = 1 Then
      If .ParagraphFormat.Alignment = wdAlignParagraphLeft Then
         If Not .Text Like "*[0-9]*" Then .Style = "LeftTitle"
      End If
    End If
  End With
Next oPar
Application.ScreenUpdating = True
End Sub