Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/10/2011, 16h55   #1
Invité de passage
 
Homme
Étudiant
Inscription : octobre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : octobre 2011
Messages : 8
Points : 1
Points : 1
Par défaut Appliquer macro word à texte sélectionné

Bonjour,
je me suis fait une petite macro word pour supprimer toutes les parenthèses d'un texte ainsi que leur contenu.
J'aimerais que cette macro ne s'applique qu'au texte que j'ai préalablement sélectionné, est-ce possible ?
voici la macro :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro3()
'
' Macro3 Macro
' supprime tout le contenu entre ()
'
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
potiocom est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/10/2011, 18h21   #2
Responsable Word

 
Avatar de Heureux-oli
 
Homme Olivier Lebeau
Contrôleur d'industrie
Inscription : février 2006
Messages : 17 333
Détails du profil
Informations personnelles :
Nom : Homme Olivier Lebeau
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Contrôleur d'industrie
Secteur : Aéronautique - Marine - Espace - Armement

Informations forums :
Inscription : février 2006
Messages : 17 333
Points : 29 239
Points : 29 239
Salut,

Il faut enever le Selection.HomeKey qui déplace la sélection au début du document pour être éxécutée sur l'intégralité du document.
__________________
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA

Mes articles


Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Heureux-oli est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/10/2011, 18h31   #3
Invité de passage
 
Homme
Étudiant
Inscription : octobre 2011
Messages : 8
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : octobre 2011
Messages : 8
Points : 1
Points : 1
Merci pour la réponse mais je souhaiterais appliquer la macro seulement au texte que j'ai préalablement sélectionné si c'est possible.
potiocom est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/10/2011, 19h20   #4
Modérateur
 
Homme Christophe CHAPAT
Spécialiste progiciel
Inscription : février 2010
Messages : 984
Détails du profil
Informations personnelles :
Nom : Homme Christophe CHAPAT
Âge : 25
Localisation : France, Haute Loire (Auvergne)

Informations professionnelles :
Activité : Spécialiste progiciel
Secteur : Service public

Informations forums :
Inscription : février 2010
Messages : 984
Points : 1 597
Points : 1 597
Envoyer un message via MSN à carden752
Bonjour,

Il faut dire à Word de ne pas chercher sur la suite du document.
Code :
1
2
3
4
with selection.find
.forward=false 
.wrap=wdfindstop
End with
__________________
Cordialement,
Christophe

Merci de ne pas oublier de mettre résolu quand le sujet l'est. Cela aide tous les DVPnautes dans leur recherche
carden752 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 12h02.


 
 
 
 
Partenaires

Hébergement Web