tWord con Metodo de abrir un fichero con READONLY

Board index FiveWin para Harbour/xHarbour tWord con Metodo de abrir un fichero con READONLY

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

tWord con Metodo de abrir un fichero con READONLY
Posted: Wed Oct 24, 2007 07: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 Collapse

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

Saludos

Andrés González desde Mallorca

Vikthor

Posts: 298

Joined: Fri Oct 07, 2005 05:20 AM

Re: tWord con Metodo de abrir un fichero con READONLY
Posted: Fri Oct 26, 2007 01: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 Collapse
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 Collapse

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

Esta linea
::oActiveDoc := ::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 Collapse

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

Vikthor

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

tWord con Metodo de abrir un fichero con READONLY
Posted: Thu Nov 08, 2007 10:15 PM

Gracias Vikthor

Saludos

Andrés González desde Mallorca

FiveTech Support Forums

Continue the discussion