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.
Comentários
https://aka.ms/ContentUserFeedback.
Brevemente: Ao longo de 2024, vamos descontinuar progressivamente o GitHub Issues como mecanismo de feedback para conteúdos e substituí-lo por um novo sistema de feedback. Para obter mais informações, veja:Submeter e ver comentários