Visual Basic - abrir word

Life is soft - evento anual de software empresarial
 
Vista:

abrir word

Publicado por jlcastro (186 intervenciones) el 18/06/2004 08:42:52
con el siguiente codigo se abre word.
como seria el codigo si el documento tiene contraseña de apertura.

Private Sub clasemv_Click()
Dim xword
Dim DocDeWord As Object
Dim UnArchivo As String
UnArchivo = "C:\calcuelec\impresos\personal\mv.doc"
Set xword = CreateObject("Word.Application")
Set DocDeWord = xword.Documents.Open(UnArchivo)
xword.Visible = True

End Sub
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

RE:abrir word

Publicado por Cecilia Colalongo (3117 intervenciones) el 18/06/2004 12:51:50
Puedes grabar una macro en Word y copiar el código:

Set DocDeWord = xWord.Documents.Open FileName:=UnArchivo, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="prueba", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
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