Classe PageNumber - número de página (Word VBA)

A classe PageNumber representa o número de página em um cabeçalho ou rodapé. O objeto PageNumber é um membro da coleção PageNumbers. A coleção PageNumbers inclui todos os números de página em um único cabeçalho ou rodapé. Para usar uma variável de classe PageNumber, ela primeiro precisa ser instanciada por exemplo

Dim pnr as PageNumber
Set pnr = Selection.HeaderFooter.PageNumbers(Index:=1)

For Each

Aqui está um exemplo de processamento dos itens PageNumber em uma coleção.

Dim pnr As PageNumber
For Each pnr In Selection.HeaderFooter.PageNumbers
	
Next pnr

Alignment

Retorna ou define uma constante Wdpagenumberalignmentwdpagenumberalignment que representa o alinhamento do número de página. Leitura/gravação. Os valores de retorno possíveis são wdAlignPageNumberCenter - Centralizado, wdAlignPageNumberInside - Alinhado à esquerda dentro do rodapé, wdAlignPageNumberLeft - Alinhamento à esquerda, wdAlignPageNumberOutside - Alinhado à direita fora do rodapé, wdAlignPageNumberRight - Alinhamento à direita.

Selection.HeaderFooter.PageNumbers(1).Alignment = wdAlignPageNumberCenter

Copy

Copia o número da página especificado para a área de transferência.

Selection.HeaderFooter.PageNumbers(1).Copy

Cut

Remove o objeto especificado do documento e o coloca na área de transferência.

Se Expression retornar um objeto Range ou Selection , o conteúdo do objeto será movido para a área de transferência, mas o objeto recolhido permanece no documento.

If ActiveDocument.Fields.Count >= 1 Then 
 ActiveDocument.Fields(1).Cut 
 Selection.Collapse Direction:=wdCollapseEnd 
 Selection.Paste 
End If

Delete

Exclui o número de página especificado.

Selection.HeaderFooter.PageNumbers(1).Delete

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

Dim lngIndex As Long
lngIndex = Selection.HeaderFooter.PageNumbers(1).Index

Select

Seleciona o número de página especificado.

Depois de usar esse método, use a propriedade Selection para trabalhar com os itens selecionados. Para obter mais informações, consulte o tópico Trabalhando com o objeto Selection.

Selection.HeaderFooter.PageNumbers(1).Select