Inhaltsverzeichnis in Word aus Ordnern

[bembulak]

Hallo Leute!

Ich habe folgendes Problem:
Ich schreibe eine Dokumentation, die mehrere Dokumente umfasst.
Z.B.: Word-Dokumente, Pdf, Autocad.DWG,....

Gibt es in MS-Word die Möglichkeit, den Ordner, im dem diese (alle) Dokumente liegen, auszulesen und dann für die ausgedruckte Doku ein Inhaltsverzeichnis zu generieren?
Es nervt mich schon furchtbar, wenn ich den Ordnerinhalt mit 25 Dateien mit der Hand abtippen muss!

Irgendwelche Tipps

Danke,

bembulak

 

[mschuetzda]

Die einfachste Möglichkeit mit Bordmitteln:
In einer DOS-Box:

dir /b /-p > dir_inhalt.txt

und dann die erzeugte txt-Datei öffnen.

 

[thekorn]

FILESEARCH

würde es in Word selber so machen:

Public Sub dateien_auflisten()
Dim pfad As String
Dim datei_typ

pfad = "d:\dateien"
datei_typ = Array("*.doc", "*.zip", "*.xls") 'oder aber auch Array("*.*") es werden dann alle aufgelistet

Set myRange = ActiveDocument.Range
myRange.ParagraphFormat.Style = wdStyleTOC1 'Formatierung

For Each endung In datei_typ
Set fs = Application.FileSearch
With fs
    .LookIn = pfad
    .FileName = endung
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            myRange.InsertAfter fs.FoundFiles(i) & Chr(13)
        Next i
    End If
End With
Set fs = Nothing
Next
End Sub

durch geschickte wahl von myRange ist es z.b. möglich diese Auflistung direkt hinter/vor das bestehende Inhaltsverz. einzufügen.

gruß
thekorn