Delete paragraph mark from end of Range

[Talis]

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.


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.


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:

aRange.Text = Left(aRange.Text, Len(aRange.Text) - 1)
but again, how to incorporate this?

[Talis]

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.

[Aussiebear]

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