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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.