Drucken einer Dateiliste (Microsoft Word)
Benutzer von WordPerfect sind möglicherweise mit der Funktion vertraut, mit der Sie den Inhalt eines Verzeichnisses drucken können. In der Tat kann es sehr praktisch sein, alle Dokumente in einem Verzeichnis auszudrucken. Leider verfügt Word nicht über einen intrinsischen Befehl, mit dem Sie dieselbe Aufgabe ausführen können. Es gibt jedoch verschiedene Möglichkeiten, wie Sie dieses Problem angehen können.
Die erste ist die alte bewährte DIR-Methode, die seit den Tagen von DOS von „Technikfreaks“ verwendet wird. Öffnen Sie einfach ein Eingabeaufforderungsfenster, suchen Sie das Verzeichnis, für das Sie eine Liste erstellen möchten, und geben Sie den folgenden Befehl ein:
dir /b > mydir.txt
Dadurch wird eine Textdatei (mydir.txt) erstellt, die nur die Namen der Dateien im Verzeichnis enthält. Sie können die Datei dann in Word suchen und als Dokument laden. Dieser Ansatz ist zwar kein einzelner Schritt, aber auch nicht besonders schwierig.
Wenn Sie eine Makrolösung für das Problem wünschen, können Sie Folgendes verwenden. Es wird das Standarddialogfeld Öffnen angezeigt, in dem Sie nach dem Verzeichnis suchen können, für das Sie eine Liste wünschen. Wenn Sie eine Datei in diesem Verzeichnis auswählen und auf Öffnen klicken, erstellt das Makro ein neues Word-Dokument, in dem alle im Verzeichnis enthaltenen Dateien aufgelistet sind. Beachten Sie, dass Sie eine Datei aus dem Verzeichnis auswählen müssen.
Sub ListFiles() Dim PathWanted As String Dim FName As String Dim Temp As String With Dialogs(wdDialogFileOpen) .Name = "." If .Display = -1 Then Documents.Add PathWanted = Options.DefaultFilePath(wdDocumentsPath) Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf ChDir PathWanted FName = Dir(".") While FName <> "" Temp = FName While InStr(Temp, "\") > 0 Temp = Mid(Temp, InStr(Temp, "\") + 1) Wend Selection.TypeText Temp & vbCrLf FName = Dir Wend End If End With End Sub
Wenn Sie die vom Makro zurückgegebenen Dateien beschränken möchten (z. B. nur diejenigen, die mit .DOCX enden), können Sie die Dateispezifikationen („.“) In zwei der Programmzeilen ändern.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.
(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1466) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier: