Visual Basic - llamar documento de word

Life is soft - evento anual de software empresarial
 
Vista:

llamar documento de word

Publicado por jlcastro (114 intervenciones) el 15/12/2002 18:55:41
Como se puede llamar a un documento de word existente en una carpeta
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:llamar documento de word

Publicado por Josetxu (75 intervenciones) el 16/12/2002 02:35:56
Copia y pega este código en un proyecto nuevo, y haz pruebas:

Sub Main()
Dim XWord As Object
Dim DocDeWord As Object
Dim UnArchivo As String
Dim UnaPalabra As String
Dim UnRango As Range
Dim Ind As Long
UnArchivo = "C:\UnaPrueba.doc" 'PON AQUI EL NOMBRE DEL ARCHIVO
Set XWord = CreateObject("Word.Application")
Set DocDeWord = XWord.Documents.Open(UnArchivo)
XWord.Visible = True
UnaPalabra = DocDeWord.Words(5)
MsgBox UnaPalabra
Set UnRango = DocDeWord.Content
UnRango.Find.Execute FindText:="ESCRIBE AQUI UNA PALABRA DEL DOCUMENTO", Forward:=True
Set UnRango = DocDeWord.Range(Start:=UnRango.End, End:=UnRango.End + 10)
MsgBox UnRango.Text
DocDeWord.Close SaveChanges:=wdDoNotSaveChanges
XWord.Quit
Set XWord = Nothing
End Sub

Saludos
Josetxu.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:muchas gracias Josetxu lo ice de esta forma

Publicado por jlcastro (114 intervenciones) el 16/12/2002 10:52:06
Dim DocDeWord As Object
Dim UnArchivo As String
UnArchivo = "C:\controlquin\impresos\jornada.doc" 'PON AQUI EL NOMBRE DEL ARCHIVO
Set XWord = CreateObject("Word.Application")
Set DocDeWord = XWord.Documents.Open(UnArchivo)
XWord.Visible = True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar