coupdepoucepc.fr
Assistance & dépannage informatique gratuits en ligne.

Connexion

Pseudo :

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

S'inscrire !

Menu principal


Qui est passé ?


albatroxm13
il y a 8 heures 34 minutes

Legionnair
il y a1 jour 10 heures 47 minutes

flo88
il y a6 jours 20 heures 18 minutes

Joanna
il y a6 jours 21 heures 36 minutes

anthony0371
il y a8 jours 20 heures 6 minutes

RSM
il y a9 jours 17 heures 24 minutes

Nouveaux membres


     
 
cdppc.fr >> Accueil >>> Boucle dans macro dans Word [Forums - Problème système / logiciel ]
Bienvenue sur CoupDePoucePc !! Nous sommes le et il est déjà




Coupdepoucepc.fr est un site d’entraide et de dépannage informatique en ligne, totalement gratuit.
L'équipe est composée de passionnés, bénévoles, désireux de vous aider rapidement dans une ambiance conviviale.

>>> Comment créer un sujet et y exposer son problème ?<<<

 
     
     
 

Regarde ce sujet :   1 Utilisateur(s) anonymes





Boucle dans macro dans Word
#1
Coupdepoucien
Inscrit depuis le : 07 01 2009
Mes configs
Messages: 66
Hors Ligne
Bonjour,

Je voudrais faire des macros dans Word, pour faire des suppressions automatiques ou des déplacements automatiques de paragraphes standardisés.
J'ai créé une macro via le machin Word qui enregistre les actions faites au clavier (moi-même je sais pas écrire de code Visual Basic, je n'y connais rien du tout), le problème, c'est que je sais pas comment faire une boucle pour que les actions se fassent sur chaque nouveau paragraphe et ce jusqu'à la fin du document Word: ça s'arrête à la fin du premier paragraphe.
Je suis débutant et je comprends pas encore bien le Visual Basic, alors je crois qu'il y a un truc avec "Loop" mais je sais pas comment faire concrètement et je comprends pas ce que je peux voir sur internet à ce sujet...
Est-ce que qn peut m'aider? Merci d'avance.

Je vous poste le code obtenu jusqu'à présent:


Sub XmlToLpEffacerChampsInutiles
()
'
XmlToLpEffacerChampsInutiles Macro
' Macro enregistrée le 09/11/2013 par JeanClaude
'
    
Selection.Find.ClearFormatting
    With Selection
.Find
        
.Text "<identifiant>"
        
.Replacement.Text ""
        
.Forward True
        
.Wrap wdFindContinue
        
.Format False
        
.MatchCase False
        
.MatchWholeWord False
        
.MatchWildcards False
        
.MatchSoundsLike False
        
.MatchAllWordForms False
    End With
    Selection
.Find.Execute
    Selection
.MoveLeft Unit:=wdCharacterCount:=1
    Selection
.MoveDown Unit:=wdParagraphCount:=1

Extend:=wdExtend
    Selection
.TypeBackspace
    Selection
.Find.ClearFormatting
    With Selection
.Find
        
.Text "<image>"
        
.Replacement.Text ""
        
.Forward True
        
.Wrap wdFindContinue
        
.Format False
        
.MatchCase False
        
.MatchWholeWord False
        
.MatchWildcards False
        
.MatchSoundsLike False
        
.MatchAllWordForms False
    End With
    Selection
.Find.Execute
    Selection
.MoveLeft Unit:=wdCharacterCount:=1
    Selection
.MoveDown Unit:=wdParagraphCount:=3

Extend:=wdExtend
    Selection
.TypeBackspace
    Selection
.Find.ClearFormatting
    With Selection
.Find
        
.Text "<enqueteur>"
        
.Replacement.Text ""
        
.Forward True
        
.Wrap wdFindContinue
        
.Format False
        
.MatchCase False
        
.MatchWholeWord False
        
.MatchWildcards False
        
.MatchSoundsLike False
        
.MatchAllWordForms False
    End With
    Selection
.Find.Execute
    Selection
.MoveLeft Unit:=wdCharacterCount:=1
    Selection
.MoveDown Unit:=wdParagraphCount:=11

Extend:=wdExtend
    Selection
.TypeBackspace
    Selection
.Find.ClearFormatting
    With Selection
.Find
        
.Text "<DonneesMorpho>"
        
.Replacement.Text ""
        
.Forward True
        
.Wrap wdFindContinue
        
.Format False
        
.MatchCase False
        
.MatchWholeWord False
        
.MatchWildcards False
        
.MatchSoundsLike False
        
.MatchAllWordForms False
    End With
    Selection
.Find.Execute
    Selection
.MoveLeft Unit:=wdCharacterCount:=1
    Selection
.MoveDown Unit:=wdParagraphCount:=2

Extend:=wdExtend
    Selection
.TypeBackspace
    Selection
.Find.ClearFormatting
    With Selection
.Find
        
.Text "<type>"
        
.Replacement.Text ""
        
.Forward True
        
.Wrap wdFindContinue
        
.Format False
        
.MatchCase False
        
.MatchWholeWord False
        
.MatchWildcards False
        
.MatchSoundsLike False
        
.MatchAllWordForms False
    End With
    Selection
.Find.Execute
    Selection
.MoveLeft Unit:=wdCharacterCount:=1
    Selection
.MoveDown Unit:=wdParagraphCount:=9

Extend:=wdExtend
    Selection
.TypeBackspace
End Sub


Posté le : 09/11/2013 21:24






Re: Boucle dans macro dans Word
#2
Inscrit depuis le : 03 12 2008
Mes configs
Messages: 5353
Hors Ligne
Salut,

Il y a bien trop longtemps que je n'utilise plus le VB pour pouvoir t'aider !!!

Je te donnes l'adresse du meilleur site pour apprendre gratuitement le VB, le site du Zéro

Zéro, car on peut commencer à zéro sans aucune connaissance

En principe, ils avaient aussi un forum sur lequel on pouvait demander de l'aide pour une programmation

Cliques sur ce lien



@+ ag

Posté le : 11/11/2013 01:44
_________________
En toutes choses, il convient de se hâter lentement








Re: Boucle dans macro dans Word
#3
Coupdepoucien
Inscrit depuis le : 07 01 2009
Mes configs
Messages: 66
Hors Ligne
Merci, je vais aller regarder ça !
(cela dit il est probable que je sous en-dessous de zéro en programmation )

Posté le : 11/11/2013 18:23







 Haut   Précédent   Suivant




[Recherche avancée]