Gegevenslijsten kopiëren vanuit Word naar Excel

[ThimKoemans]

Hi all,

Ik krijg van mijn manager regelmatig de opdracht om grote (400+) lijsten met gegevens vanuit Word naar Excel te verplaatsen.
Dit gaat vaak om lijsten met een naam, functie, land en bedrijfsnaam.
voorbeeld van 2 gegevens:

----------------------------------------------------------------------------------------------------
Bijenkorf (Jan Janssen) Nederland - Meeting Planner


Bijenkorf (Jansje Janstra) Nederland - Account Manager
----------------------------------------------------------------------------------------------------

Bovenstaand is het geval. De woorden zijn niet afgescheiden door tekens (meestal), er staan ook vaak enters tussen.

Mijn vraag is als volgt:
Is er überhaupt een mogelijkheid om dergelijke gegevensbestanden vanuit Word naar Excel te verplaatsen, waarbij elk woord een eigen cel krijgt?
Het is namelijk mijn opdracht om zowel voor- als achternaam, functie, bedrijf en land van herkomst een eigen kolom te geven binnen Excel.
Kopiëren als object et cetera is allemaal geen probleem, je kunt dan alleen geen merge bouwen.. Dat is dus geen optie.
Jullie zouden me meerdere uren overtypen kunnen besparen!!

Met wanhopige, vriendelijke groet,


Thim Koemans

 

[snb]

Sub M_snb()
   with getobject("G:\OF\gegevens.docx")
      sn=filter(split(.content,vbcr)," ")
      .close 0
   end with

   for j=0 to ubound(sn)
     st=split(sn(j))
     sheets(1).cells(j+1).resize(,ubound(st))=st
   next
End Sub

PS. Ik kan je reaktie al bijna voorspellen....

 

[ThimKoemans]

Sub M_snb()
   with getobject("G:\OF\gegevens.docx")
      sn=filter(split(.content,vbcr)," ")
      .close 0
   end with

   for j=0 to ubound(sn)
     st=split(sn(j))
     sheets(1).cells(j+1).resize(,ubound(st))=st
   next
End Sub

PS. Ik kan je reaktie al bijna voorspellen....

Zoals waarschijnlijk voorspeld:

HUH?!?!?

 

[ThimKoemans]

Gelukt! Thanks!