Tabel in Word bestand (RTF) converteren naar Exceltabel

[Tummerke1992]

Is het mogelijk dat deze tabel vanuit Word geconverteerd wordt naar een grote tabel in Excel, waarbij de cellen met meerdere tekstregels verwerkt worden in 1 Excel-cel? Dan kan ik namelijk een grote tabel in Excel hiervan maken i.p.v. de tabellen op meerdere pagina’s zoals in het Word bestand.

Ons huidig systeem maakt alleen een uitdraai in RTF…. Aangezien ik geen RTF bestand kan uploaden heb ik dit opgeslagen als een Word Bestand i.p.v. het originele RTF

Wanneer ik dit nu kopieer en plak dan worden de tekstregels verwerkt als bijvoorbeeld 3 Excel cellen onder elkaar.
Aangezien dit een klein deel van mijn masterbestand is, is het handmatig omzetten niet wenselijk…..

Mijn dank is groot

 

[VenA]

Volgens mij is een .RTF toch anders dan een Word document. Als je een bestand zipt dan kan je elk formaat uploaden. Jouw vraag is denk ik alleen via VBA op te lossen.

De inhoud van jouw Word document heb ik gekopieerd en geplakt in 'Blad1'. Met een druk op de blauwe knop wordt het in 'Blad2' omgezet naar wat jij, denk ik, wil hebben. Deze gegevens zijn natuurlijk ook wel in jouw grote tabel te plaatsen. Maar die ben je vergeten bij te voegen.

Sub VenA()
With Sheets(1)
    Cells.MergeCells = False
    ar = .Cells(1).Resize(.Columns(1).Find("Totaal aantal documenten:", , xlValues, xlPart).Row, 8)
    ReDim ar1(1 To .Columns(2).SpecialCells(2, 1).Count, 1 To 8)
    For j = .Columns(1).Find("Kenmerk", , xlValues, xlWhole).Row + 1 To UBound(ar) - 1
        If ar(j, 2) <> "" And ar(j, 2) <> "Reg.datum" Then
            t = t + 1
            For jj = 1 To 8
                ar1(t, jj) = ar(j, jj)
            Next jj
        Else
            For jj = 1 To 8
                If ar(j, 1) = "" Then ar1(t, jj) = IIf(ar(j, jj) <> "", ar1(t, jj) & " " & ar(j, jj), ar1(t, jj))
            Next jj
        End If
    Next j
End With
Sheets(2).Cells(1).Resize(UBound(ar1), 8) = ar1
End Sub

 

[OctaFish]

Je hebt (echt) een héél ongelukkige tabel gemaakt door de tabel niet alleen in frames te zetten, maar er ook nog eens losse tabellen van te maken. Ik vermoed dat de onderliggende reden is geweest dat je koppen boven de tabel wil terug laten komen op de verschillende pagina's. Een hele simpele instelling die deze trucendoos helemaal niet nodig heeft. Zet gewoon de kop in de eerste rij, en kies in de Indeling opties voor de tabel de optie <Veldnamenrijen herhalen>. Dan heb je hetzelfde effect, en een tabel die je prima in Excel kan plakken. Ik zou overigens nog wel een Zoeken en Vervangen toepassen om de Enters te vervangen door een specifiek teken (Pipe bijvoorbeeld) die je dan daarna in Excel vervangt door een regeleinde. Dat is in Excel namelijk een ander teken als in Word.

 

[VenA]

@OctaFish,
Volgens mij heeft het niet zoveel met de opmaak/inhoud van het Word document te maken maar meer met de beperking van het uploaden van bepaalde bestandsformaten. (moet jij als Access-specialist toch alles van weten)

Is een .RTF niet een 'redelijk gewoon' .txt document met wat weer meer opmaakcodes dan een kladblok- of WordPadbestand? Zelf denk ik dat het een 'print to file' van een rapport is dat eigenlijk bedoeld is om naar een printer te sturen.

Het document van de TS had ik even opgeslagen als .RTF en geïmporteerd in Excel. Dit gaf zoveel puinhoop dat ik er geen voor- of achterkant in kon vinden.

Dus maar even wachten tot we te zien krijgen hoe "Ons huidig systeem maakt alleen een uitdraai in RTF" er werkelijk uitziet.

 

[OctaFish]

Volgens mij heeft het RTF probleem er niet zoveel mee te maken. TS krijgt vanuit zijn systeem RTF bestanden die hij niet mag uploaden naar Helpmij en daarom heeft-ie er een Word document van gemaakt. Het RTF bestand opent hij (in Word, neem ik aan) en wil hij naar Excel kopiëren.

Wanneer ik dit nu kopieer en plak dan worden de tekstregels verwerkt als bijvoorbeeld 3 Excel cellen onder elkaar.

Vanuit Word ziet een tabel er redelijk identiek uit, als je de tabel als zodanig bekijkt. Ik vraag me af of de export vanuit het bronprogramma tabellen produceert met frames er omheen. In dat geval zou ik eerder een ander export format kiezen dan RTF.

 

[popipipo]

[Aangezien ik geen RTF bestand kan uploaden heb ik dit opgeslagen als een Word Bestand i.p.v. het originele RTF

Misschien dat je het kunt zippen en dan dit uploaden?

 

[Tummerke1992]

Door al mijn enthousiasme en vakantie ben ik jullie helemaal vergeten te bedanken! VenA je bestand werkt prima!