Discussion :

[Goldorak83]

Bonjour,

Je dois traduire un gros livre (200 pages) et les tomes suivants de l'anglais vers le français. Le problème est que la version que je possède comporte de nombreuses marques de fin de paragraphe en plein milieu de phrases. Et ceci des milliers de fois.
J'ai donc créé une macro qui fait le travail en plusieurs étapes afin de nettoyer le texte de tout un tas de bizarreries. Tout fonctionne bien jusqu'à la dernière étape où je dois remettre un caractère de fin de paragraphe à chaque fin de paragraphe. J'ai donc remplacé ce caractère "$" par un caractère non utilisé "µ". A la dernière étape, je remplace le caractère de substitution "µ" par "\n" dans le mode "Expression régulière". Et là, bizarrement, ça ne me remplace que 1, 2 ou 3 caractères seulement. Pour tout faire, il faut que je relance la macro. Je sais que je peux toujours le faire avec la boite "rechercher et remplacer alternatif" qui fonctionne bien en une seule passe, mais j'aimerais bien finir ma macro. D'autant plus que pour traiter un livre de 200 pages, cela risque de prendre la nuit.

Voici donc la partie condensée de la macro qui me pose problème :

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
Sub Reformate_texte_a_traduire()
' **************************************************
' cette macro remplace le caractère "µ" par une fin de paragraphe
' **************************************************
Dim monDocument as Object
Dim jeCherche as Object
Dim compteur as Long	' nb d'occurences trouvées et/ou remplacées
Dim Entree as String
Dim Sortie as String
 
monDocument = ThisComponent
compteur = 0
 
Entree = "µ"
Sortie = "\n"
 
monDocument = ThisComponent
jeCherche = monDocument.createReplaceDescriptor
jeCherche.SearchRegularExpression = True
jeCherche.SearchString = Entree
jeCherche.ReplaceString = Sortie
compteur = monDocument.replaceAll(jeCherche)
 
Print "Nombre de remplacements : " & compteur
 
End sub

Et un petit texte de test avec 6 remplacements :

Bonjour à tous.µCeci est un texte de test.µIl va servir à tester la conversion du caractère "Mu" en caractère de fin de paraphaphe.µPar une macro, cela devrait fonctionner en une seule passe mais la macro ne me remplace que 1 ou 2 caractères quand ça lui plait.µPourtant, ça marche très bien avec l'outil "Alt. rechercher-remplacer" du menu avec l'option "Expressions régulières.µMerci de m'aider.µJean-Luc

Je vous remercie d'avance.

[Bidouille]

Pas besoin de macro pour ce genre d'opération.
Vous avez l'extension AltSearch qui permet ce type de remplacement de façon ludique.


.

[Jipété]

Je vous remercie d'avance.

Bizarre.

Avec mon vieux LO 3.5.4.2 la macro, insérée par copier/coller depuis ici, s'est exécutée d'un seul coup en m'indiquant 6 remplacements et un texte correct après exécution :

la macro ne me remplace que 1 ou 2 caractères quand ça lui plait.

Je m'étais positionné au début du document avant de l'exécuter, je viens de réessayer en étant positionné vers la fin et ça s'exécute tout aussi bien.

[Goldorak83]

Pas besoin de macro pour ce genre d'opération.
Vous avez l'extension AltSearch qui permet ce type de remplacement de façon ludique.
.

Oui, je connais et je l'ai utilisé. Ca fonctionne bien. mais je veux utiliser la procédure dans une macro, car c'est la dernière opération d'une macro avec beaucoup d'autres remplacements.

[Goldorak83]

Avec mon vieux LO 3.5.4.2 la macro s'est exécutée d'un seul coup en m'indiquant 6 remplacements et un texte correct après exécution .
[...]
Je viens de réessayer en étant positionné vers la fin et ça s'exécute tout aussi bien.

Merci d'avoir essayé. Ca me rassure que cette macro s'exécute bien. J'ai pensé à un bug de ma version de LO. Ton test confirmerait cette option. D'ailleurs, je n'arrive plus à enregistrer une macro. La version de mon LO est 5.1.6.2.

Je vais essayer sur un autre ordi.

Merci d'avoir testé.

[Goldorak83]

Ca fonctionne sur un autre ordinateur. C'est donc ma version de Libre Office qui est buguée. Je vais la réinstaller dès que j'aurai le temps.
Pour contourner provisoirement le problème, j'ai utilisé l'enregistreur de macros de mon 2ème ordi.
Ma macro fonctionne, c'est l'essentiel pour moi.

Merci à tous pour votre aide.

Je classe l'affaire.