1
Abra Microsoft Word .
2 Haga clic en " Herramientas ", selecciona "Macro " y luego haga clic en "Visual Basic ". Esto abrirá el entorno de programación VBA.
3
Haga clic en " Insertar" y seleccione " Módulo ".
4
Escriba o pegue el siguiente bloque de código en el ventana del módulo: Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib " imagehlp.dll " ( ByVal lpPath As String ) As Boolean
Función MkDirEx ( sPathToCreate As String ) As Boolean
On Error GoTo ErrFailed
MkDirEx = MakeSureDirectoryPathExists ( sPathToCreate )
Exit Función
ErrFailed :
Debug.Print Err.Description
MkDirEx = False End Function
Sub Test ()
Si MkDirEx ("C: \\ Test \\ Si \\ Es \\ Creado \\ este \\ Directorio \\ estructura " ) Luego
MsgBox " creado un directorio de estructura "
End If End Sub
El código anterior utiliza llamadas a la API y el código VBA para crear carpetas en la unidad C: . Si se ejecuta este código, usted tendrá la ruta del directorio en el disco duro : C: \\ Test \\ Si \\ Es \\ Creado \\ este \\ Directory \\ Estructura
5
Haga clic en " Archivo" y luego seleccione "Guardar" para guardar el trabajo.
6
Pulse la tecla " F5 " para ejecutar el programa.