Add a spacing character before a hard return

RobiNew · #1 11-02-2023, 10:03 AM

I need to insert a spacing character " " before a hard return. I've tried the code here below, but it produces an error. Any idea? Thanks!

Code:

Sub Problem()
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

vivka · #2 11-02-2023, 11:28 AM

RobiNew, your code works smoothly on my documents.

RobiNew · #3 11-03-2023, 12:36 AM

Hi Vivka! It works in the text sector, but in the footnote sector it gives this error: "Runtime Error.
Invalid operation for the end of a line". Thanks!

vivka · #4 11-03-2023, 03:32 AM

It's amazing, because I don't have this error neither on the main text, nor on the footnotes. I will try to experiment.

vivka · #5 11-03-2023, 05:31 AM

RobiNew, I can't detect any problem! May I see your file?

vivka · #6 11-03-2023, 05:44 AM

RobiNew, please, see the attached pics (Before and After running your code):

RobiNew · #7 11-03-2023, 10:45 AM

Hi, Vivka! Of course you are right. The code in question gives an error only in one specific (very large) doc, which I cannot upload because it contains sensitive material. Sorry to have troubled you with this problem. Thanks! À la prochaine!

vivka · #8 11-03-2023, 11:44 AM

Bye until next time!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Replace a hard return with a dash in the text of a footnote	RobiNew	Word VBA	3	11-02-2023 09:22 AM
Macro for Find/replace to remove space before Hard Return	AlfredStreich	Word VBA	4	01-23-2020 03:59 PM
Find / Replace hard Carriage Return with Line break.	GreenBoy	Word	2	03-11-2018 02:32 AM
Hard return renders upper case	clafond	Word	2	01-07-2013 12:26 PM
Hard page return?	markg2	Outlook	0	09-11-2012 08:49 AM