Inhoud van meerdere Word-bestanden in een map kopieren en plakken in een Excel sheet

[HarryBee]

Beste helpers,

Ik heb een Excelbestand waarin ik handmatig de inhoud van een Word bestand in cel A2 van blad1 plakt. Door het toepassen van een aantal formules en door het indrukken van een knop in het excelbestand worden er drie stappen uitgevoerd.

1) alle overbodige spaties worden uit de tekst gewist. (formule)
2) de regels worden in twee kolommen gesplitst (formule)
3) de gemaakte kolommen worden gekopieerd en geplakt in een nieuw excel workbook met als naam de inhoud van cel Q2. (VBA)

Sub NewWbkTransData()

Dim NewWbk As String

NewWbk = Range("Q2").Value

    Application.Workbooks.Add
    Range("A1").Select
    ActiveWorkbook.SaveAs Filename:="C:\omgezet\" & NewWbk & ".xlsx"

    Windows("Omzetten naar XLS.xlsm").Activate
    Sheets("Blad1").Activate

    Range("P1:Q500").Select

    Selection.Copy
    Workbooks(NewWbk).Sheets("Blad1").Activate


    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
        
Workbooks(NewWbk).Save
Workbooks(NewWbk).Close

Range("A2").Select


End Sub

Tot zover werk dit allemaal prima.

Wat ik nu zou willen is dat alle, qua opmaak identieke Wordbestanden in een map, automatisch een voor een geopend worden, de inhoud geselecteerd wordt, vervolgens wordt gekopieerd en in cel A2 op blad1 van het excel bestand wordt geplakt. Waarna de macro die ik nu al gebruik, automatisch wordt uitgevoerd.

Heeft iemand een idee hoe ik dit kan aanpakken?

Als dit zou lukken scheelt dat onnoemelijk veel werk.

Mijn dank is groot!

Groet, Harry

 

[snb]

Laat eens zien wat je uit een Wordbestand wil 'plakken'.

 

[HarryBee]

Snb,

Oeps, ik zei Word bestand, maar het is gewoon een txt bestandje met platte tekst. Dit is gegenereerd uit een bepaald pakket. Hierin staan ongeveer 30 regels. Elke regel verspringt door voorloopspaties. Er staan namen van personen in, e-mailadressen etc. Niet zo spannend dus.

Opbouw ziet er ongeveer zo uit:

Naam: piet
Adres: vandalestraat 21
Postcode: 5543BB
Plaats: Urk
Etc....

Een rommeltje dus. Nu de ik CTRL-A en plak het in Cel A2 op Blad 1

Alvst mijn dank voor het meedenken.

 

[HarryBee]

Snb,

De tekst zit vol met tussenliggende en voorloopspaties. Helaas zie je dit niet in mijn vorige bericht terugkomen

 

[snb]

De inhoud interesseert me niet, de vorm wel. Gewoon even een txt voorbeeld uploaden kost minder werk dan jouw beschrijving en toont alle spaties wel.

Sub M_snb()
   sn=split(application.clear(createobejct("scripting.filesystemobject").opentextfile("G:\OF\voorbeeld.txt").readall),vbCrlf)

   for j=0 to ubound(sn-1)
     cells(j+2,1).resize(,2)=split(sn(j),": ")
   next
End Sub

 

[HarryBee]

Snb,

Ik kan op een of andere manier geen dcumentjes uploaden vanaf mijn werkplek. Ik zal dit vanavond even vanaf huis moeten doen. Mijn dank tot zover.

Groet Harry

 

[HarryBee]

Snb,

Bij deze het txt documentje. Alvast mijn dank.