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

Por favor antes de hacer su consulta lean "Recomendaciones para hacer preguntas." Den Click aquí

No estás conectado. Conéctate o registrate

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

Ruzlan


Hola, tengo un problema,tengo este código que me dá problemas a la hora de abrir un archivo word con espacios en blanco como por ejemplo Curriculum Vitae

Sub Abrir_Word_concreto()
Dim ruta As String
ruta = Application.GetOpenFilename 
Shell "C:\Program Files\Microsoft Office\root\Office16\WINWORD.exe " & ruta

End Sub

Un saludo

Ruzlan


He dado con este código que si funciona 

Sub abrir_archivo()

Dim ruta As String, word As Object, documento As Object
ruta = Application.GetOpenFilename
Set word = CreateObject("Word.Application")
word.Visible = True

Set documento = word.Documents.Open(ruta)

End Sub

Igtelo

avatar
Hola Ruzlan.

Bien!! Y gracias por compartir tu solución, seguro a varios les servirá.

Saludos
Ignacio Téllez

Contenido patrocinado


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.