FoxPro/Visual FoxPro - duplicar paginas en word

   
Vista:

duplicar paginas en word

Publicado por jose camilo (688 intervenciones) el 11/08/2015 18:03:34
anexo parte del codigo que utilizo para reemplazar datos en un documento de word, ahora bien necesito agregar una pagina o un archivo a un documento de word ya existente. asi en mi sistema de cxc puedo enviar cartas a todos los cliente que estan atrazado, pero antes de esto las visualisos todas en una documento de word para aprobacion del encargado de cuentas por cobrar.

necesito ayuda


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
cBuscado="NOMBRE_CLIENTE"
  cReemplazo="LILI Diaz"
  cDocumento="D:\UNO.DOC"
  LOCAL lValue
  oWord=CREATEOBJECT("word.application")
  oDocument=oWord.Documents.OPEN(cDocumento,.T.)
  loSelection=oWord.SELECTION
  WITH loSelection.FIND
    .TEXT = cBuscado
    .Forward = .T.
    .WRAP= 1
  ENDWITH
  DO WHILE .T.
    lValue = loSelection.FIND.Execute
    IF lValue
      loSelection.Cut
      loSelection.InsertBefore(cReemplazo)
      loselection.MoveRight
    ELSE
      EXIT
    ENDIF
  ENDDO
 
oWord.ActivePrinter = GETPRINTER()
oWord.printout()
oWord.documents().close(.T.)
oWord.Quit(.F.)
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