Automatizar tarefas no Word nao e algo muito comum, desde que comecei a programar no Office, vi muito pouca coisa nesse sentido.Para registro, vou postar alguns codigos para que sirva de aprendizado para quem esta comecando e para consultas aos que ja utilizaram e esquecem de vez em quando (como eu...).Abaixo 3 formas de se referenciar celulas de uma tabela no Word, lembrando que o uso de tabelas e muito util principalmente em documentos que devem ser preenchidos como contratos, recibos, etc.;-)Option ExplicitSub PreencheCelula() ActiveDocument.Tables(1).Rows(1).Cells(2).Range.Text = "Linha 1, coluna 2" ActiveDocument.Tables(1).Cell(2, 2).Range.Text = "Linha 2, coluna 2" ActiveDocument.Tables(1).Columns(2).Cells(3).Range.Text = "Linha 3, coluna 2"End Sub As vezes a gente precisa de coisas diferentes e a necessidade acaba gerando codigos novos: como listar os e-mails numa tabela (com pouca adaptacao, poderia ser uma planilha do Excel).;-)Sub Listar_emails_Access() Dim rst As New ADODB.Recordset Dim cnn As New ADODB.Connection Dim contador_itens As Integer Dim nms As Outlook.NameSpace Dim fld As Outlook.MAPIFolder Dim itm As Object Set nms = Application.GetNamespace("MAPI") Set fld = nms.PickFolder cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "C:Base.accdb" rst.Open "Tabela1", cnn, adOpenKeyset, adLockOptimistic contador_itens = fld.Items.Count For Each itm In fld.Items If itm.Class = olMail Then rst.AddNew rst!titulo = itm.Subject rst!Data = itm.ReceivedTime rst.Update End If Next itm rst.Close cnn.Close MsgBox "Fim" End Subv Aconteceu com um colega outro dia: ao importar um arquivo exportado no formato HTML, o texto veio com as tags dentro das celulas conforme mostra a figura na celula A1:Numa rapida busca pela internet, consegui o codigo abaixo para resolver o problema (que na figura acima esta na funcao da celula B1).Nao esquecer de marcar a referencia no VBA:Public Function ConverterHTML(textoHTML) As String Dim Hdoc As New HTMLDocument Hdoc.body.innerHTML = textoHTML ConverterHTML = Hdoc.body.innerTextEnd Function Algumas funcoes do Excel nao existem no VBA e reescreve-las e trabalhoso, fora o risco de errar no calculo.Para isso, voce pode referenciar o Excel no VBA e utilizar a funcao nativa dele, vejam um exemplo com a funcao XTIR (lembrando que em ingles chama-se de XIRR):;-) As vezes o Google Maps fica irritantemente lento e para isso segue uma dica.No link do Maps, acrescente uma virgula e "force=lite" conforme abaixo:https://www.google.com.br/maps/@-23.5679681,-46.5403448,15z?hl=pt-BR,force=liteObviamente que os cuidados basicos devem ser tomados como limpeza de arquivos temporarios, cookies, etc.;-) Esta e uma tecnica largamente utilizada na elaboracao de contratos no Word.Trata-se de uma tabela que contera texto em suas celulas onde o alinhamento (esquerda, direita, centro, superior, inferior, etc.) funciona igual ao Excel, com a qual a maioria das pessoas ja esta familiarizada.Apos o alinhamento efetuado, basta deixar as linhas das bordas da tabela invisiveis, vejam o resultado abaixo.;-) Metodo para nao permitir a digitacao de caracteres nao numericos numa caixa de texto:Private Sub Texto1_KeyPress(KeyAscii As Integer) If InStr(1, "0123456789" & vbKeyDelete & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0 End IfEnd Sub;-) "No final de Maio de 2009, estive com Michael quando ele estava deixando o consultorio de Arnold Klein, em Beverly Hills.O show This Is It estava sendo divulgado e havia um enxame de paparazzi do lado de fora do predio.Eu estava nervosa sobre ele ser