none
Macro Copiar Célula do Excel Para o Word RRS feed

  • Pergunta

  • Caros, 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.

    2 - O texto é colado sempre no final do arquivo do Word, gostaria que fosse colado onde se encontra o cursor.

    3 - Que o texto fosse colado 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


    quinta-feira, 30 de maio de 2019 17:12