Macro to delete ending period at the end of a single paragraph

RobiNew · #1 Yesterday, 10:14 AM

Hi! I use this macro to delete an ending period at the end of a single paragraph.
Is there a way to delete the period without having to re-insert the paragraph mark?
Thanks!

Code:

Sub DeleteEndingFullStop()
    Dim para As Paragraph
    Dim txt As String
    Set para = Selection.Paragraphs(1)
    txt = para.Range.Text
    ' Check if paragraph ends with a period before the paragraph mark
    ' check the character before vbCr (ASCII 13)
    If Len(txt) > 1 Then
        If Mid$(txt, Len(txt) - 1, 1) = "." Then
            ' Remove the ending period
            para.Range.Text = Left$(txt, Len(txt) - 2) & vbCr
        End If
    End If
End Sub

macropod · #2 Yesterday, 01:52 PM

Simple:

Code:

Sub DeleteEndingFullStop()
With Selection.Paragraphs.First.Range
  Do While .Characters.Last.Previous = "."
    .Characters.Last.Previous = vbNullString
  Loop
End With
End Sub

RobiNew · #3 Yesterday, 03:09 PM

Many thanks, Macropod! Perfectly simple.

RobiNew · #4 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

macropod · #5 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

RobiNew · #6 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

macropod · #7 Today, 01:19 PM

C'mon, that's a trivial change:

Code:

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

PS: when posting code, please post it between the code tags, i.e.

HTML Code:

[CODE]Your code goes here[/CODE]

not between pairs of code tags as you've been doing.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete table rows based on the absence of a single specific keyword	JellehFishh	Word VBA	2	06-27-2019 08:23 AM
Highlighting applied to range ending in a paragraph continues to apply to text added after	Peterson	Word VBA	2	10-08-2018 02:50 PM
Delete starting and ending character of a line	Ktulu	Word VBA	2	04-26-2018 09:59 AM
how do you formulate the date by pay period ending?	crussell	Excel	8	02-23-2016 07:38 AM
Paragraph ending in following page	tadlomc	Word	1	01-18-2012 05:31 AM