RE:crear carpeta y guarda documento Word en ella
Hola mi menda, no sabes cuanto me alegra que constestes, siempre me sacas de apuros.
Lo de abajo, es la mitad del código de tu magnifico manejador que tambien me ha ido.
He hecho todo tipo de combinaciones, pero en unas ocasiones me crea la carpeta, otras no me la crea, otras me crea la carpeta por un lado y el docuemnto lo manda a otro. En fin un desastre.
Tal y como lo tengo abajo, me crea la carpeta con el nombre del control de ACCESS que es IDD01 en la carpeta ALMACEN, pero no consigo guardar en ella automaticamente el el documento. Te digo que he hecho muchas combinaciones pero todas fallidas. Si me puedes ayudar por favor, muchas gracias mi menda.
Private Sub Comando80_Click()
Dim appWord As Word.Application
Dim docs As Word.Documents
Dim doc As Word.Document
Dim campoWord As Object
Dim strRutaPlantilla As String
Dim strTestPlantilla As String
Dim strNuevoDocumento As String
On Error GoTo ManejadorError
' Asi creo la carpeta automáticamente
MkDir "C:\ALMACEN\" & Me.IDD01
' Ruta completa de la plantilla de Word
strRutaPlantilla = "C:\ALMACEN\00-PORTADA.dot"
' Ruta y nombre del nuevo documento
strNuevoDocumento = "C:\ALMACEN\" & Me.IDD01 & ".doc"
'Sí existe el archivo lo abrimos y nos salimos,
' sino existe lo creamos
strTestPlantilla = Nz(Dir(strNuevoDocumento))
If strTestPlantilla <> "" Then
If MsgBox("El Documento ya existe. ¿Desea actualizarlo", _
vbInformation + vbYesNo + vbDefaultButton2, _
"I2000 GADAR Actualizar Documento") = vbNo Then
'Esta linea la ponemos solo sí queremos que se abra el documento
Application.FollowHyperlink strNuevoDocumento
Exit Sub
End If
End If
' Si el resto del código