coupure de phrase dans Ms Word,soluce en VBA?

Option Explicit                                ' Evite les fautes de frappe

 
Sub Macro1()

    Dim i As Integer

 
    Selection.GoTo wdGoToPage, wdGoToFirst     ' Allez au début.

    Do While True

        With Selection                         ' On considère le caractère courant

            If .Style <> "Normal" Then         ' Si on n'est pas en style "Normal", on zérote.

            	                                ' Tu dois peut être faire des changements ici.

                i = 0

            Else

                If i = 2 Then                  ' Est-on une case après le retour-chariot ?

                    .MoveLeft wdCharacter, 1   ' On recule d'une case, donc on est sur le retour-chariot

                    .Characters(1) = ""        ' On met RIEN à la place du retour-chariot

                    .MoveRight wdCharacter, 1  ' On avance d'une case.

                    i = 0                      ' C'est fait, on zérote.

                End If

                If .Characters(1) = Chr(13) And i = 1 Then   ' Est-on sur le retour-chariot

                    i = 2

                Else

                    ' Attention, tu veux peut-être considérer l'espace, la ponctuation, etc.

                    ' Ici je te donne la version "Une minuscule avant

                    If .Characters(1) >= "a" And .Characters(1) <= "z" Then i = 1 Else i = 0

                End If

            End If

            If .MoveRight(wdCharacter, 1) = 0 Then Exit Do ' FIN

        End With

    Loop

End Sub

Function EstMin(c As String) As Boolean

     EstMin = (c >= "a" And c <= "z")

End Function

Sub SupprimeParagraphe()

    Selection.Find.ClearFormatting

    ActiveDocument.Select

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "^$^p^$"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    While Selection.Find.Execute

       If EstMin(Left(Selection.Text, 1)) And EstMin(Right(Selection.Text, 1)) Then

         Selection.TypeText Left(Selection.Text, 1) & " " & Right(Selection.Text, 1)

       End If

     Wend

End Sub