Classe Zoom - opções de ampliação (Word VBA)

Contém opções de ampliação (por exemplo, o percentual de zoom) para uma janela ou painel. O objeto Zoom é um membro da coleção Zooms. Para usar uma variável de classe Zoom, ela primeiro precisa ser instanciada por exemplo

For Each

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

Dim pan As Pane: Set pan = 
Dim zoo As Zoom
For Each zoo In pan.Zooms
	With zoo
		
	End With
Next zoo

PageColumns

Retorna ou define o número de páginas a serem exibidas lado a lado na tela ao mesmo tempo no modo de layout de impressão ou visualizar impressão. Long de leitura/gravação.

With ActiveDocument.ActiveWindow.View 
 .Type = wdPrintView 
 .Zoom.PageColumns = 2 
 .Zoom.PageRows = 1 
End With

PageFit

Retorna ou define a ampliação da exibição de uma janela de forma que a página inteira ou a largura inteira da página fique visível. Leitura/gravação WdPageFit. Os valores de retorno possíveis são wdPageFitBestFit - Melhor ajuste à página da janela ativa, wdPageFitFullPage - Exibição da página inteira, wdPageFitNone - Não ajusta as configurações de exibição da página, wdPageFitTextFit - Melhor ajuste ao texto da página da janela ativa.

A constante wdPageFitFullPage não tem efeito algum quando o documento não está no modo de layout de impressão. Quando a propriedade PageFit está definida como wdPageFitBestFit, o percentual de zoom é recalculado automaticamente toda vez que o tamanho da janela de documento é alterado. A configuração dessa propriedade como wdPageFitNone evita que o percentual de zoom seja recalculado sempre que isso acontece.

With Windows("Letter.doc").View 
 .Type = wdNormalView 
 .Zoom.PageFit = wdPageFitBestFit 
End With

PageRows

Retorna ou define o número de páginas a ser exibidas de uma acima da outra na tela ao mesmo tempo no modo de layout de impressão ou visualizar impressão. Long de leitura/gravação.

PrintPreview = True 
With ActiveDocument.ActiveWindow.View.Zoom 
 .PageColumns = 1 
 .PageRows = 2 
End With

Percentage

Retorna ou define a ampliação para uma janela como um percentual. Long de leitura/gravação.

With ActiveDocument.ActiveWindow.View 
 .Type = wdNormalView 
 .Zoom.Percentage = 80 
End With