Microsoft Office Forums - View Single Post - [Solved] Edit a paragraph with a section break

eduzs · 07-15-2020, 03:01 PM

Thanks all! This workaround works well for my need:

Code:

Dim x as long, oDoc as document, sTmp as string

Set oDoc = activedocument

For x = 1 To oDoc.Paragraphs.Count
    sTmp = oDoc.Paragraphs(x).range.Text
    If InStr(sTmp, Chr(12)) > 0 And Len(sTmp) > 2 Then
        oDoc.Paragraphs(x).range.Select
        With Selection
            .Collapse direction:=wdCollapseEnd
            .MoveLeft unit:=wdCharacter, Count:=1
            .TypeText Chr(13) & Chr(13)
        End With
    End If
Next x