Word en un formulario web browser en vfp
Quiero abrí documentos word en un formulario en vfp he leído que puede hacerse con el web browser si alguien puede ayudarme le agradezco mucho...
1 Respuesta
Respuesta de junio0or
1
Eso es bien fácil
Tienes que hacer un objeto el cual le dice que abra un documento word y esto no quiere decir que necesitas algo más,,, esto es muy simple sino sabes me dices y te mando un manual que encontré en la web cuando empezaba en esto...
Tienes que hacer un objeto el cual le dice que abra un documento word y esto no quiere decir que necesitas algo más,,, esto es muy simple sino sabes me dices y te mando un manual que encontré en la web cuando empezaba en esto...
Estimado
lo que quiero es abrir word en un control web browser pues ya he probado esta forma y no me convense es algo como
oForm = THISFORM
oForm.AddObject('oWordDoc','OleControl','WordDocument')
oForm.oWordDoc.Visible = .t.
oForm.oWordDoc.DoVerb(0)
Quiero en el browser por que me permite ajustar word y no se como hacerlo de todos modo mande la forma que tu encontraste y todo lo que tengas sobre el tema...
lo que quiero es abrir word en un control web browser pues ya he probado esta forma y no me convense es algo como
oForm = THISFORM
oForm.AddObject('oWordDoc','OleControl','WordDocument')
oForm.oWordDoc.Visible = .t.
oForm.oWordDoc.DoVerb(0)
Quiero en el browser por que me permite ajustar word y no se como hacerlo de todos modo mande la forma que tu encontraste y todo lo que tengas sobre el tema...
Mmm mira ps te voi a decir como es que lo ago io...
#DEFINE wdToggle 9999998
#DEFINE wdTableRight -999996
#DEFINE wdAlignParagraphLeft 0
#DEFINE wdAlignParagraphCenter 1
#DEFINE wdAlignParagraphJustify 3
#DEFINE wdHorizontalPositionMargin 0
#DEFINE wdCollapseEnd 0
#DEFINE wdCollapseStart 1
#DEFINE wdParagraph 4
?
oWord = CREATEOBJECT("Word.Application")
oWord.Visible = .F. && Toggle this to True to see if there's
&& any difference
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()
oRange.Collapse(wdCollapseStart)
WITH oRange
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Size = 14
.Font.Name = "Arial Black"
. InsertAfter("Reporte De Visitas Segun Fecha Asignada")
. MoveEnd(wdParagraph, 1)
.Bold = .T.
. Collapse(wdCollapseEnd)
. InsertParagraphAfter()
. MoveEnd(wdParagraph, 1)
.Bold = .F.
.Collapse(wdCollapseEnd)
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Font.Size = 12
.Font.Name = "Times New Roman"
. Collapse(wdCollapseEnd)
ENDwith
Esa es una pero también puedes hacer esto que es mucho más fácil si es que ya tienes el documento de word.
El código que tienes que poner es solamente
! ¿Start doc.doc
y simple eso es to que facil no?
#DEFINE wdToggle 9999998
#DEFINE wdTableRight -999996
#DEFINE wdAlignParagraphLeft 0
#DEFINE wdAlignParagraphCenter 1
#DEFINE wdAlignParagraphJustify 3
#DEFINE wdHorizontalPositionMargin 0
#DEFINE wdCollapseEnd 0
#DEFINE wdCollapseStart 1
#DEFINE wdParagraph 4
?
oWord = CREATEOBJECT("Word.Application")
oWord.Visible = .F. && Toggle this to True to see if there's
&& any difference
oDoc = oWord.Documents.Add()
oRange = oDoc.Range()
oRange.Collapse(wdCollapseStart)
WITH oRange
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Size = 14
.Font.Name = "Arial Black"
. InsertAfter("Reporte De Visitas Segun Fecha Asignada")
. MoveEnd(wdParagraph, 1)
.Bold = .T.
. Collapse(wdCollapseEnd)
. InsertParagraphAfter()
. MoveEnd(wdParagraph, 1)
.Bold = .F.
.Collapse(wdCollapseEnd)
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Font.Size = 12
.Font.Name = "Times New Roman"
. Collapse(wdCollapseEnd)
ENDwith
Esa es una pero también puedes hacer esto que es mucho más fácil si es que ya tienes el documento de word.
El código que tienes que poner es solamente
! ¿Start doc.doc
y simple eso es to que facil no?
