Imprimir página | Cerrar ventana

Eliminar Pie de pagina por código vba

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Word
Descripción del foro: Foro de Word
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83794
Fecha de impresión: 26/Mayo/2019 a las 09:31


Tema: Eliminar Pie de pagina por código vba
Publicado por: valejos
Asunto: Eliminar Pie de pagina por código vba
Fecha de publicación: 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



Respuestas:
Publicado por: prga
Fecha de publicación: 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


Publicado por: valejos
Fecha de publicación: 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


Publicado por: valejos
Fecha de publicación: 25/Junio/2018 a las 02:47
http://www.mvp-access.com/foro/topic79421.html




Imprimir página | Cerrar ventana