Remove spaces before each paragraph mark in text and footnotes

vivka · #2 10-05-2023, 08:05 AM

Hi, RobiNew! As far as I know, Find-Replace is the fastest method:

Code:

Sub Del_Paras_Last_Space

Dim oRng As range
Dim iType As Integer
  For iType = 1 To 2
    Set oRng = ActiveDocument.StoryRanges(iType)
    With oRng.Find
       .ClearFormatting
       .Replacement.ClearFormatting
       .text = " ^p"
       .Replacement.text = "^p"
       .Matchwildcards = False
       .Execute Replace:=wdReplaceAll
    End With
  Next iType
End sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to remove gap between text and footnotes on Mac?	gemmajackson7	Word	1	05-16-2021 07:26 AM
How to Remove trailing spaces AND line breaks in a block of text	JulianS96	Word	4	02-04-2020 04:20 AM
Remove Paragraph / Spaces	sharina1985	Mail Merge	1	10-05-2019 03:52 AM
big spaces appearing automatically in certain parts of the text - how to remove them	pratodifuoco	Word	2	05-26-2017 12:55 PM
editing text and remove spaces	romanticbiro	Word VBA	5	07-04-2014 07:42 PM