Discussion :

[Nerva]

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.

[zoom61]

Salut,

Toujours à fond, voici la solution :

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 = ".\n"
 
		Document = ThisComponent
		SearchReplace = Document.createReplaceDescriptor
		SearchReplace.SearchRegularExpression = true
 
		SearchReplace.SearchString = OldString
		SearchReplace.ReplaceString = NewString
 
		Document.replaceAll(SearchReplace)
 
End Sub

@+.

[Nerva]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zoom61]

Donc :

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 = "\n\n"
 
		Document = ThisComponent
		SearchReplace = Document.createReplaceDescriptor
		SearchReplace.SearchRegularExpression = true
 
		SearchReplace.SearchString = OldString
		SearchReplace.ReplaceString = NewString
 
		Document.replaceAll(SearchReplace)
 
End Sub

[Nerva]

C'est ok, merci...