engadriano

@Muca Costa muito obrigado, funcionando 100%.

Pessoal, peço ajuda nesse código, ele copia a célula ativa do Excel e cola no Word. Gostaria de fazer três alterações e não estou conseguindo. 1 - O documento do Word tem que estar aberto, senão dá erro, gostaria de inserir uma mensagem para abrir um arquivo, caso não tenha nenhum aberto. 2 - O texto é colado sempre no final do arquivo do Word, gostaria que fosse colado onde se encontra o cursor do Word. 3 - Que o texto fosse colado no Word justificado. Agradeço quem puder me ajudar. Adriano Public Sub CopyTableChartToOpenWordDocument() Dim Word As Word.Application Dim myText As Excel.Range Application.ScreenUpdating = False Application.EnableEvents = False Set myText = ActiveCell myText.Copy Set Word = GetObject(, "Word.Application") Word.Selection.EndKey Unit:=wdStory Word.Selection.TypeParagraph Word.Selection.PasteSpecial DataType:=wdPasteText Set Word = Nothing Application.CutCopyMode = False End Sub