VBA Excel - Inserindo Cabeçalhos e Rodapés - Insert headers and footers using VBA

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Já pensou a respeito de como pode ser útil colocarmos cabeçalhos e rodapés personalizados nas planilhas que entregamos para os nossos chefes, departamentos clientes, ou mesmo em Dashboards, Scorecards, e Gráficos que enviamos por e-mail.

Seria ainda melhor se pudéssemos automatizar a colocação destes com contadores de página, data e horário, logomarca da empresa e em alguns casos com títulos e enunciados analíticos que reflitam o conteúdo daquilo que está sendo entregue.

  Sub InsHeadFoot()

' Insira o mesmo cabeçalho/rodapé em todas as abas

Dim ws As Worksheet

      Let Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets

          Let Application.StatusBar = "Alterando Cabeçalho/Rodapé em " & ws.Name

        With ws.PageSetup

              Let .LeftHeader = "Nome da Compania"

              Let .CenterHeader = "Pág. &P de &N"

              Let .RightHeader = "Impresso em &D &T"

              Let .LeftFooter = "Path : " & ActiveWorkbook.Path

            Let .CenterFooter = "Nome da planilha &F"

            Let .RightFooter = "Aba &A"

        End With

      Next ws

      Set ws = Nothing

      Let Application.StatusBar = False

End Sub

  Tags: Excel, VBA, header, footer, cabeçalho, rodapé, 
  

VBA Word - Inserindo cabeçalho e rodapé no documento - Word Footer and Header Code

| Blog Office VBA | Blog Excel | Blog Access |

Como posso automatizar a inserção de um cabeçalho e um rodapé no meu documento do MS Word? 

Tente utilizar o código abaixo:

Sub PutHeader_Footer()

 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then

 ActiveWindow.Panes(2).Close

 End If

 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

 ActivePane.View.Type = wdOutlineView Then

 Let ActiveWindow.ActivePane.View.Type = wdPrintView

 End If

 Let ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

 Let Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 Let Selection.TypeText Text:="BERNARDES - Aqui está o cabeçalho! "

 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate

 Selection.TypeText Text:=" "

 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldTime

 Selection.Find.ClearFormatting

 If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _

 ActivePane.View.Type = wdOutlineView Then

 Let ActiveWindow.ActivePane.View.Type = wdPrintView

 End If

 Let ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

 NormalTemplate.AutoTextEntries("Digite o nome do arquivo com o respectivo path").Insert Where:= _

 Selection.Range, RichText:=True

 Selection.TypeText Text:=" "

 NormalTemplate.AutoTextEntries("Criado em").Insert Where:=Selection.Range _

 , RichText:=True

 Selection.TypeText Text:=" "

 NormalTemplate.AutoTextEntries("- Pág. ").Insert Where:=Selection.Range, _

 RichText:=True

 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub 

Tags: VBA, Word, footer, header, code, cabeçalho, rodapé, inserir