Aplicando formatação ao texto

Este tópico inclui exemplos do Visual Basic relacionados às tarefas nas seções a seguir.

Aplicar formatação à seleção

O exemplo a seguir usa a propriedade Selection para aplicar a formatação de caracteres e parágrafos ao texto selecionado. Use a propriedade Font para acessar propriedades e métodos de formatação de caracteres e a propriedade ParagraphFormat para acessar propriedades e métodos de formatação de parágrafo.

Sub FormatSelection() 
 With Selection.Font 
 .Name = "Times New Roman" 
 .Size = 14 
 .AllCaps = True 
 End With 
 With Selection.ParagraphFormat 
 .LeftIndent = InchesToPoints(0.5) 
 .Space1 
 End With 
End Sub

Aplicar formatação a um intervalo

O exemplo a seguir define um objeto Range que se refere aos três primeiros parágrafos do documento ativo. O Intervalo é formatado aplicando propriedades do objeto Font e do objeto ParagraphFormat .

Sub FormatRange() 
 Dim rngFormat As Range 
 Set rngFormat = ActiveDocument.Range( _ 
 Start:=ActiveDocument.Paragraphs(1).Range.Start, _ 
 End:=ActiveDocument.Paragraphs(3).Range.End) 
 With rngFormat 
 .Font.Name = "Arial" 
 .ParagraphFormat.Alignment = wdAlignParagraphJustify 
 End With 
End Sub

Inserir texto e aplicar a formatação de parágrafos e caracteres

O exemplo a seguir adiciona a palavra "Título" na parte superior do documento atual. O primeiro parágrafo está centralizado e meia polegada espaço é adicionado depois do parágrafo. A palavra "Título" é formatada com fonte Arial 24.

Sub InsertFormatText() 
 Dim rngFormat As Range 
 Set rngFormat = ActiveDocument.Range(Start:=0, End:=0) 
 With rngFormat 
 .InsertAfter Text:="Title" 
 .InsertParagraphAfter 
 With .Font 
 .Name = "Tahoma" 
 .Size = 24 
 .Bold = True 
 End With 
 End With 
 With ActiveDocument.Paragraphs(1) 
 .Alignment = wdAlignParagraphCenter 
 .SpaceAfter = InchesToPoints(0.5) 
 End With 
End Sub

Alternar o espaço antes do parágrafo entre 12 pontos e nenhum

O exemplo a seguir alterna o espaço, antes de formatar o primeiro parágrafo da seleção. A macro recupera o espaço atual antes do valor e, se o valor for de 12 pontos, a formatação de espaço antes será removida (a propriedade SpaceBefore será definida como zero). Se o valor de espaço anterior for diferente de 12, a propriedade SpaceBefore será definida como 12 pontos.

Sub ToggleParagraphSpace() 
 With Selection.Paragraphs(1) 
 If .SpaceBefore = 12 Then 
 .SpaceBefore = 0 
 Else 
 .SpaceBefore = 12 
 End If 
 End With 
End Sub

Ativando e desativando o negrito

O exemplo a seguir alterna a formatação com negrito do texto selecionado.

Sub ToggleBold() 
 Selection.Font.Bold = wdToggle
End Sub

Aumentar a margem esquerda em 0,5 polegadas

O exemplo a seguir aumenta as margens esquerda e direita em 0,5 polegadas. O objeto 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. A propriedade LeftMargin é usada para voltar e definir a configuração da margem esquerda. A propriedade RightMargin é usada para retornar e definir a configuração de margem certa.

Sub FormatMargins() 
 With ActiveDocument.PageSetup 
 .LeftMargin = .LeftMargin + InchesToPoints(0.5) 
 .RightMargin = .RightMargin + InchesToPoints(0.5) 
 End With 
End Sub

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.