FoxPro/Visual FoxPro - Mandar cadena de datos a word

 
Vista:

Mandar cadena de datos a word

Publicado por Zamora (77 intervenciones) el 08/03/2013 20:12:35
Buen día a todos

Estoy haciendo una aplicación que tiene como platilla un archivo de WORD si mando variables a WORD de un renglón no hay problema no importando que tenga espacios, pero cuando trato de mandar una cadena de caracteres que saco de otra tabla me manda errores.

EJ.
Dato correcto:
lfBuscaReplaCadena(loWord.Selection, "<<A001>>", 'C3-01313/0')

Esta variable la mando de un bucle para generarlo llamada , vFACT

NÚMERO DE FACTURA: ARC-0737 FECHA: 22/10/12
NÚMERO DE FACTURA: ATW-1656 FECHA: 22/10/12
NÚMERO DE FACTURA: ATW-1657 FECHA: 22/10/12
NÚMERO DE FACTURA: ATW-1658 FECHA: 22/10/12
NÚMERO DE FACTURA: ATW-1659 FECHA: 23/10/12
NÚMERO DE FACTURA: ATW-1660 FECHA: 23/10/12
NÚMERO DE FACTURA: ATW-1661 FECHA: 23/10/12
NÚMERO DE FACTURA: ARC-0738 FECHA: 23/10/12
NÚMERO DE FACTURA: ARC-0739 FECHA: 23/10/12

lo mando = que el 1° ejemplo pero me manda el error 1929
lfBuscaReplaCadena(loWord.Selection, "<<A002>>", vFACT)

Agradezco de antemano su ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Edgar Zambrano
Val: 2
Ha aumentado su posición en 36 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Mandar cadena de datos a word

Publicado por Edgar Zambrano (72 intervenciones) el 11/03/2013 20:28:45
prueba con esta función

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
wordFindAndreplace("foxpro","FoxPro","c:\informe.doc")
FUNCTION wordFindAndReplace
  LPARAMETERS cValueTofind,cValueToreplace,cDocument
  LOCAL lValue
  oWord=CREATEOBJECT("word.application")
  oDocument=oWord.Documents.OPEN(cDocument)
  loSelection=oWord.SELECTION
  WITH loSelection.FIND
    .TEXT = cValueToFind
    .Forward = .T.
    .WRAP= 1
  ENDWITH
  DO WHILE .T.
    lValue = loSelection.FIND.Execute
    IF lValue
      loSelection.Cut
      loSelection.InsertBefore(cValueToReplace)
      loselection.MoveRight
    ELSE
      EXIT
    ENDIF
  ENDDO
ENDFUNC
oWord.VISIBLE =.T.


Tomado de PortalFox: http://www.portalfox.com/index.php?name=News&file=article&sid=1361
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar