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
Abrir documento WORD somente LEITURA com TWORD é POSSIVEL?
-
- Posts: 210
- Joined: Sun Jul 23, 2006 1:15 am
Abrir documento WORD somente LEITURA com TWORD é POSSIVEL?
FWH25+XHARBOUR 99.50
- Manuel Valdenebro
- Posts: 706
- Joined: Thu Oct 06, 2005 9:57 pm
- Location: Málaga-España
-
- Posts: 210
- Joined: Sun Jul 23, 2006 1:15 am
como fazer?
Mais como marcar o arquivo como leitura com FW?
A classe TWORD não faz isso?
Fique com Deus
Aokisantos
A classe TWORD não faz isso?
Fique com Deus
Aokisantos
FWH25+XHARBOUR 99.50
- Manuel Valdenebro
- Posts: 706
- Joined: Thu Oct 06, 2005 9:57 pm
- Location: Málaga-España
Re: como fazer?
No se hace desde FW sino desde Windows.AOKISANTOS wrote:Mais como marcar o arquivo como leitura com FW?(
MiPC + c: + directorio en el fichero pincha botón derecho y en propiedades del arquivo marcar como "solo lectura".
Un saludo
Manuel
Manuel
Re: Abrir documento WORD somente LEITURA com TWORD é POSSIVE
Aokisantos :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
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
Vikthor