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

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