Números de página contínuos no documento do Word 2007 com quebras de seção

4

Eu tenho um documento com várias quebras de seção e quero adicionar um número de página a cada página na seção de rodapé.

Quando eu uso o Insert - Footer, ele começa com 1 para cada seção.

Existem centenas de secções e não pretendo premir o botão "Igual ao anterior" para cada secção.

Como insiro números de página contínua no Word 2007?

    
por shantanuo 22.10.2010 / 05:40

1 resposta

5

Adicione a macro a seguir ao seu documento e execute-a uma vez:

Sub Main()
    On Error Resume Next
    For i = 0 To ActiveDocument.Sections.Count
        ActiveDocument.Sections(i).Footers(wdHeaderFooterEvenPages).PageNumbers.RestartNumberingAtSection = False
        ActiveDocument.Sections(i).Footers(wdHeaderFooterFirstPage).PageNumbers.RestartNumberingAtSection = False
        ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
    Next i
End Sub

Você pode adicionar essa macro pressionando ALT-F11. Isso abrirá a janela do VBA. Clique com o botão direito em "ThisDocument" e escolha "Insert / Module". Copie e cole o código acima e pressione F5. Isso forçará cada seção a numeração contínua de páginas.

    
por 12.02.2012 / 07:31