1
Abra Microsoft Word.
2 Haga clic en " Herramientas ", "Macro " y luego en " Visual Basic " para abrir el entorno de programación VBA.
3
Haga clic en " Insertar" y " módulos".
4
Este código VBA da un ejemplo de cómo utilizar la función Dir para pedir a todos los archivos que se encuentran en un directorio, la unidad C: . El procedimiento guarda los nombres de los archivos individuales en la variable " AllFiles " y a continuación, muestra esto en un cuadro de mensaje para el usuario . Escriba o pegue el siguiente bloque de código en la ventana del módulo:
showfiles ( Sub ) guía
nextfile dévil como secuencia
AllFiles dévil como secuencia
AllFiles = " "
NextFile se = Dir ( "C: \\ ", 0)
Mientras NextFile se < > ""
AllFiles = AllFiles & Chr ( 13 ) y NextFile se
NextFile se = Dir
Wend MsgBox
AllFiles
End Sub
5
Haga clic en " archivo" y luego " Guardar " para guardar el trabajo .
6
Press " F5 "en su teclado para ejecutar el programa . Debería ver un cuadro de mensaje con una lista de nombres de archivos en la unidad C: . Drive