Word 2010 VBA Macro: boucle à la fin du document
J'ai enregistré une macro simple pour trouver le mot "Quantité", allez à la fin de la ligne et insérer un retour chariot. J'ai besoin de le répéter à la fin du document et quitter, ou bien je vais avoir une boucle infinie.
Le code:
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Quantity:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
- Et quel est le problème que vous rencontrez? Comme avec l'ensemble de la programmation, veuillez être précis.
- Le mot "quantité" répète un nombre quelconque de fois dans le document, et je ne sais pas comment répéter la macro jusqu'à la fin du document et de s'arrêter.
Vous devez vous connecter pour publier un commentaire.
Vous changer de code pour cette, remarque l'utilisation de wdFindStop.
Si vous avez le type de documents, ce qui peut échouer, vous pouvez utiliser la Sélection.Commencez par
le remplacement de la boucle comme ceci:
Ajouter
Selection.Find.Execute Replace:=wdReplaceAll
après votre Fin avec