Supportnet / Forum / Textverarbeitung

Hallo alle VBA-Könner, ich brauche Hilfe! Problem: Ich möchte in einer WORD-Datei gern eine Auswahl-Box haben. Diese Box sollte alle im gleichen Verzeichnis vorhandenen WORD-Dateien anzeigen. Bei Mausklick auf einen der Dateinamen soll dann diese Datei automatisch geöffnet werden. Sicher etwas für besonders ausgefuchste VBA-Programmierer. Mir wäre auch schon weiter geholfen, wenn ich überhaupt wüsste, wie man eine solche Auswahl-Box (heißt die so?) anlegen und mit festen Vorgaben versehen könnte. Danke für alle Mühe! Gruß peko

Hi,
hier mal ein Ansatz als Makro in Word.

Sub Dateiliste()

Dim strPfad As String
Dim strDateifilter As String
Dim strDateiname As String
    'Pfadangabe
    strPfad = "E:\"
    'Dateiart nach der gesucht wird
    strDateifilter = "*.doc"
    'Cursor ans Dateiende setzen
    Selection.EndOf Unit:=wdStory, Extend:=wdMove
    strDateiname = Dir$(strPfad & strDateifilter)
    
    Do While strDateiname <> ""
        Selection.InsertAfter strDateiname & vbCr
        strDateiname = Dir
        
    Loop
    
End Sub

Hi dumchen,

danke für Deine Anregung. So weit war ich eigentlich auch schon, aber was ich wirklich will, ist, dass die Dateinamen einzeln in einer Auswahlbox erscheinen und dort durch Klick angewählt werden können.

Vielleicht fällt Dir ja auch dazu noch etwas ein?

Erst mal vielen Dank!

Gruß
Peter

• Excel VBA -- Tabellenblätter auswählen und drucken
• Fritz-Box SL ip erneuern
• wie muss ich bei der fritz box die zugangsdaten bei arcor anschluss eingeben