tWord con Metodo de abrir un fichero con READONLY

[Andrés González]

Alguien ha creado el metodo de solo lectura para abrir un documento word, en la clase tWord, para que asi no se pueda variar el documento original. Me lo prodrian mandar por favor.

Code: Select all

Sub SoloLectura()
'
' SoloLectura Macro
' Macro grabada el 24/10/2007 por .
'
    Documents.Open FileName:="""capituo 1 al 5.doc""", ConfirmConversions:= _
        False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End Sub

[Vikthor]

Alguien ha creado el metodo de solo lectura para abrir un documento word, en la clase tWord, para que asi no se pueda variar el documento original. Me lo prodrian mandar por favor.

Code: Select all

Sub SoloLectura()
'
' SoloLectura Macro
' Macro grabada el 24/10/2007 por .
'
    Documents.Open FileName:="""capituo 1 al 5.doc""", ConfirmConversions:= _
        False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End Sub

Andres :

Mira este código :

Code: Select all

METHOD OpenDoc( cNombreDoc )  CLASS TWord
       local sal := .t.
       ::oDocs := ::oWord:Get( "Documents" )
       if file( cNombreDoc )
          ::oActiveDoc  := ::oDocs:Invoke( "Open",cNombreDoc )

Esta linea
::oActiveDoc := ::oDocs:Invoke( "Open",cNombreDoc )
Hace el llamado de la función Open() donde el tercer paramatro indicado en el código que publicas es tipo logico.

Entonces el método open de la clase tword quedaría de esta forma :

Code: Select all

METHOD OpenDoc( cNombreDoc , lReadOnly )  CLASS TWord
       local sal := .t.
       ::oDocs := ::oWord:Get( "Documents" )
       if file( cNombreDoc )
          ::oActiveDoc  := ::oDocs:Invoke( "Open",cNombreDoc , .F. , lReadOnly )

[Andrés González]

Gracias Vikthor