FiveTech Software tech support forums

Posted: **Wed Oct 24, 2007 7:06 am**

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

Posted: **Fri Oct 26, 2007 1:46 pm**

Andrés González wrote: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 )

Posted: **Thu Nov 08, 2007 10:15 pm**

Gracias Vikthor

FiveTech Software tech support forums

tWord con Metodo de abrir un fichero con READONLY

tWord con Metodo de abrir un fichero con READONLY

Re: tWord con Metodo de abrir un fichero con READONLY