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!
¿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
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!
¿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
------
Ya sé Excel, pero necesito más.