Remove spaces before each paragraph mark in text and footnotes

RobiNew · #14 10-06-2023, 11:35 PM

Hi Vivka! Of course I will post an example of my text, but first I'd like to ask you again: since my footnotes do not contain multiple spaces, but only one space before the only ^p at the end, couldn't you simply modify the code here below so as to delete the space instead of inserting it? Thanks!

Code:

Sub InsertSpace()
Dim aRng As Range
Dim iType As Integer
Dim Para As Paragraph
  For iType = 1 To 2
Set aRng = ActiveDocument.StoryRanges(iType)
For Each Para In aRng.Paragraphs
Para.Range.Characters.Last.InsertBefore " "
Next Para
Next iType
Set aRng = Nothing
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