Tarefas diversas

Este tópico inclui exemplos do Visual Basic para as tarefas identificadas nas seções a seguir.

Alterar o modo

O objeto View inclui propriedades e métodos relacionados à exibição de atributos (como mostrar todos, sombreamento de campo e linhas de grade de tabela) para uma janela ou painel. O exemplo a seguir altera o modo de exibição para o modo de visualização de impressão.

Sub ChangeView() 
    ActiveDocument.ActiveWindow.View.Type = wdPrintView 
End Sub

Definir texto em um cabeçalho ou rodapé

O objeto HeaderFooter é retornado pelas propriedades Headers, Footers e HeaderFooter . O exemplo a seguir altera o texto do cabeçalho de página atual.

Sub AddHeaderText() 
    With ActiveDocument.ActiveWindow.View 
        .SeekView = wdSeekCurrentPageHeader 
        Selection.HeaderFooter.Range.Text = "Header text" 
        .SeekView = wdSeekMainDocument 
    End With 
End Sub

Este exemplo cria um objeto Range , rngFooter, que faz referência ao rodapé primário para a primeira seção no documento ativo. Após a definição do objeto Range, o texto do rodapé existente é excluído. O campo FILENAME é adicionado ao rodapé juntamente com duas tabulações e o campo AUTHOR.

Sub AddFooterText() 
    Dim rngFooter As Range 
    Set rngFooter = ActiveDocument.Sections(1) _ 
        .Footers(wdHeaderFooterPrimary).Range 
    With rngFooter 
        .Delete 
        .Fields.Add Range:=rngFooter, Type:=wdFieldFileName, Text:="\p" 
        .InsertAfter Text:=vbTab & vbTab 
        .Collapse Direction:=wdCollapseStart 
        .Fields.Add Range:=rngFooter, Type:=wdFieldAuthor 
    End With 
End Sub

Definir opções

O objeto Options inclui propriedades que correspondem a configurações opcionais que estão disponíveis em vários menus e caixas de diálogo em todo Word. O exemplo seguinte define três configurações de aplicativo para o Word.

Sub SetOptions() 
    With Options 
        .AllowDragAndDrop = True 
        .ConfirmConversions = False 
        .MeasurementUnit = wdPoints 
    End With 
End Sub

Alterar o layout do documento

O PageSetup contém todos os atributos de configuração de página de um documento (como margem esquerda, margem inferior e tamanho do papel) como propriedades. O exemplo a seguir define valores de margem para o documento ativo.

Sub ChangeDocumentLayout() 
    With ActiveDocument.PageSetup 
        .LeftMargin = InchesToPoints(0.75) 
        .RightMargin = InchesToPoints(0.75) 
        .TopMargin = InchesToPoints(1.5) 
        .BottomMargin = InchesToPoints(1) 
    End With 
End Sub

Efetuar um loop através dos parágrafos de um documento

Este exemplo faz um loop por todos os parágrafos do documento ativo. Se a configuração de espaço anterior de um parágrafo for de 6 pontos, este exemplo alterará o espaçamento para 12 pontos.

Sub LoopParagraphs() 
    Dim parCount As Paragraph 
    For Each parCount In ActiveDocument.Paragraphs 
        If parCount.SpaceBefore = 12 Then parCount.SpaceBefore = 6 
    Next parCount 
End Sub

Para obter mais informações, consulte Loop através de uma coleção.

Personalizar menus e barras de ferramentas

O objeto CommandBar representa menus e barras de ferramentas (em versões de Word que não usam a faixa de opções). Use a propriedade CommandBars com um menu ou nome da barra de ferramentas para retornar um único objeto CommandBar . A propriedade Controls retorna um objeto CommandBarControls que se refere aos itens da barra de comando especificada. O exemplo a seguir adiciona o comando Word Count (Contar Palavras) ao menu Standard (Padrão).

Sub AddToolbarItem() 
    Dim btnNew As CommandBarButton 
    CustomizationContext = NormalTemplate 
    Set btnNew = CommandBars("Standard").Controls.Add _ 
        (Type:=msoControlButton, ID:=792, Before:=6) 
    With btnNew 
        .BeginGroup = True 
        .FaceId = 700 
        .TooltipText = "Word Count" 
    End With 
End Sub

O exemplo a seguir adiciona o comando Double Underline à barra de ferramentas Formatting.

Sub AddDoubleUnderlineButton() 
    CustomizationContext = NormalTemplate 
    CommandBars("Formatting").Controls.Add _ 
        Type:=msoControlButton, ID:=60, Before:=7 
End Sub

Ative o gravador de macro e personalize um menu ou barra de ferramentas para determinar o valor ID de um determinado comando (por exemplo, ID 60 corresponde ao comando Double Underline).

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.