Objeto Word
Hace rato que estoy preguntando y no encuentro respuesta el tema es que yo quiero abrir un documento word solo lectura instanciando una clase word y me abre alguno solo lectura y otros no, los que son los que tienen grillas o picture incrustados, etc..., los que tiene texto me abren solo lectura, este es el código que pongo:
SELECT mkwGrupoAutBiz
loWord = CREATEOBJECT("Word.Application")
*****************************************
select mkwcursor
lcFile = allt(ubicacion) + allt(nombredocumento )+ ".doc"
loWord.Documents.Open(lcFile) loWord.ActiveDocument.ReadOnlyRecommended= .T.
loWord.Application.Visible = .T.
SELECT mkwGrupoAutBiz
loWord = CREATEOBJECT("Word.Application")
*****************************************
select mkwcursor
lcFile = allt(ubicacion) + allt(nombredocumento )+ ".doc"
loWord.Documents.Open(lcFile) loWord.ActiveDocument.ReadOnlyRecommended= .T.
loWord.Application.Visible = .T.
3 Respuestas
Respuesta de armageddon
1
Pasa lo siguiente el objeto Tword que usa delphi, muchas veces no es el mismo de sistema (obejeto OLE); sino uno con más restricciones en cuanto al manejo; Recomendación consigue el componente
TAwScript es para usar JSCript y VBScript junto con delphi;
Creas el objeto Word
Con el siguiente código:
var
Oword = TOleVariant;
.....
Oword := TAwscript.ActiveScript.Eval("word.Application");
// este objeto es un un objeto word propio ...
De allí en adelante te refieres a el igual que como en viasual basic para la modificación de parámetros.
TAwScript es para usar JSCript y VBScript junto con delphi;
Creas el objeto Word
Con el siguiente código:
var
Oword = TOleVariant;
.....
Oword := TAwscript.ActiveScript.Eval("word.Application");
// este objeto es un un objeto word propio ...
De allí en adelante te refieres a el igual que como en viasual basic para la modificación de parámetros.
Respuesta de denciso
1
No será mejor:
loWord.ActiveDocument.ReadOnly= True
loWord.ActiveDocument.ReadOnly= True
Si lo hice ya pero me da este error
ole dispach exepxion code cero microsoft word
Gracias
ole dispach exepxion code cero microsoft word
Gracias
Ok, creo que me falto:
loWord.ActiveDocument.ReadOnly:= True
Ya que una macro generada queda como sigue:
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 09/10/2006 por C.N.B.V.
'
ChangeFileOpenDirectory "D:\Mis documentos\CURSO DE AGOSTO\"
Documents.Open FileName:="""REPORTE ANUAL 2006.doc""", ConfirmConversions _
:=False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub
loWord.ActiveDocument.ReadOnly:= True
Ya que una macro generada queda como sigue:
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 09/10/2006 por C.N.B.V.
'
ChangeFileOpenDirectory "D:\Mis documentos\CURSO DE AGOSTO\"
Documents.Open FileName:="""REPORTE ANUAL 2006.doc""", ConfirmConversions _
:=False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
End Sub
Respuesta de gnovaro
1
Si quiero abrir todos los archivos en solo lectura, sin preguntar nada, solo abrirlos en solo lectura, ¿sabes qué podría hacer?, si me dijiste algo no entendí disculpame, muchas gracias
Esto estaba en la página de Microsoft
el FSO Es FileSystem Object
Podes referenciarlo en Visual Basic en Proyecto -> Referencias Microsoft Scriptyng Runtime y así vez los métodos que tiene sino de esta manera
Const READ_ONLY = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\Scripts\Computers.txt")
If objFile.Attributes AND READ_ONLY Then
objFile.Attributes = objFile.Attributes XOR READ_ONLY
End If
http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1019.mspx
http://www.microsoft.com/technet/scriptcenter/guide/sas_scr_tspz.mspx?mfr=true
el FSO Es FileSystem Object
Podes referenciarlo en Visual Basic en Proyecto -> Referencias Microsoft Scriptyng Runtime y así vez los métodos que tiene sino de esta manera
Const READ_ONLY = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile("C:\Scripts\Computers.txt")
If objFile.Attributes AND READ_ONLY Then
objFile.Attributes = objFile.Attributes XOR READ_ONLY
End If
http://www.microsoft.com/technet/scriptcenter/resources/qanda/oct04/hey1019.mspx
http://www.microsoft.com/technet/scriptcenter/guide/sas_scr_tspz.mspx?mfr=true
Private Sub Form_Load()
Dim fso As New Scripting.FileSystemObject
Dim f
Set f = fso.GetFile("c:\a.txt")
MsgBox f.Attributes
End Sub
Si le pones solo lectura te daría 33
32 archivo 1 solo lectura sino me equivoco es así no tengo mucho tiempo
http://www.4guysfromrolla.com/webtech/112600-1.shtml
Dim fso As New Scripting.FileSystemObject
Dim f
Set f = fso.GetFile("c:\a.txt")
MsgBox f.Attributes
End Sub
Si le pones solo lectura te daría 33
32 archivo 1 solo lectura sino me equivoco es así no tengo mucho tiempo
http://www.4guysfromrolla.com/webtech/112600-1.shtml