Adicionar e formatar um cabeçalho e rodapé em um documento de Word

Para editar o cabeçalho e o rodapé em um documento Word, utilize os códigos abaixo.

Abrir o cabeçalho para edição:

docDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader

Abrir o rodapé para edição:

docDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageFooter

Para fechar a edição tanto para o cabeçalho quanto para o rodapé, utilize o código abaixo:

docDoc.Content.Application.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument

Abaixo, alguns códigos para inserir elementos no cabeçalho ou rodapé enquanto a edição do campo está aberta:

With docDoc.Content.Application.Selection
      .TypeText(Text:="Texto") 'Insere texto
      .ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft 'Altera o alinhamento do texto
      .Font.Name = "Arial" 'Altera a fonte do texto
      .Font.Size =10 'Altera o tamanho da fonte do texto
      .Font.Bold = 0 'Coloca em negrito ou não o texto
      .InlineShapes.AddPicture("Caminho da figura/nome.extensão") 'Insere figura
      .Fields.Add(Range:=docDoc.Content.Application.Selection.Range, Type:=CInt(Word.WdFieldType.wdFieldEmpty), Text:="page") 'Insere o número da página
      .Fields.Add(Range:=docDoc.Content.Application.Selection.Range, Type:=CInt(Word.WdFieldType.wdFieldEmpty), Text:="numpages") 'Insere o número total de páginas
End With

Uma boa maneira de aprender novos códigos é utilizar a macro do Word. Grave as alterações que queira fazer e adapte para o código VB.NET.

Simples, não?

Colocar texto na área de transferência

Para colocar um texto na área de transferência utilize o seguinte código:

Clipboard.SetDataObject("String", True)

A String pode ser um TextBox.Text.

Para retirar o texto da área de transferência utilize o seguinte código:

Clipboard.GetDataObject().GetData(DataFormats.Text).ToString()

Para limpar a área de transferência utilize o seguinte código:

Clipboard.Clear()

Simples, não?

Adicionar e formatar uma tabela em um documento do Word

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

Dim docTable As Word.Table
Dim r As Integer = 2 'Número de linhas
Dim c As Integer = 2 'Número de colunas
docTable = docDoc.Tables.Add(docDoc.Bookmarks.Item("\endofdoc").Range, r, c)

With docTable
      .Range.Font.Name = "Arial"'Nome da fonte
      .Range.Font.Size = 10 'Tamanho da fonte
      .Rows.Alignment = Word.WdRowAlignment.wdAlignRowCenter 'Alinhamento horizontal do texto nas linhas
      .Rows(2).Range.Font.Bold = 1 'Fonte em negrito na linha 2
      .Columns.DistributeWidth() 'Distribui a largura das células de acordo como conteúdo
      .Columns(1).Width = 50 'Especifica o tamanho da coluna 1
      .Cell(1, 1).Merge(docTable.Cell(2, 1)) 'Mesclar a célula (1, 1) com a célula (2, 1)
      .Cell(1, 1).Range.Text = "Texto"'Inserir texto na célula (1, 1)
      .Cell(1, 1).Range.Font.Bold = 1 'Texto da célula (1, 1) em negrito
      .Cell(1, 1).Range.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter 'Alinhamento horizontal do texto na célula (1, 1)
      .Cell(1, 1).VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter 'Alinhamento vertical do texto na célula (1, 1)
      .Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).Color = Word.WdColor.wdColorBlue 'Altera a cor da borda superior da célula (1, 1)
      .Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).LineStyle = Word.WdLineStyle.wdLineStyleSingle 'Altera o estilo da linha da borda superior da célula (1, 1)
      .Cell(1, 1).Borders(Word.WdBorderType.wdBorderTop).LineWidth = Word.WdLineWidth.wdLineWidth025pt 'Altera o tamanho da linha da borda superior da célula (1, 1)
      .Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleSingle 'Estilo das bordas internas da tabela
      .Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleSingle 'Estilo das bordas externas da tabela
End With

Estes são os principais comandos. Explore outros.

Simples, não?

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?

Colocando uma máscara de hora em um Textbox

'Cancelar as teclas de letras, acentos e outros caracteres não numéricos
If Not Char.IsNumber(e.KeyChar) And e.KeyChar <> Chr(8) And e.KeyChar <> Chr(13) Then
      e.Handled = True
End If

'Máscara de data com a barra
If IsNumeric(e.KeyChar) = True Then
      Select Case TextBox1.TextLength
            Case 0
                  TextBox1.Text = ""
            Case 2
                  TextBox1.Text = TextBox1.Text + ":"
                  TextBox1.SelectionStart = 4
      End Select
End If

'Limita o textbox a 5 caracteres
If TextBox1.TextLength = 5 Then
      If Not e.KeyChar = Chr(8) Then
            e.Handled = True
            TextBox1.SelectionStart = TextBox1.TextLength
      End If
End If

'Retirar o : das posições e o número anterior quando Backspace é pressionada
If TextBox1.TextLength &lt;&gt; 0 Then
      If e.KeyChar = Chr(8) And TextBox1.TextLength = TextBox1.Text.LastIndexOf(":") + 1 Then
            TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.TextLength - 1)
            TextBox1.SelectionStart = TextBox1.TextLength
      End If
End If