Classe DropCap - letra capitular (Word VBA)

A classe DropCap representa uma letra capitular no início de um parágrafo. Não há nenhuma coleção DropCaps ; cada objeto Paragraph contém apenas um objeto DropCap . Para usar uma variável de classe DropCap, ela primeiro precisa ser instanciada por exemplo

Dim dcp as DropCap
Set dcp = ActiveDocument.Paragraphs(1).DropCap

Clear

Remove a formatação de letra maiúscula inicial.

Set drop = ActiveDocument.Paragraphs(1).DropCap 
If Not (drop Is Nothing) Then drop.Clear

DistanceFromText

Retorna ou define um valor único que representa a distância em pontos entre a letra capitular e o texto do parágrafo. Leitura/gravação.

With ActiveDocument.Paragraphs(1).DropCap 
 .Enable 
 .FontName= "Arial" 
 .Position = wdDropNormal 
 .DistanceFromText = 12 
End With

Enable

Formata o primeiro caractere do parágrafo especificado como uma letra maiúscula.

With Selection.Paragraphs(1).DropCap 
 .Enable 
 .LinesToDrop = 2 
 .FontName = "Arial" 
End With

FontName

Retorna ou define um String que representa o nome da fonte para a letra capitular. Leitura/gravação.

With ActiveDocument.Paragraphs(1).DropCap 
 .FontName = "Arial" 
 .Position = wdDropNormal 
 .LinesToDrop = 3 
 .DistanceFromText = InchesToPoints(0.1) 
End With

LinesToDrop

Retorna ou define a altura em linhas da letra capitular especificada. Long de leitura/gravação.

With ActiveDocument.Paragraphs(1).DropCap 
 .Enable 
 .Position = wdDropNormal 
 .LinesToDrop = 3 
End With

Position

Retorna ou define a posição de uma letra maiúscula capitulada. Leitura/gravação WdDropPosition. Os valores de retorno possíveis são wdDropMargin - A letra maiúscula capitulada termina na margem esquerda, wdDropNone - Sem letra maiúscula capitulada, wdDropNormal - A letra maiúscula capitulada inicia na margem esquerda.

With ActiveDocument.Paragraphs(1).DropCap 
 .Enable 
 .FontName= "Arial" 
 .Position = wdDropNormal 
End With