Abrir documento WORD somente LEITURA com TWORD é POSSIVEL?

[AOKISANTOS]

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

[Manuel Valdenebro]

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

[AOKISANTOS]

Mais como marcar o arquivo como leitura com FW?

A classe TWORD não faz isso?

Fique com Deus
Aokisantos

[Manuel Valdenebro]

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".

[Vikthor]

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  Expand view  RUN

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