meerder .txt files opslaan als wordfiles

[Theunis]

Ik heb meerdere .txt files die ik als één word bestand wil opslaan, zonder ze allemaal stuk voor stuk te openen en bij elkaar te plakken.

Bestaat daar een oplossing voor. Eventueel met als tussenoplossing dat ik eerst de tientallen .txt files zelf als één .txt file samenvoeg, en opsla, om daarna dit ene grote .txt bestand naar word te converteren.

Maar als het meteen vanuit de losse .txtfiles naar één wordbestand kan, gaat daar mijn voorkeur naar uit natuurlijk.

 

[joost verdaasdo]

Hai,

Dit moet met een macro wel kunnen..maar:
* Mogen ze willekeurig in het bestand ingevoegd worden? (Dus geen specifieke volgorde)
* Staan ze allemaal in éénzelfde map? (De txtfiles)
* Moet er een pagina-einde tussen elke file...of alles recht achter elkaar?

Wat is de Word versie?

Vertel? :thumb:

 

[Theunis]

antwoord

Ze moeten inderdaad keurig op volgorde, (dus niet willekeurig), ze staan in één map en de word versie is 2002.

Vr. groet, Theunis

 

[Theunis]

nogmaals verduidelijking

Oh ja, dat was ook nog de vraag, of er een paginaeinde tussen oest of recht achetr elkaar. Nou gewoon recht achter elkaar, want de .txt files bestaan ieder al uit precies een afzonderlijke pagina.

 

[joost verdaasdo]

Re: antwoord

Geplaatst door Theunis
Ze moeten inderdaad keurig op volgorde, (dus niet willekeurig), ze staan in één map en de word versie is 2002.

Vr. groet, Theunis

Tja das een beetje vaag hé!

Volgorde...hoe zie jij dat...zijn ze numeriek qua Titel?

Geef eens een paar titels zodat ik zie hoe de logica verloopt..

Heb overigens wellicht morgen pas tijd voor het stukje code dus je moet nog even geduld hebben..:thumb:

 

[Theunis]

toevoeging op mijn vraag

De titels zijn bijvoorbeeld (in dezelfde map):

dienst.100 - 1
dienst.100 - 2
dienst.100 - 3
dienst.100 - 4
dienst.101 - 1
dienst.101 - 2
dienst.101 - 3
dienst.102 - 1
dienst.102 - 2
dienst.102 - 3
dienst.102 - 4
dienst.102 - 5
dienst.103 - 1
dienst.103 - 2
dienst.103 - 3
dienst.104 - 1

Enz. Enz.

Het zijn allemaal .txt files en die moeten omgezet worden naar Word 2002, en wel zodanig dat in de Word bestanden de namen van de diensten door blijven klinken dus dienst 100.doc, dienst 101.doc etc.

Dit kan met invoegen in Word zelf, maar daarvoor zoek ik dus een gemakkelijker methode.

Succes verder, en het heeft geen haast hoor.


Theunis

 

[joost verdaasdo]

Hai,

Je laatste berichtje verwart mij iets maar goed ik geef alvast een opzetje en dan moet jij maar zeggen of er nog aanpassingen gewenst zijn.

In de bijlage is de hieronder geplaatste code reeds geplaatst. Hierin moet je nog even het pad naar de txtbestanden veranderen. (Met ALT+F11 kom je bij de code)

Vervolgens opslaan en via ALT+F8 kies je voor "GetTextFiles" en vervolgens uitvoeren om de code te draaien.

De code zoekt alle txtbestanden op uit die folder sorteert deze oplopend en voegt ze vervolgens in het document in!

Hier is de code:

Option Explicit
Option Base 1

Sub GetTextFiles()
Dim sFiles()    As String
Dim i           As Integer

 With Application.FileSearch
    .NewSearch
    .FileName = ".txt"
    
    'Hier het pad invullen waar de textfiles staan inclusief de '\' op het einde.
    .LookIn = "C:\Documents and Settings\Admin\Desktop\Text Files\"
    .Execute msoSortByFileName, msoSortOrderAscending, True
    
        For i = 1 To .FoundFiles.Count
            ReDim Preserve sFiles(i)
            sFiles(i) = .FoundFiles(i)
        Next i
 End With
 
 Documents.Add
 For i = LBound(sFiles) To UBound(sFiles)
    ActiveDocument.Range.InsertAfter LoadTextFile(sFiles(i)) & vbCrLf
 Next i
End Sub

Private Function LoadTextFile(sFile As String) As String
   Dim hFile As Integer
   
   On Local Error Resume Next
   hFile = FreeFile

   Open sFile For Input As #hFile
      LoadTextFile = Input$(LOF(hFile), hFile)
   Close #hFile
   
End Function

Veel plezier ermee! :thumb: