Propriedade TextRange.DropCap (Publisher)
Retorna um objeto DropCap que representa um letra capitular para os parágrafos do quadro de texto especificado.
Sintaxe
expressão. DropCap
Expressão Uma variável que representa um objeto TextRange .
Valor de retorno
DropCap
Exemplo
Este exemplo aplica uma letra capitular personalizada que tem três linhas de altura e espaça os primeiros três caracteres de cada parágrafo no quadro de texto especificado.
Sub SetDropCap()
With ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange
.DropCap.ApplyCustomDropCap FontName:="Snap ITC", _
Bold:=True, Size:=3, Span:=3
With .ParagraphFormat
.SpaceBefore = 6
.SpaceAfter = 6
End With
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.