UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO macro para abrir archivo word el 05/06/13, 11:44 am

rafaelmvt


Tengo una macro para abrir cualquier archivo Word desde Excel, pero me esta saliendo el siguiente error:
error de compilación
error de sintaxis
y me sombrea la línea que esta subrayada en negrita
Sub OpenWordDoc()

Dim wdApp As Word.Application, wdDoc As Word.Document

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <>0 Then 'Word is not already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdDoc = wdApp.Documents.Open("C:\carpeta de rafael villalobos\pendrive1\analisis deprecios unitarios 2013 v1\ayuda.docx")

wdApp.Visible = True

'Aquí puedes hacer lo que quieras: imprimir, guardar, activar...
wdDoc.PrintOut
wdDoc.SaveAs "C:\temp\hello.doc"
wdDoc.Activate
'etc

End Sub
me podrían ayudar por favor
Rafaelmvt

2RESUELTO Re: macro para abrir archivo word el 06/06/13, 12:15 pm

tyno


Hola Rafael.
No se si ya solucionaste este problema.
Aparentemente la linea que esta subrayada esta bien escrita.
Solo por probar si funciona redacta esa linea de esta manera:

If Err.Number > 0 Then

en lugar de <> coloca >, a ver que pasa. Saludos.

3RESUELTO macro para abrir archivo word el 06/06/13, 07:21 pm

rafaelmvt


Buenas tardes tyno me funciona, pero porque no abre de una vez el archivo, si no que lo que hace es poner en la barra de tarea el icono de Word le doy y me abre el archivo, quisiera que me abriera de una vez, se puede hacer por fa
Rafaelmvt

4RESUELTO Re: macro para abrir archivo word el 06/06/13, 08:21 pm

tyno


Hola Rafael.

Por lo que veo tu macro abre un archivo especifico en una dirección especifica, te propongo esta macro que encontre en internet y le modifique unas lineas, creo que esta un poco mas simplificada y cumple con el mismo propósito, también deja activo el archivo Word que vas a abrir:

Sub OpenWordDoc()
On Error Resume Next
Dim MiHoja As Object
Dim docw
docw = ""C:\carpeta de rafael villalobos\pendrive1\analisis deprecios unitarios 2013 v1\ayuda.docx""
Set MiHoja = CreateObject("Word.Application")
MiHoja.Visible = True
MiHoja.Documents.Open (docw)
MiHoja.Activate
Set MiHoja = Nothing
Exit Sub
End Sub

En todo caso si queres seguir con el codigo que ya tenes, proba de dejar solamente esta linea :

'Aquí puedes hacer lo que quieras: imprimir, guardar, activar...
wdDoc.PrintOut'<<<<<<<<<<<<<<<<<<<<<<<<<<BORRAR
wdDoc.SaveAs "C:\temp\hello.doc"'<<<<<<<<<<<<<<<<<<<<<<<<<BORRAR
wdDoc.Activate '<<<<<<<<<<<<<<<<<<<<<<<<<<DEJAR ESTA LINEA
'etc

5RESUELTO Solucionado el 07/06/13, 10:30 am

rafaelmvt


Buenos días Tyno gracias, solucionado el problemita
Rafaelmvt

6RESUELTO Re: macro para abrir archivo word el 15/11/13, 08:25 am

berto552


y para un doc. en PDF. gracias

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.