Trouver une occurence et ajouter un texte

Signaler
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
-
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006
-
J'aimerais faire une macro pour qu'à chaque fois que l'occurence "observation" est trouvé dans le document, le texte:"une ou plusieurs" soit insérer juste avant la "manual PageBreak" déjà existante.
Pouvez-vous m'aider ???

2 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut
Pas bien compris la relation entre "observation" et "manual PageBreak" ...
Pour rechercher l'emplacement d'une chaine de caractère, il y cette instruction :
Emplacement = Instr(DébutRecherche, TexteDansLeaquelRechercher, TexteArechercher)
Ensuite, il suffit de jouer avec les Mid ...
TextToFind = "observation"
Emplacement = Instr(MonDocTexte, TextToFind) ' 1ere recherche
Do While Emplacement > 0
MonDocTexte = Left(MonDocTexte, Emplacement + Len(TextToFind)) & _
"La chaine à insérer" & _
Mid(MonDocTexte, Emplacement + Len(TextToFind))
Emplacement = Instr(Emplacement + Len(TextToFind), MonDocTexte, TextToFind)
Loop

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Messages postés
2
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
8 février 2006

Désolé pour l'énoncé. Pas facile d'être clair et concis. Et en plus je débute en VBA en glanant des infos partout ou je peux en fonction de mes besoins.
Voici le design (précision, il s'agit d'un doc Word2002) :

XXX Group Observations* Days Observed
------ ----- ------------------------------------------------
1 1 Normal 1,7

Le listing des observations qui suit peut prendre 1 ,2 voir 3 pages, mais ce n'est qu'en fin de liste, là ou j'ai inséré volontairement une PageBreak que doit venir l'info "* une ou plusieurs"

Un grand merci de m'aider.
TourmalineDeBraine