Los usuarios de WordPerfect pueden estar familiarizados con la función que le permite imprimir el contenido de un directorio. De hecho, puede resultar muy útil tener una impresión de todos los documentos en un directorio. Desafortunadamente, Word no tiene un comando intrínseco que le permita realizar la misma tarea. Sin embargo, hay un par de formas de abordar este problema.

El primero es el antiguo método DIR probado y verdadero, que ha sido utilizado por los «técnicos» desde los días de DOS. Simplemente abra un símbolo del sistema (MS-DOS)

ventana, ubique el directorio para el que desea una lista y luego escriba el siguiente comando:

dir /b > mydir.txt

Esto crea un archivo de texto (mydir.txt) que contiene solo los nombres de los archivos en el directorio. Luego, puede ubicar el archivo en Word y cargarlo como documento. Si bien este enfoque no es un solo paso, tampoco es particularmente difícil.

Si desea una solución macro al problema, puede utilizar lo siguiente. Muestra el cuadro de diálogo Abrir estándar, en el que puede buscar el directorio para el que desea una lista. Cuando selecciona un archivo en ese directorio y hace clic en Abrir, la macro crea un nuevo documento de Word que enumera todos los archivos que contiene el directorio. Tenga en cuenta que debe seleccionar un archivo del directorio.

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 desea limitar los archivos devueltos por la macro (por ejemplo, solo los que terminan en .DOC), puede cambiar las especificaciones del archivo («.») En dos de las líneas del programa.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1148) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Printing_a_File_List [Imprimiendo una lista de archivos].