Since no clear solution was provided maybe this is an option

Sub RemoveParagraphMarksAfterFoundText()
    Dim oRange As Range
    Dim oFoundRange As Range
    Dim sFindText As String
    sFindText = InputBox("Enter the text to find:")
    If sFindText = "" Then 
       Exit Sub 
       ' Exit if no text entered
       Set oRange = ActiveDocument.Content
       Set oFoundRange = oRange.Duplicate
       With oFoundRange.Find
           .ClearFormatting
           .Text = sFindText
           .Forward = True
           .Wrap = wdFindStop
           .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
           Do While .Execute(FindText:=sFindText)
                ' Check if there's a paragraph mark immediately after the found text.
               If oFoundRange.Characters(oFoundRange.Characters.Count + 1).Text = vbCr Then 
                  ' vbCr is the carriage return character, which represents a paragraph mark.
                  oFoundRange.Characters(oFoundRange.Characters.Count + 1).Delete 
                  ' Delete the paragraph mark.
              End If
              oFoundRange.Collapse wdCollapseEnd 
              ' Move the found range to the end of the found text.
             oFoundRange.Find.Execute 
             ' Find the next instance.
         Loop
    End With
    Set oFoundRange = Nothing
    Set oRange = Nothing
End Sub