Find and replace paragraph mark on selected text and replace it with space in PowerPoint VBA

laith93 · #1 11-09-2023, 04:34 AM

Hi,
I always copy from pdf files or webpage and appear as the follows:
46.png
All these lines belong to a single paragraph, so how to replace the paragraph mark on selected text inside textbox with space, I want to apply to selected text to prevent its effect on previously oragnized paragraph in the same text box.
I applied this code, but doesn't make sense

Code:

Sub findandreplacetext()
Dim sld As Slide
Set sld = ActivePresentation.Slides(1)
Dim shp As Shape
For Each shp In sld.Shapes
If shp.HasTextFrame Then
    If shp.TextFrame.HasText Then
        shp.TextFrame.TextRange.Text = Replace(shp.TextFrame.TextRange.Text, "vbCrLf", " ")
    End If
End If
Next shp
End Sub

I don't know what is the problem with this code, I replaced vbCrLf to char(13), but also nothing.
Any suggestion please
Thanks

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find and replace only within selected text.	eduzs	Word VBA	0	02-08-2023 09:31 AM
a macro to replace paragraph mark with a space applies effect on paragraph marks after the selection	drrr	Word VBA	2	08-24-2021 03:05 AM
Skip double paragraph mark during find and replace in MS Word?	Jakov93	Word VBA	2	07-13-2021 11:07 PM
Find and Replace Selected Text or Macro for finding selected text	mrplastic	Word VBA	4	12-20-2019 01:25 PM
Replace space with paragraph mark	jeffreybrown	Word VBA	8	08-22-2018 03:31 PM