crear documento word

11 envíos / 0 nuevos
Último envío
mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
crear documento word

Quisiera saber si se puede hacer una macro que abra un documento de una carpeta asignada en word y lo guarde con el nombre de una celda asignada de excel y que deje el documento de word abierto

Eston serian los datos

Documento abrir c:\datos\documento.doc

valor celda (a1) excel 2017-5248

Documento final  y ubicacion c:\datos\pres\2017-5248.doc

mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
MACRO IMPRESION PDF

HE CONSEGUIDO HACERLA PERO COMO PRORIA HACER PARA QUE ME GRABARA EL FICHERO CON EL NOMBRE INTRODUCIDO EN UNA CELDA Y NO COMO LO HE PUESTO YO PRESUPUESTO.

 

ADJUNTO LA MACRO

 

Sub IMPRESIONPDF()


    Sheets(Array("RANGOS", "DEMOLICION", "ALBAÑILERIA", "CARPINTERIAYPINTURA", _
        "FONTANERIA", "ELECTRICIDAD", "VENTANAS", "ARMARIOS", "RESUMEN")).Select
    Sheets("RANGOS").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Datos\Excel\PRESUPUESTO.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Sheets("RANGOS").Select


End Sub

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 8 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
leer valor en una celda

puedes referirte al valor de una celda de muchas formas, por ejemplo así: Sheets("Tu Hoja").Range("tucelda").Value

en tu ejemplo

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Sheets("Tu Hoja").Range("tucelda").Value, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False

 

Data Tools Suite
datos y tablas con Excel

mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
MACRO IMPRESION PDF

gracias

mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
CREAR DOCUMENTO DESDE EXCEL EN WORD

He creado esta macro pero me da error de compilacion alguien sabe lo que ocurre

 

Sub reword()
celdita = ActiveSheet.[A1]
Dim oWord As Word.Application, wdDoc As Word.Document
Set oWord = CreateObject("Word.Application")
Set wdDoc  =  oWord.Documents.Open("c:\datos\documento.doc")
oWord.Visible = True
wdDoc.SaveAs "c:\datos\pres\" & celdita & ".doc"
wdDoc.Activate
End Sub

 

 

Gracias a todos

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 8 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
¿cuál es el mensaje del error

¿cuál es el mensaje del error?¿en qué línea se produce?

Pueden ser muchas cosas, desde una variable no declarada a una referencia a la biblioteca de Word que no esté definida.

 

Data Tools Suite
datos y tablas con Excel

mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
Te adjunto pantallazo, he

Te adjunto pantallazo, he mirado a ver si algun espacio o coma estan mal pero se me escapa

AdjuntoTamaño
Image icon pantalla.gif61.73 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 8 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
parece que está bien escrito

parece que está bien escrito

¿qué referencias tienes en el proyecto? (en herramientas>referencias)

 

De todos modos, como parece que tienes referencia a Word, puedes crear la instancia a word con esta otra sentencia, en lugar de mediante CreateObject

Set oWord = New Word.Application


 

Data Tools Suite
datos y tablas con Excel

mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
Creo que en las referencias

Creo que en las referencias va a estar el problema porque estoy con otra macro y pasaa lo mismo

AdjuntoTamaño
Image icon referencias.gif54.12 KB
mianca
Imagen de mianca
Offline
última acción: Hace 1 mes 2 semanas
alta: 06/05/2017 - 13:35
Puntos: 190
Abrir desde excel documento en word y guardar nombre celda

sale el mismo error

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 día 8 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 7570
Sólo te queda probar poco a

Sólo te queda probar poco a poco.

Corrige otros errores que veas por el código (como esos End Sub duplicados que se ven en la imagen)

Crea un libro nuevo y empieza a poner el código ahí para ver qué falla.

En las referencias sólo veo que tienes versiones diferentes de Word(16) y Excel(14), pero tampoco debería ser la causa del problema (o sí, vete tú a a saber).

 

 

Data Tools Suite
datos y tablas con Excel