Word bestand in Excel plaatsen in 2 kolommen

[jos0707]

ik zou graag het bestand in bijlage in Excel krijgen om te bewerken.
Je ziet dat er een scheiding is voor 10V105H2B4.
Deze zou moeten behouden blijven en liefs in een andere kolom komen. Dus 2 kolommen.
1ste kolom 0215400141869818151912313778
2 de kolom 10V105H2B4
Ik moet dagelijks deze gegevens die toekomen in een Word-bestand bewerken in Excel.
Alvast bedankt voor de hulp.
Groeten,
Jos

 

[edmoor]

Uuuuhhh, bijlage?

 

[jos0707]

Sorry

Bekijk bijlage Document1.doc

 

[Senso]

Bekijk bijlage 279073
Het lukt mij wel om 10V105H2B4 etc. die in Kolom 2 (B) te zetten. Moeten ze wel een klein beetje in één lijn staan.

Dat kan in Word > Alt vasthouden en dan opwaarts selecteren en kopiëren en plakken in Word. Maar als ik dat ook doe met de eerste cijfers 1ste kolom 0215400141869818151912313778 en ik plak deze in kolom A dan kloppen de cijfers niet meer met name de laatste 3 cijfers worden bijv. 700. Ik weet de oorzaak daar niet van en geen verklaring voor.

Maar lijkt mij dat iemand die verstand heeft van Excel dit toch gemakkelijk moet zijn, want bij banken zie je toch ook bestanden tekstbestanden die gescheiden zijn door ; en die dan naar Excel omgezet worden.

 

[snb]

Vanuit Word:

Sub M_snb()
    sn = Split(ActiveDocument.Content, vbCr)
    ReDim sp(UBound(sn), 1)
    
    For j = 1 To UBound(sn)
       st = Split(sn(j), Chr(29))
       sp(j, 0) = st(0)
       If UBound(st) = 1 Then sp(j, 1) = st(1)
    Next

    with createobject("Excel.application")
       .workbooks.add.sheets(1).cells(1).resize(ubound(sp)+1,ubound(sp,2)+1)=sp
       .visible=true
    end with
End Sub

Vanuit Excel:

Sub M_snb()
    with getobject("G:\OF\gegevens.docx")
       sn = Split(ActiveDocument.Content, vbCr)
       .close 0
    end with

    ReDim sp(UBound(sn), 1)
    
    For j = 1 To UBound(sn)
       st = Split(sn(j), Chr(29))
       sp(j, 0) = st(0)
       If UBound(st) = 1 Then sp(j, 1) = st(1)
    Next

    thisworkbook.sheets(1).cells(1).resize(ubound(sp)+1,ubound(sp,2)+1)=sp
End Sub

 

[jos0707]

Hallo Senso,
bedankt
inderdaad, de laatste 3 cijfers kloppen niet en de eerste 0 valt ook weg.

Hallo snb,
bedankt,
in Excel krijg ik echter een fout op de tweede regel: sn = Split(ActiveDocument.Content, vbCr)

alvast bedankt.

 

[snb]

Verwijder 'option explicit'

Geef altijd aan welke foutmelding je krijgt.

 

[jos0707]

Hallo snb,
waar verwijder ik de "option explicit"?
De foutmelding die ik krijg is fout 424 object vereist
grts

 

[snb]

Sub M_snb()
    with getobject("G:\OF\gegevens.docx")
       sn = Split(.Content, vbCr)
       .close 0
    end with

    ReDim sp(UBound(sn), 1)
    
    For j = 1 To UBound(sn)
       st = Split(sn(j), Chr(29))
       sp(j, 0) = st(0)
       If UBound(st) = 1 Then sp(j, 1) = st(1)
    Next

    thisworkbook.sheets(1).cells(1).resize(ubound(sp)+1,ubound(sp,2)+1)=sp
End Sub

 

[jos0707]

Bedankt nsb
krijg nu fout 9, het subscribt valt buiten het bereik op deze regel
sp(j, 0) = st(0)

 

[snb]

Sub M_snb()
    with getobject("G:\OF\gegevens.docx")
       sn = Split(.Content, vbCr)
       .close 0
    end with

    ReDim sp(UBound(sn), 1)
    
    For j = 0 To UBound(sn)-1
       st = Split(sn(j), Chr(29))
       sp(j, 0) = st(0)
       If UBound(st) = 1 Then sp(j, 1) = st(1)
    Next

    thisworkbook.sheets(1).cells(1).resize(ubound(sp)+1,ubound(sp,2)+1)=sp
End Sub

En welke waarde hebben de variabelen op dat moment ?

 

[jos0707]

dezelfde als in document1.doc