Problema al combinar correspondencia con imágenes

Angel Romero escribió:

Muchas gracias Mónica, eres una máquina, jejeje.
Aunque lo único malo es que cuando le doy a combinar, me saca en el
documento nuevo la imagen activa, y no vuelca los demás registros.
Alguna idea?
Pero gracias en serio.

Ángel Romero

Hola Angel :-)

Estoy pensando que si seleccionas todo el documento nuevo y le das a F9
¿te lo actualiza? no lo se te pregunto porque a mi me ha pasado una
cosa que llevo rato con ello resulta que cuando crea el nuevo documento
me saca los campos sin comillas y con mucho espacio entre el campo osea
me lo saca asi [Todo esto en el nuevo documento] Le doy a Alt+F9 y me lo
pone asi:

{INCLUDEPICTURE G:\\Documents and Settings\\Monica\\Mis documentos\\Mis
imágenes\\image001.jpg \* MERGEFORMAT}

¿Te pasa a ti eso? comprueba primero selecciona todo el documento Ctrl+E
y luego dale a F9 y si asi no actualiza comprueba esto que he comentado :-)

Comentanos :-)

Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com

Angel Romero escribió:

Muchas gracias Mónica, eres una máquina, jejeje.
Aunque lo único malo es que cuando le doy a combinar, me saca en el
documento nuevo la imagen activa, y no vuelca los demás registros.
Alguna idea?
Pero gracias en serio.

Ángel Romero

Hola Angel :-)

Bien ya he solucionado el problema que tenia :-) despistes que tiene una
jajajajaja! estos campos son muy sensibles y nada que te comas un
espacio o no pongas bien la ruta en excel se pierde el foco :-( bueno te
digo:

Para solventar el error de la macro cuando le damos a anterior registro
y llega a uno y te sale un letrerito que se ha producido un error en
tiempo de ejecucion pues amos a poner las lineas siguientes para que no
nos diga nada cuando le das a la flecha de anterior registro:

No se si me estoy explicando :-( bueno nos quedaria asi:

Sub CombinarRegistroAnterior()

On Error Resume Next
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
Selection.WholeStory
Selection.Fields.Update
Selection.EndKey Unit:=wdLine
On Error GoTo 0

End Sub


Con eso gestionamos el error y luego te paso esta otra macro para que
cuando le des a "Combinar en un nuevo Documento" te salga ya actualizado :

Sub CombinarEnDocumento()

Dialogs(wdDialogMailMerge).Show

Selection.WholeStory
Selection.Fields.Update
Selection.HomeKey Unit:=wdLine

End Sub

La puedes poner debajo de las otras ok? :-)

Bueno ya nos comentas :-)

Saludos
Monica

Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

www.fermu.com
www.zorval.com