Delete paragraph mark from end of Range

This is rather trivial compared to other posts here which concern the more important real world of business.
I need help finding a way to delete the paragraph mark at the end of a range of found text.

I have developed a method of saving Word(2003) doc files as HTML without the clutter of additional, unneeded style information from Word even when filtered.

Briefly, I add all the HTML tags in the document window, save as Text then manually change the file extension to HTML. I have the project working but encountered a problem which I was only able to correct by using Find/Replace code afterwards (hiding my ineptitude). I'm certain there is a way to do a cleaner job. After a week of frustrating effort (read getting up at 2:00am because it's on my mind and I can't sleep) I am turning to you for help.

Here's an example of the problem:
I want to add tags to text which is bold as follows:

Some text which is bold - becomes <span class ="bold">Some text which is bold</span>

The doc's bold style can be a font style or a character style. Here's my code for font style, but the same thing happens when dealing with character style for which I had a slightly different procedure.

Code:

---

Sub StyleBold()
    With ActiveDocument.Range.Find
        .ClearFormatting
        .Font.Bold = True
        .Text = ""
        .MatchWildcards = True
        .Replacement.ClearFormatting
        .Replacement.Text = "<span class=""bold"">^&</span>"
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

---

If the bold style occurs at the end of a paragraph, I only want to select the text, not the paragraph mark at the end; otherwise, the HTML tags enclose the paragraph mark.

The result:
original -
Here is some normal text. Here is some bold text.
Another paragraph...

afterwards -
Here is some normal text. <span class="bold">Here is some bold text.
</span>Another paragraph...

what I want -
Here is some normal text. <span class="bold">Here is some bold text.</span>
Another paragraph...

The importance is that the next stage of tagging involves surrounding the paragraphs with <p>...</p>
and the (terrible) result becomes -
<p>Here is some normal text. <span class="bold">Here is some bold text.</p>
<p></span>Another paragraph...</p>

Similarly if the second paragraph starts with bold type I get -
<p>Here is some normal text. <span class="bold">Here is some bold text.</p>
<p>Start of next paragraph in bold</span>Another paragraph...</p>

which should be -
<p>Here is some normal text. <span class="bold">Here is some bold text.</span></p>
<p><span class="bold">Start of next paragraph in bold</span>Another paragraph...</p>

I am able to correct this using F/R but it's clunky!

I suspect that Range.MoveEnd Unit:=wdCharacter, Count:=-1 should be used to reduce the range and remove the paragraph mark from the range, but for the life in me I can't figure out where to put this code.

I thought the following may work - but not so.

Code:

---

Sub removePara()
    Dim aRange As Range
    Set aRange = ActiveDocument.Range(Start:=0, End:=0)
    With aRange.Find
        .ClearFormatting
        .Text = ""
        .Font.Bold = True
        .Execute FindText:="", Format:=True, Forward:=True
        If .Found Then
            aRange.MoveEnd Unit:=wdCharacter, Count:=-1
        End If
        With .Replacement
            .ClearFormatting
            .Text = "<span class=""bold"">^&</span>"
        End With
        .Execute Replace:=wdReplaceAll, Format:=True
    End With
End Sub

---

It looks like I can't change arange in the middle of a Find operation.
Is the solution along lines of:

Code:

---

aRange.Text = Left(aRange.Text, Len(aRange.Text) - 1)

---

but again, how to incorporate this?

No edit button!

Aha! Must be a time limit on how long the Edit button is available, otherwise I would have deleted the original post.

Since no clear solution was provided maybe this is an option

Code:

---

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

---