Edit a paragraph with a section break

[eduzs]

Hi there!
I need a find/replace vba code to do that:


Paragraph before:
any text-Section Break Mark-
Paragraph After:
any text*
*-Section Break Mark-
Where * = paragraph mark
The code should not replace when the paragraph contains only the section break mark.
I will appreciate any help.
Thanks in advance.

[eduzs]

Thanks all! This workaround works well for my need:

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

[eduzs]

How do I identify a section break instead of a page break as word identify all as chr(12)?

Breaks types:

wdPageBreak
wdColumnBreak
wdSectionBreakNextPage
wdSectionBreakContinuous
wdSectionBreakEvenPage
wdSectionBreakOddPage
wdLineBreak
wdLineBreakClearLeft
wdLineBreakClearRight
wdTextWrappingBreak

How can I identify if there's a specific break in a selection? (e.g. wdSectionBreakNextPage)

[Guessed]

Well for starters, if I wanted to know if there was a section break in my selection and if so, what type it was, I might try something like this.

Sub WhatIsIt()
  Dim aRng As Range
  If Selection.Sections.Count > 1 Then
    MsgBox "Section Break Type: " & Selection.Sections.Last.PageSetup.SectionStart
  Else
    MsgBox "You don't have a section break there"
  End If
End Sub

When it comes to the other break types, I'm seeing ascii values of 11 and 14 for column and line breaks.

[eduzs]

Thanks! This works to identify the presence of a certain break type.