Propriedade Page.IsTwoPageMaster (Publisher)

True se o objeto Page especificado for um mestre de duas páginas. Boolean de leitura/gravação.

Sintaxe

expressão. IsTwoPageMaster

Expressão Uma variável que representa um objeto Page .

Valor de retorno

Booliano

Comentários

Este método funciona somente para páginas mestras. Retorna um erro "Esse recurso é apenas para páginas mestras" ao tentar acessar essa propriedade de um objeto de página de publicação.

Exemplo

O exemplo a seguir adiciona texto a cada cabeçalho de uma página mestra de duas páginas, especificando a página mestra PageNumber e seu lugar na visualização de duas páginas: 1 ou 2.

Dim objMasterPage As Page 
Dim pageCount As Long 
Dim i As Long 
pageCount = ActiveDocument.MasterPages.Count 
For i = 1 To pageCount 
 Set objMasterPage = ActiveDocument.MasterPages(i) 
 If objMasterPage.IsTwoPageMaster Then 
 objMasterPage.Header.TextRange.Text = "MasterPage " & _ 
 objMasterPage.PageNumber & ", Page 1 of 2" 
 i = i + 1 
 Set objMasterPage = ActiveDocument.MasterPages(i) 
 objMasterPage.Header.TextRange.Text = "MasterPage " & _ 
 objMasterPage.PageNumber & ", Page 2 of 2" 
 End If 
Next i 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.