Macro word

[C@thy]

Oups! Je me suis trompée en postant sur le forum Excel! (mille pardons, monsieur le modo d'excel!!!)

Voilà, je cherche à supprimer tout ce qui est entre parentrèses, les parenthèses incluses, j'ai essayé ceci

With Selection.Find
.MatchWildcards = True
.Execute FindText:="((*))", Format:=True, Forward:=True
End With

mais ça ne fonctionne pas!

Un grand merci à tous ceux (ou celles) qui pourraient m'aider ou m'apporter une approche de solution.

Bises et bonne journée

P.S. je dois supprimer également ce qui est entre crochets []. Je pense qu'on peut faire les 2 en même temps?

Bises

C@thy

 

[C@thy]

Re : Macro word

Ouf!

Après avoir galéré des heures, je suis arrivée à ceci :

Sub Parentheses()
'
' Macro enregistrée le 01/04/2009 par C@thy
'
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "(\(*\))"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Sub Crochets()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "(\[*\])"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub

Peut-être qu'on peut faire en une seule fois (si un spécialiste passe par là, merci de me corriger).
J'ai encore de GROS progrès à faire...

Bises à tous

C@thy

 

[C@thy]

Re : Macro word

P'têt que c'est pas possible!!!

Bises

C@thy

 

[gfortin9]

Re : Macro word

Allô!

À part le Screenupdating que j'ai enlevé et la deuxième partie qui concerne les crochets, ta macro fonctionne bien sous Word 2003.

C'est quoi le problème ?

Gfortin

Sub Parentheses()
'
' Macro enregistrée le 01/04/2009 par C@thy
'
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "(\(*\))"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub

 

[C@thy]

Re : Macro word

Bonjour gfortin9,
Merci pour ta réponse.
le problème c'est qu'il y a 2 macros, j'ai essayé de mettre les ( et les [ dans la même recherche
mais j'ai pas réussi.
Biz

C@thy

 

[gfortin9]

Re : Macro word

Allô!

Les deux bout à bout tout simplement

Gfortin

Sub Parentheses()
'
' Macro enregistrée le 01/04/2009 par C@thy
'
Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "(\(*\))"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With

Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "(\[*\])"
.Replacement.Text = ""
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub

 

[C@thy]

Re : Macro word

Vi, ça je sais faire! Lol! Mais je sais qu'il y a sur ce site des spécialisres très doués capables de faire plusieurs trucs en une seule instruction. On gagne des lignes...

Bon ouik

C@thy

 

[gfortin9]

Re : Macro word

Allô!

Bon un peu de ménage des duplicatas
Pour plus de synthèse, je vais attendre que tes connaissances s'améliorent pour améliorer les miennes en te lisant

Sub Parentheses()
'
' Macro enregistrée le 01/04/2009 par C@thy
'
Selection.HomeKey unit:=wdStory
With Selection.Find
.MatchWildcards = True
.Text = "(\(*\))"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = "(\[*\])"
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End Sub

À plus ...
GFortin

 

[Pyrof]

Re : Macro word

Bonjour,

On peut faire les 2 en mêmes temps mais et oui il y a un mais

si tu as les combinaisons
[mon texte]
[mon texte)
(mon texte]
(mon texte)

qui seront supprimées

tu fais rechercher : [\[\(]*[\]\)]

 

[C@thy]

Re : Macro word

Super réponse, Pyrof,

encore une fois tu as sorti l'arme atomique...
Bravooooooooooooo!

Merci merci merci et
big bisous

C@thy

 

[C@thy]

Re : Macro word

Coucou!!!

Ca marche super nickel.

En fait on ne trouve pas les combinaisons [...()] mais on pourrait trouver
(...(...)...) et là, forcément, ça va coincer quelquepart...
comme quoi le mieux est souvent l'ennemi du bien...

Pendant que j'y suis, je gère des biographies, et surtout la production littéraire de ces personnes.
Un truc qui ne m'intéresse pas du tout c'est le nombre de cm du bouquin (si si, j'ai l'info!!!) comment supprimer un nombre quelconque suivi de espace cm (25 cm par ex.) par contre je dois garder le nombre de pages (256 p.) et l'année du bouquin.

C'est possible ce truc??? (Encore un casse-tête!).

Bizzz et un grand merci pour toutes tes compétences.

C@thy

 

[Pyrof]

Re : Macro word

Bonjour

1) le / en gris, je ne vois pas pourquoi, serait-ce un texte masqué, un code de camp.

2) il faudrait que je fasse des tests mais je n'ai pas trop de temps



3) 25 cm
.text="[0-9]{1;}[^0160^032]cm"
.replacement.text=""
ou :
[0-9] : tout chiffre de 0 9
{1;} = caractère précédent répété minimum 1 fois et sans limite si {1;5} =>mini 1, maxi 5
[^0160^032] : un caractère = à ^0160 blanc insécable ou ^032 espace normal
le tout suivi de cm

 

[C@thy]

Re : Macro word

Non, le / en gris, c'est une erreur de ma part (j'ai modifié le post depuis), il était déjà là avant.

Merci beaucoup, c'est SUPER. J'apprécie vraiment ton aide et ta gentillesse, d'autant plus que ce que je demande est toujours très compliqué...

Bises

C@thy

 

[C@thy]

Re : Macro word

GENIALLLLL!!!

Ceci fonctionne parfaitement!

Selection.HomeKey unit:=wdStory
With Selection.Find
.Text = "[0-9]{1;}[^0160^032]cm"
.MatchWildcards = True
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With

Waooooo! Trop fort!!!!

Un immense MERCI à toi, c'est GEANT!!!

Bises

C@thy