** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Word
  Mensajes nuevos Mensajes nuevos RSS - Eliminar Pie de pagina por código vba
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Eliminar Pie de pagina por código vba

 Responder Responder
Autor
Mensaje
valejos Ver desplegable
Habitual
Habitual


Unido: 02/Agosto/2014
Localización: Nicaragua
Estado: Sin conexión
Puntos: 106
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita valejos Cita  ResponderRespuesta Enlace directo a este mensaje Tema: Eliminar Pie de pagina por código vba
    Enviado: 24/Junio/2018 a las 05:08
Buenas noches, solicitando su amable colaboración, como podría eliminar un pié de página por código vba en word?, lo he intentado por el grabador de macro y no me ha funcionado.
Gracias de antemano
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3035
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita prga Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 24/Junio/2018 a las 12:19
Hola.
Sí puedes, explica un poco mas la situación ya que:
1º.-Un documento word puede tener múltiples secciones.
2º.- Cada sección puede tener diversos encabezados y pies diferentes( primera página, pares e impares etc etc)
Al decir "eliminar un pié", hay que eliminar el contenido del pié o sí se puede el pié en sí( salvo mejor opinión, siempre quedará como mínimo un encabezado y un pié).
Ya comentas.
Un saludo a todos
Arriba
valejos Ver desplegable
Habitual
Habitual


Unido: 02/Agosto/2014
Localización: Nicaragua
Estado: Sin conexión
Puntos: 106
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita valejos Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 25/Junio/2018 a las 02:44
Buenas noches prga, sucede que en una ocasión me ayudaste con un código que hasta el momento ha sido muy útil, sucede que muchas veces tengo que imprimir en el mismo documento una secuencia de información, y lo que sucede es que tengo que reescribir el pie de página sobre el que ya había impreso, por tal razón necesitaba una macro que pudiera elimnar u ocultarla para que cuando reimprima no me sorbre escriba la hoja, sin embargo he tratado de hacerlo con el mismo código y no he podido.
este fue el código que me proveíste del cual aún te agradezco mucho, espero ahora te des una mejor idea:

Public Sub hacepies()
'Crea pie para páginas pares e impares con 'formula' para paginar por hojas
 ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = True
 ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Select
  Selection.InsertAfter "FRONTAL-"
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Call faformula
 ActiveDocument.Sections(1).Footers(wdHeaderFooterEvenPages).Range.Select
 Selection.InsertAfter "REVERSO-"
 Selection.MoveRight Unit:=wdCharacter, Count:=1
 Call faformula
 ActiveDocument.Sections(1).Range.Select
 Selection.MoveLeft Unit:=wdCharacter, Count:=1
 ActiveWindow.View.Type = wdPrintView
End Sub

Private Sub faformula()
   Selection.InsertFormula Formula:="=INT(44444444/2) + MOD(44444444;2)", NumberFormat:=""
   ActiveDocument.ActiveWindow.View.ShowFieldCodes = True 
    With Selection.Find
        .Text = "44444444"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE  \* Arabic ", PreserveFormatting:=True
    Selection.Find.Execute
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="PAGE  \* Arabic ", PreserveFormatting:=True
    ActiveDocument.ActiveWindow.View.ShowFieldCodes = False 

End Sub
Arriba
valejos Ver desplegable
Habitual
Habitual


Unido: 02/Agosto/2014
Localización: Nicaragua
Estado: Sin conexión
Puntos: 106
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita valejos Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 25/Junio/2018 a las 02:47
http://www.mvp-access.com/foro/topic79421.html

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable