.InsertAfter - insert in the same paragraph

[dagerr]

Hi, the following code add text after paragraph but on begin of next paragraph e.g.:


Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur.
</Body>

Sub test_xml()


Dim lPar As Paragraph
    For Each lPar In ActiveDocument.Range.Paragraphs
       
            If lPar.Range.Font.Bold = True _
               And lPar.Range.Font.Size = 9 _
               And Len(lPar.Range) > 2 Then
               
                
                lPar.Range.InsertAfter "</Body>"
            End If
    Next
    End Sub

I want to add text after paragraph end but on the same paragraph:
Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. </Body>


I figured out that part of code below work properly but not every time:

lPar.Range.Characters.last.InsertBefore "</Body>"

instead of:

lPar.Range.InsertAfter "</Body>"

Is there straight syntax to solve that problem?

[gmayor]

A paragraph range includes the paragraph end character so reduce the range to eliminate that e.g. as follows. It will work provided the paragraphs meet the criteria you have set.

Sub test_xml()
Dim lPar As Paragraph
Dim oRng As Range
    For Each lPar In ActiveDocument.Range.Paragraphs
        Set oRng = lPar.Range
        oRng.End = oRng.End - 1
        If oRng.Font.Bold = True _
           And oRng.Font.Size = 9 _
           And Len(oRng) > 1 Then
            oRng.InsertAfter "</Body>"
        End If
    Next lPar
    Set lPar = Nothing
    Set oRng = Nothing
End Sub

[macropod]

Or a wildcard Find/Replace, where:
Find = ([!^13]@)(^13)
Replace = \1</Body>\2
and the font attributes are included as Find parameters. A macro so coded is likely to be much faster than one that loops through all paras.