FiveTech Software tech support forums

Dear Silvio, Could you please run this code ? local oWord := WinWordObj() local oDoc := oWord:Documents:Add() oDoc:PageSetup:Orientation = 0 many thanks for your feedback I add these lines on my Anteprima() function Function Anteprima(oBrowse,oRec)local ...

Dear Silvio,

Could you please run this code ?

local oWord := WinWordObj()
local oDoc := oWord:Documents:Add()

oDoc:PageSetup:Orientation = 0

many thanks for your feedback

...      Enddo       Release oReplace,oFind,oTexto       RETURN nil  Aunque también he tenido que modificar el método NEW comentando la linea IF ::oWord:hObj == 0 porque daba error METHOD   NEW()  CLASS TWord   ::lWord  := .T.   #IFDEF __XHARBOUR__      TRY        ::oWord := GetActiveObject( ...

Dear Michel, > 1. How do I open my document minimized? odoc := oWord:Documents:Open( cFile ) odoc:WindowState := 1 // wdWindowStateMinimize > How do I minimize a document that already has been opened, without using oWord:Visible := .F. which minimizes ...

Hello,

If I open a Word document in my application by using:

odoc := oWord:Documents:Open(cFile)

1. How do I open my document minimized?
2. How do I minimize a document that already has been opened, without using oWord:Visible := .F. which minimizes all my opened Word documents?

Thanks.

I just need to figure out what this error is:

Solo necesito averiguar qué es este error:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43084&sid=4132bd3592f232a9b39f43dfc43e989c&sid=933f9771c33783191aabd62bdcb36e9e#p259210

Regards, saludos.

Solo necesito averiguar qué es este error: I just need to figure out what this error is: ERRO! A ENTRADA DE AUTOTEXTO NÃO FOI DEFINIDA. ¡ERROR! LA ENTRADA DE AUTOTEXTO NO ESTÁ DEFINIDA. ERROR! AUTOTEXT ENTRY IS NOT DEFINED. Image: https://imgur.com/7J46lj6 https://i.imgur.com/7J4...

... PointToCentimeters(<n>)=>(<n>*28.35)FUNCTION Main()   LOCAL oWord, nCms   // Convert 2.5 centimeters to points   LOCAL nPts   oWord := WinWordObj()   oWord := CreateObject("Word.Application")  ...

... PointToCentimeters(<n>)=>(<n>*28.35)FUNCTION Main()   LOCAL oWord, nCms   // Convert 2.5 centimeters to points   LOCAL nPts   oWord := WinWordObj()   oWord := CreateObject("Word.Application")  ...

Harbour/xHarbour

#xtranslate CentimetersToPoint(<n>)=>(<n>*28.35)
#xtranslate PointToCentimeters(<n>)=>(<n>/28.35)

Not Correct:

Code: Select all  Expand view

 oWord := WinWordObj():New()
 

This is correct:

Code: Select all  Expand view

 oWord := WinWordObj()
 

oWord:CentimetersToPoints( n ) works with Harbour, but fails with xHarbour with runtime error.

Better we calculate like this:
nPts := nCms * 28.35

Ni usando:

Code: Select all  Expand view

   oWord := CreateObject("Word.Application.12")
 

NO Funciona. Mistério... jajajaja,

Regards, saludos.

Jimmy, on HARBOUR it works perfectly. You need to test it on XHARBOUR to understand. Definitivamente, el ERROR está en WIN32OLE.PRG: //---------------------------------------------------------------------------//METHOD New( uObj, cClass, cLicense ) CLASS TOleAuto   LOCAL oErr ...

Definitivamente, el ERROR está en WIN32OLE.PRG: //---------------------------------------------------------------------------//METHOD New( uObj, cClass, cLicense ) CLASS TOleAuto   LOCAL oErr   // Hack incase OLE Server already created and New() is attempted as an OLE Met...

I    oWord := WinWordObj():New()   oWord := CreateObject("Word.Application")  you did try to create 2 Instance :?: use only CreateObject("Word.Application") it work on my PC under ...