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 eine Eingabeaufforderung (MS-DOS)

Suchen Sie im Fenster 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 Temp As String     Dim i As Integer

With Dialogs(wdDialogFileOpen)

.Name = "."

If .Display = -1 Then             Documents.Add             PathWanted = Options.DefaultFilePath(wdDocumentsPath)

Selection.TypeText "Files in " & PathWanted & ":" & vbCrLf             With Application.FileSearch                 .LookIn = PathWanted                 .FileName = "."

If .Execute > 0 Then                     For i = 1 To .FoundFiles.Count                         Temp = .FoundFiles(i)

While InStr(Temp, "\") > 0                             Temp = Mid(Temp, InStr(Temp, "\") + 1)

Wend                         Selection.TypeText Temp & vbCrLf                     Next                 End If             End With         End If     End With End Sub

Wenn Sie die vom Makro zurückgegebenen Dateien beschränken möchten (z. B. nur diejenigen, die mit .DOC 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.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1148) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Drucken einer Dateiliste.