Cambiar la imagen de la primera pagina diferente de una seccion de Word

4 envíos / 0 nuevos
Último envío
andyboker
Imagen de andyboker
Offline
última acción: Hace 1 mes 2 semanas
alta: 21/10/2018 - 10:07
Puntos: 35
Cambiar la imagen de la primera pagina diferente de una seccion de Word

Hola a todos. 

Estoy iniciandome en la programacion VBA y tengo un problema.

Quiero sustituir mediante vba una imagen que está en el ancabezado de la primera página (diferente del resto de páginas) y en el resto de hojas. Consigo cambiar la imagen del resto de hojas, es decir ,de la segunda en adelante pero no consigo sustituir la imagen del encabezado de la primera marcada como primera pagina diferente.

 

Private Sub Document_Open()

  'esto funciona con el resto de hojas 

  ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select

  Selection.Range.Delete

  Selection.InlineShapes.AddPicture     FileName:="C:\logos\ventanasnetcaberceraretopag.png",    LinkToFile:=False, SaveWithDocument:=True

  'esto no funciona para la primera hoja

  ActiveDocument.Sections(1).Headers(wdFirstPageFooterStory).Range.Select

  Selection.ShapeRange.Delete

  Selection.InlineShapes.AddPicture FileName:="C:\logos\ventanasnetcabercerapag1.png",     LinkToFile:=False, SaveWithDocument:=True

  

end sub

 me da error en la linea ActiveDocument.Sections(1).Headers(wdFirstPageFooterStory).Range.Select

 A ver si alguien me puede solucionar este quebradero de cabeza

Gracias y saludos!

Cron
Imagen de Cron
Offline
última acción: Hace 4 horas 14 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 11310
¿Estás seguro que la sección

¿Estás seguro que la sección donde está la primera página es la misma que la sección del resto de páginas?

Muy probablemente, precisamente para que sea una página diferente, habrá un salto de sección.

 

Un saludo

andyboker
Imagen de andyboker
Offline
última acción: Hace 1 mes 2 semanas
alta: 21/10/2018 - 10:07
Puntos: 35
Sí, están en la sección 1.En

Sí, están en la sección 1.En una sección puedes tener encabezados y pies diferentes para la primera página, para las impares y para las pares. En este caso, es un documento con una sola sección y la primera página diferente del resto, con lo cual hay dos encabezados uno para la primera página de la sección y otro para el resto de páginas de la sección sin distinguir entre pares e impares.

Saludos!

 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 4 horas 5 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9690
qué error te da

¿qué error te da?

la colección Headers tiene estos valores válidos como índices de la colección

wdHeaderFooterEvenPages=3

wdHeaderFooterFirstPage = 2

wdHeaderFooterPrimary = 1

 

prueba con 

ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Select

 

 

Data Tools Suite
datos y tablas con Excel