Problemas el exportar datos a un marcador de WORD
Publicado por Antonio Corena (97 intervenciones) el 25/07/2004 19:24:55
Hola a todos
tengo este codigo para exportar un datos aun marcador de word, pero siempre me visualiza que el archivo es solo de lectura, como puedo omitir este mensaje al usuario por favor, simpelmete que envie el datos y visualice el file de word.
este es el código.
" Dim ObjWord As Word.Application
Dim RsRep As New ADODB.Recordset
Dim VarFile As Variant
Dim VarResp As Variant
VarRuta = "O:\reportes\"
Set ObjWord = New Word.Application
VarFile = VarRuta + "Archivos\" & "prueba11"
With ObjWord
ObjWord.Documents.Open VarFile
.Selection.GoTo what:=wdGoToBookmark, Name:="Master"
.Selection.Find.ClearFormatting
.Selection.TypeText ("dessire")
.Selection.GoTo what:=wdGoToBookmark, Name:="Buque"
.Selection.Find.ClearFormatting
.Selection.TypeText ("DONADO")
.Selection.GoTo what:=wdGoToBookmark, Name:="TLU"
.Selection.Find.ClearFormatting
.Selection.TypeText ("DONADO")
.Visible = True
End With"
Espero me puedan colaborar
GRacias
tengo este codigo para exportar un datos aun marcador de word, pero siempre me visualiza que el archivo es solo de lectura, como puedo omitir este mensaje al usuario por favor, simpelmete que envie el datos y visualice el file de word.
este es el código.
" Dim ObjWord As Word.Application
Dim RsRep As New ADODB.Recordset
Dim VarFile As Variant
Dim VarResp As Variant
VarRuta = "O:\reportes\"
Set ObjWord = New Word.Application
VarFile = VarRuta + "Archivos\" & "prueba11"
With ObjWord
ObjWord.Documents.Open VarFile
.Selection.GoTo what:=wdGoToBookmark, Name:="Master"
.Selection.Find.ClearFormatting
.Selection.TypeText ("dessire")
.Selection.GoTo what:=wdGoToBookmark, Name:="Buque"
.Selection.Find.ClearFormatting
.Selection.TypeText ("DONADO")
.Selection.GoTo what:=wdGoToBookmark, Name:="TLU"
.Selection.Find.ClearFormatting
.Selection.TypeText ("DONADO")
.Visible = True
End With"
Espero me puedan colaborar
GRacias
Valora esta pregunta


0