Discussion :

[Nerva]

Bonjour.

En utilisant l'enregistreur de macros, j'en ai créé une qui recherche et supprime tous les paragraphes vides dans un document. Ca donne ceci :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
' Suppression des paragraphes vides
 
sub ParasVides_Sup
 
dim document as object
dim dispatcher as object
 
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
 
dim args1(18) as new com.sun.star.beans.PropertyValue
	args1(0).Name = "SearchItem.StyleFamily"
	args1(0).Value = 2
	args1(1).Name = "SearchItem.CellType"
	args1(1).Value = 0
	args1(2).Name = "SearchItem.RowDirection"
	args1(2).Value = true
	args1(3).Name = "SearchItem.AllTables"
	args1(3).Value = false
	args1(4).Name = "SearchItem.Backward"
	args1(4).Value = false
	args1(5).Name = "SearchItem.Pattern"
	args1(5).Value = false
	args1(6).Name = "SearchItem.Content"
	args1(6).Value = false
	args1(7).Name = "SearchItem.AsianOptions"
	args1(7).Value = false
	args1(8).Name = "SearchItem.AlgorithmType"
	args1(8).Value = 1
	args1(9).Name = "SearchItem.SearchFlags"
	args1(9).Value = 65536
	args1(10).Name = "SearchItem.SearchString"
	args1(10).Value = "^$"
	args1(11).Name = "SearchItem.ReplaceString"
	args1(11).Value = ""
	args1(12).Name = "SearchItem.Locale"
	args1(12).Value = 255
	args1(13).Name = "SearchItem.ChangedChars"
	args1(13).Value = 2
	args1(14).Name = "SearchItem.DeletedChars"
	args1(14).Value = 2
	args1(15).Name = "SearchItem.InsertedChars"
	args1(15).Value = 2
	args1(16).Name = "SearchItem.TransliterateFlags"
	args1(16).Value = 1280
	args1(17).Name = "SearchItem.Command"
	args1(17).Value = 3
	args1(18).Name = "Quiet"
	args1(18).Value = true
dispatcher.executeDispatch(document, ".uno:ExecuteSearch", "", 0, args1())
 
end sub

Cette macro fonctionne mais elle me paraît "lourde". J'ai donc testé cette macro "standard" de recherche/remplacement :

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
Sub Test()
 
	Dim Document As Object
	Dim SearchReplace As Object
	Dim OldString As String , NewString As String
 
		OldString = "^$"
		NewString = ""
 
		Document = ThisComponent
		SearchReplace = Document.createReplaceDescriptor
 
		SearchReplace.SearchString = OldString
		SearchReplace.ReplaceString = NewString
		Document.replaceAll(SearchReplace)
 
End Sub

Mais elle ne fonctionne pas pour la suppression de paragraphes vides. Pour la valeur OldString, j'ai essayé les codes "Chr()" mais sans effet également.

Merci de l'aide.

[zoom61]

Salut,

Ta première macro tient compte des "expressions régulières" comme le paragraphe, le saut de ligne, etc.

Ta seconde ne tient pas compte des "expressions régulières".


@+.

[Nerva]

Je crois que j'ai trouvé en rajoutant cette ligne :

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 Test()

	Dim Document As Object
	Dim SearchReplace As Object
	Dim OldString As String , NewString As String
	
		OldString = "^$"
		NewString = ""
		
		Document = ThisComponent
		SearchReplace = Document.createReplaceDescriptor
		SearchReplace.SearchRegularExpression = true
		
		SearchReplace.SearchString = OldString
		SearchReplace.ReplaceString = NewString
		
		Document.replaceAll(SearchReplace)

End Sub

Cette macro est-elle bien "académique" ?

[zoom61]

Oui effectivement, avec cette ligne cela fonctionne.

Je pensais que tu demandais dans ta première question pourquoi cela ne fonctionnait pas et pas que tu voulais la solution.

@+.