FiveTech Software tech support forums

Posted: **Tue Nov 21, 2006 3:57 pm**

Amigos, é possível abrir um documento do WORD somente LEITURA com a TWORD? Ou seja de forma que o usuário não possa alterar o documento.

Fiquem com Deus

Aokisantos

Posted: **Tue Nov 21, 2006 8:22 pm**

Una manera muy fácil, es marcar el fichero como "solo lectura".

Posted: **Tue Nov 21, 2006 11:19 pm**

Mais como marcar o arquivo como leitura com FW?

A classe TWORD não faz isso?

Fique com Deus
Aokisantos

Posted: **Wed Nov 22, 2006 5:26 am**

AOKISANTOS wrote:Mais como marcar o arquivo como leitura com FW?(

No se hace desde FW sino desde Windows.

MiPC + c: + directorio en el fichero pincha botón derecho y en propiedades del arquivo marcar como "solo lectura".

Posted: **Wed Nov 22, 2006 2:44 pm**

AOKISANTOS wrote:Amigos, é possível abrir um documento do WORD somente LEITURA com a TWORD? Ou seja de forma que o usuário não possa alterar o documento.

Fiquem com Deus

Aokisantos

Aokisantos :

Necesitas cambiar el método OpenDoc()

Por default lReadOnly en FALSE , si es TRUE el documento se abrirá como sólo lectura

Code: Select all

METHOD OpenDoc( cNombreDoc , lReadOnly )  CLASS TWord  <---- // Vikthor
       local sal := .t.
       DEFAULT lReadOnly := .F.    <-------   // Vikthor
       ::oDocs := ::oWord:Get( "Documents" )
       if file( cNombreDoc )
         ::oActiveDoc  := ::oDocs:Invoke( "Open",cNombreDoc , , lReadOnly ) <------- // Vikthor
          if valtype(::oActiveDoc) <> 'O'
             sal := .f.
          endif
       else
          sal := .f.
       endif
       ::oTexto        := ::oWord:Get( "Selection" )
       ::oOptions      := ::oWord:Get("Options")              // Vikthor
       ::oMailMerge    := ::oActiveDoc:Get( "MailMerge")    // Vikthor
       ::oTables       := ::oActiveDoc:Get( "Tables")              // Vikthor
       ::cNombreDoc    := cNombreDoc
       ::nLinea        := 0
       ::nCol          := 0
       ::nPage         := 0
       ::nYoffset      := 0
       ::nXoffset      := 0
       ::oSelection    := ::oActiveDoc
       ::lstartpag     := .t.
       ::lsetcm        := .f.
       ::lOverflowing  := .f.
       ::nlastrow      := 0
       ::ctextoverflow := ''

       RETURN sal

FiveTech Software tech support forums

Abrir documento WORD somente LEITURA com TWORD é POSSIVEL?

Abrir documento WORD somente LEITURA com TWORD é POSSIVEL?

como fazer?

Re: como fazer?

Re: Abrir documento WORD somente LEITURA com TWORD é POSSIVE