Macro word (modification d'une macro de remplacement de texte)

Macro word (modification d'une macro de remplacement de texte) - VB/VBA/VBS - Programmation

Marsh Posté le 18-04-2003 à 09:39:25    

Salut à tous,
 
J'ai fait une petite macro sous word pour remplacer un texte par un autre sous word, donc, c'est très facile, je crée une macro, j'ouvre la fenêtre de remplacement de texte, je remplis les deux zones de texte pour le remplacement et je clique sur le bouton 'remplacer' et le remplacement s'effectue comme par magie sur tout mon document word, ensuite je ferme cette fenêtre et je stoppe la macro.
 
Le hic, c'est que lorsque je veux réexécuter cette macro, le texte à remplacé n'est plus remplacé dans les cadres (zones de texte) mais uniquement dans le doc principal.
 
Le code généré est le suivant:
 

Code :
  1. Selection.Find.ClearFormatting
  2.     Selection.Find.Replacement.ClearFormatting
  3.     With Selection.Find
  4.         .Text = "TEXTAREMPLACER"
  5.         .Replacement.Text = "TEXTEREMPLACE"
  6.         .Forward = True
  7.         .Wrap = wdFindContinue
  8.         .Format = False
  9.         .MatchCase = False
  10.         .MatchWholeWord = False
  11.         .MatchWildcards = False
  12.         .MatchSoundsLike = False
  13.         .MatchAllWordForms = False
  14.     End With
  15.     Selection.Find.Execute Replace:=wdReplaceAll


 
J'ai essayé de mettre une capture d'ecran pour mieux vous expliquer mais mon espace multimania n'est plus accessible.  :fou:  
 
Si vous avez une soluce...


---------------
C17
Reply

Marsh Posté le 18-04-2003 à 09:39:25   

Reply

Marsh Posté le 18-04-2003 à 15:43:17    

[:t c]


---------------
C17
Reply

Marsh Posté le 18-04-2003 à 16:21:59    

Je suis pas sûre d'avoir tout compris, mais ton soucis, c'est que quand tu lances ta macro, ton pointeur n'est pas positionné dans ta zône de texte ?
Si c'est ça, tu peux placer un signet dans ta zône de texte.
Et au début de ta macro, tu fais atteindre signet (nom de ton signet correspondant à ta zône de texte) et puis après, la suite de ta macro.


---------------
NP :
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed