|
|
|
|
 |
Título da Dica: Algumas dicas para gerar um documento Word através do VB
|
 |
|
|
|
Postada em 14/3/2004 por Magalhães
Algumas dicas para ajudar quem precisa gerar um documento Word através do VB
'a linha abaixo coloca o nº página no rodapé
.Selection.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add pagenumberalignment:=wdAlignPageNumberRight
‘Para digitar no cabeçalho:
‘Para escolher o tamanho da fonte
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Size = 14
‘Para colocar em negrito
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Bold = True
‘Para escolher o alinhamento
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
‘Para aparecer o texto
.Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "Relatório“
‘Para limpar todos alinhamentos (inclusive tabulações)
.Selection.Paragraphs.TabStops.ClearAll
‘Para justificar um texto
.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
‘Para centralizar um texto
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
‘Para deixar um texto a esquerda
.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
‘Para deixar um texto a direita
.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
‘Para criar uma tabulação use:
.Selection.Paragraphs.TabStops.Add Position:=InchesToPoints(3.93700787401), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderDots
(Para colocar a tabulação em 10cm calcule para pixels. (10 / 2.54 = 3.93700787401)
‘Para digitar um texto
.Selection.TypeText Text:="Texto digitado"
‘Para digitar um texto na tabulação
.selection.TypeText Text=chr(9) & “Texto digitado”
‘Para digitar um texto em negrito
.Selection.Font.Bold = True
.Selection.TypeText Text:=”Texto digitado”
.Selection.Font.Bold = False
‘Para digitar um texto italico
.Selection.Font.Italic = True
.Selection.TypeText Text:=”Texto digitado”
.Selection.Font.Italic = False
‘Para digitar um texto sublinhado
.Selection.Font.Underline = True
.Selection.TypeText Text:=”Texto digitado”
.Selection.Font.Underline = False
‘Para dar um espaço entre as linhas
.Selection.TypeParagraph
‘Para manter vários parágrafos juntos e manter com o próximo
.Selection.Paragraphs.KeepTogether = True
.Selection.Paragraphs.KeepWithNext = True
… aqui vai os parágrafos
.Selection.Paragraphs.KeepTogether = False
.Selection.Paragraphs.KeepWithNext = False
|
|
|
|
|
