Macro word

C@thy

XLDnaute Barbatruc

• 1 Avril 2009

• #2

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 2 Avril 2009

• #3

Re : Macro word

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

Bises

C@thy

 

Vote positif 0 Vote négatif

gfortin9

XLDnaute Occasionnel

• 2 Avril 2009

• #4

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

Cliquez pour agrandir...

 

Dernière édition: 2 Avril 2009

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 3 Avril 2009

• #5

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

 

Vote positif 0 Vote négatif

gfortin9

XLDnaute Occasionnel

• 3 Avril 2009

• #6

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 3 Avril 2009

• #7

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

 

Vote positif 0 Vote négatif

gfortin9

XLDnaute Occasionnel

• 4 Avril 2009

• #8

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

Cliquez pour agrandir...

À plus ...
GFortin

 

Dernière édition: 5 Avril 2009

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 22 Avril 2009

• #9

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 : [\[\(]*[\]\)]

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 22 Avril 2009

• #10

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 13 Mai 2009

• #11

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

 

Dernière édition: 13 Mai 2009

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 14 Mai 2009

• #12

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 14 Mai 2009

• #13

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

 

Vote positif 0 Vote négatif

C@thy

XLDnaute Barbatruc

• 14 Mai 2009

• #14

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

 

Vote positif 0 Vote négatif