Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Textverarbeitung
Textverarbeitung
Fragevon peko vom 22.01.2020, 19:17 Options
Auswahl-Box (VBA)
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
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
Antwort 1 von dumchen vom 27.01.2020, 02:23 Options
Hi,
hier mal ein Ansatz als Makro in Word.
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
Antwort 2 von peko vom 28.01.2020, 13:56 Options
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
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
Ähnliche Themen
Excel VBA -- Tabellenblätter auswählen und drucken
snailhouse 08.08.2007 - 207 Hits - 2 Antworten
Fritz-Box SL ip erneuern
iperneuern 16.08.2007 - 148 Hits - 3 Antworten
wie muss ich bei der fritz box die zugangsdaten bei arcor anschluss eingeben
conny13 23.12.2007 - 118 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
