Zoeken & Vervangen

[Excelvbas01]

Ik heb een Excel bestand en een word bestand. Vanaf Excel zoek ik een woord in WORD en deze wordt vervangen door een ander tekst. Tot dusver gaat het goed. Wat ik zou willen is het volgende.
Soms bevindt de tekst waar ik naar zoek, helemaal onderaan in WORD document. Ik moet dan handmatig er naar toe scrollen.
Is het mogelijk om dit te automatiseren. Ik bedoel, als de tekst is gevonden, dat er automatisch gescrold wordt naar dat woord.

Ik heb gezocht en geprobeerd maar helaas.

Ik hoop hier het antwoord te vinden.

 

[AHulpje]

Zo positioneer je na je vervangactie de cursor direct na de eerste vervangen tekst:

   wordApp.Selection.Find.Execute FindText:="Zoeken en vervangen"
   wordApp.Selection.Move Unit:=12, Count:=1

 

[snb]

Vermijd enige 'selection'

activedocument.content.find.execute

bevat parameters voor te vervangen tekst (en zo vaak je maar wil)

 

[Excelvbas01]

Top, het werkt zoals ik wilde.

Beiden bedankt.