duplicar paginas en word
Publicado por jose camilo (805 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
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.CutloSelection.InsertBefore(cReemplazo)
loselection.MoveRightELSE
EXIT
ENDIF
ENDDO
oWord.ActivePrinter = GETPRINTER()
oWord.printout()
oWord.documents().close(.T.)
oWord.Quit(.F.)
Valora esta pregunta
0