terça-feira, 3 de julho de 2012

Adicionar e formatar um parágrafo em um documento de Word

Para adicionar e formatar um parágrafo em um documento de Word, abra um documento conforme mostrado neste post e utilize os seguintes comandos:

Dim docPara As Word.Paragraph
docPara = docDoc.Paragraphs.Add


With docPara.Range
      .Text =
"Inserir o Texto"
      .Font.Name = "Arial" 'Nome da fonte
      .Font.Size = 12 'Tamanho da fonte
      .Font.Bold = 1 'Em negrito ou não
      .Font.Italic = 0 'Em itálico ou não
      .Font.Color = 0 'Cor da fonte
      .Underline = Word.WdUnderline.wdUnderlineDouble 'Sublinhado ou não e os tipos de sublinhado
      .ParagraphFormat.Alignment = Word. WdParagraphAlignment.wdAlignParagraphDistribute 'Alinhamento do parágrafo
      .ParagraphFormat.SpaceBefore = 2 'Espaço antes do parágrafo
      .ParagraphFormat.SpaceAfter = 2 'Espaço após o parágrafo
      .ParagraphFormat.LineSpacingRule = Word.WdLineSpacing.wdLineSpaceAtLeast 'Opções de espaçamento entre linhas
      .ParagraphFormat.LineSpacing = 2 'Espaço entre linhas
      .InsertParagraphAfter() 'Inserir o parágrafo
End With

Os comandos acima são os principais. Explore outras opções da .Font e .ParagraphFormat.

Simples, não?

Nenhum comentário:

Postar um comentário