Saberexcel - o Site das Macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia dados de determinado intervalo de células para o Aplicativo Word.

Private Sub CommandButton1_Click()

    Dim MSWord As Object

    Worksheets("Plan1").Range("A1:B3").Copy

    Set MSWord = CreateObject("Word.Application")
    MSWord.Visible = True
    MSWord.ScreenUpdating = True

    With MSWord

        With .Documents.Add
               .Range.Paste
        End With

             .WindowState = wdWindowStateMaximize
    End With
   
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application),  sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de planilha contendo o procedimento acima
Excel planilha word copiar dados para o Word (63.65 KB)

Publicidade
Compre com segurança, garantia e ótimos preços