Estoy utilizando desde hace tiempo Word, directamente con Ole, a plena satisfacción. En una función que tengo que REEMPLAZA código (mailmerge), quiero que al reescribir la variable, lo haga con un color distinto al actual del documento. He puesto lo siguiente, pero me da problemas:

oDoc:Invoke('Color', 255)

¿Alguna idea para solucionarlo?

Manuel Valdenebro wrote:Estoy utilizando desde hace tiempo Word, directamente con Ole, a plena satisfacción. En una función que tengo que REEMPLAZA código (mailmerge), quiero que al reescribir la variable, lo haga con un color distinto al actual del documento. He puesto lo siguiente, pero me da problemas:

oDoc:Invoke('Color', 255)

¿Alguna idea para solucionarlo?

METHOD AddField( cField , nEnd , cFuente, nSize, lBold, lShadow, nColor  ) CLASS TWord     // Vikthor
       LOCAL oRange := ::oSelection:Range()
       LOCAL oFont
       DEFAULT nEnd := oRange:Get("End")
       oRange:SetRange( nEnd , nEnd )

       oFont  := oRange:Get("Font")
       DEFAULT cFuente := "Tahoma" ,;
               nSize   := 10       ,;
               lBold   := .F.      ,;
               lShadow := .F.      ,;
               nColor  := 0

       oFont:Set( "Name", cFuente )
       oFont:Set( "Size", nSize )
       oFont:Set( "Bold", lBold )
       oFont:Set( "Emboss", lShadow )
       oFont:Set( "Color", nColor )

       ::oFields:Invoke("Add", oRange , cField )

       oFont:Invoke( "Reset" )
       RELEASE oFont , oRange

RETURN( Nil )

Manuel Valdenebro wrote:Muchas gracias Vikthor por contestar.

He hecho algunas rectificaciones en mi módulo, de las conclusiones que he sacado de su Method, pero me sigue dando error. Algo estoy haciendo mal. Este es mi código:

Code: Select all Collapse

STATIC FUNCTION REEMPLACE (oDoc, cViejo, cNuevo)
LOCAL oSelection, oTexto, oFind, oFont

         oSelection := oDoc
         oTexto := oSelection:Range
         oFind  := oTexto:Find
         // oFont:Set("Color", RGB(255,255,255) )  // aqui da error
         // oFont:Set("Bold", .t.)                            // aqui da error
         oFind:Text:= cViejo
         oFind:Forward:=.T.
         oFind:Wrap:= INT(1)
         oFind:Format:=.f.
         oFind:MatchCase:=.f.
         oFind:Execute()
         // oFont:Invoke( "Reset" )

         WHILE oFind:Found
             oTexto:Text:=cNuevo
             oFind:Execute()
         Enddo
  RETURN nil

¿Podrias ayudarme?

oFont  := oRange:Get("Font")

Vikthor,

Ahora funciona SET("Bold", .t.).- Pero cuando intento cambiar el color del oRange SET("Color", 32768), me da el siguiente error:

Error description: Error Word.Application:DOCUMENTS:OPEN:RANGE:FONT/16389 E_FAIL: COLOR
Args:
[ 1] = N 32768

Stack Calls

Called from: win32ole.prg => TOLEAUTO:COLOR(0)
Called from: => HB_EXECFROMARRAY(0)
Called from: win32ole.prg => TOLEAUTO:SET(405)

¿Alguna idea?

Muchas gracias por tu ayuda