Les utilisateurs de WordPerfect connaissent peut-être la fonctionnalité qui vous permet d’imprimer le contenu d’un répertoire. En effet, il peut être très pratique d’avoir une impression de tous les documents d’un répertoire. Malheureusement, Word n’a pas de commande intrinsèque qui vous permet d’accomplir la même tâche. Il existe cependant plusieurs façons d’aborder ce problème.

La première est l’ancienne méthode DIR qui a fait ses preuves, utilisée par les « techniciens » depuis l’époque du DOS. Ouvrez simplement une invite de commande (MS-DOS)

fenêtre, recherchez le répertoire pour lequel vous voulez une liste, puis tapez la commande suivante:

dir /b > mydir.txt

Cela crée un fichier texte (mydir.txt) qui contient uniquement les noms des fichiers du répertoire. Vous pouvez ensuite localiser le fichier dans Word et le charger en tant que document. Bien que cette approche ne soit pas une étape unique, elle n’est pas non plus particulièrement difficile.

Si vous souhaitez une solution macro au problème, vous pouvez utiliser ce qui suit. Il affiche la boîte de dialogue standard Ouvrir, dans laquelle vous pouvez rechercher le répertoire pour lequel vous voulez une liste. Lorsque vous sélectionnez un fichier dans ce répertoire et cliquez sur Ouvrir, la macro crée un nouveau document Word qui répertorie tous les fichiers que contient le répertoire. Notez que vous devez sélectionner un fichier dans le répertoire.

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

Si vous souhaitez limiter les fichiers renvoyés par la macro (par exemple, à ceux se terminant par .DOC), vous pouvez modifier les spécifications du fichier (« . ») Dans deux des lignes de programme.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1148) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Printing_a_File_List [Impression d’une liste de fichiers].