Macro d'ajout de paragraphes vides erronée

Bonjour.

J'ai créé une macro qui ajoute un paragraphe vide entre chaque paragraphe (utile pour des textes publiés sur un forum, par exemple) mais j'ai un problème : le dernier caractère de chaque paragraphe est supprimé.

Voici la macro :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ParasVides_Ajout   Dim Document As Object Dim SearchReplace As Object Dim OldString As String , NewString As String   OldString = ".$" NewString = chr(10)   Document = ThisComponent SearchReplace = Document.createReplaceDescriptor SearchReplace.SearchRegularExpression = true   SearchReplace.SearchString = OldString SearchReplace.ReplaceString = NewString   Document.replaceAll(SearchReplace)   End Sub

---

Merci.

Salut,

Toujours à fond, voici la solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ParasVides_Ajout   Dim Document As Object Dim SearchReplace As Object Dim OldString As String , NewString As String   OldString = ".$" NewString = ".\n"   Document = ThisComponent SearchReplace = Document.createReplaceDescriptor SearchReplace.SearchRegularExpression = true   SearchReplace.SearchString = OldString SearchReplace.ReplaceString = NewString   Document.replaceAll(SearchReplace)   End Sub

---

@+.

Non, pas bon, puisque cette modification suppose que tous les paragraphes se terminent par un point. Or, ce n'est pas toujours le cas : point d'exclamation, point d'interrogation ou points de suspension. Sans compter les titres qui ne sont pas ponctués...

Quand j'étais sous Word j'utilisais cette macro qui faisait le boulot parfaitement mais je n'arrive pas à l'adapter :

Code:

---

1 2 3 4 5 6 7 8

Sub ParagraphesVides_Ajout() Dim para As Paragraph   For Each para In ActiveDocument.Paragraphs para.Range.InsertBefore Chr(13) Next para   End Sub

---

Donc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ParasVides_Ajout   Dim Document As Object Dim SearchReplace As Object Dim OldString As String , NewString As String   OldString = "$" NewString = "\n\n"   Document = ThisComponent SearchReplace = Document.createReplaceDescriptor SearchReplace.SearchRegularExpression = true   SearchReplace.SearchString = OldString SearchReplace.ReplaceString = NewString   Document.replaceAll(SearchReplace)   End Sub

---

C'est ok, merci... :ccool: