Enviar dados do Excel para o WinWord

Por vezes, temos necessidade de enviar dados de uma folha do Excel para um determinado documento do Word.

O exemplo a seguir, mostra um botão de comando que, ao ser pressionado, envia os dados do Range A1:B3 para um novo documento do Word.

O Código:

Private Sub CommandButton1_Click()

    Dim MSWord As Object

    Worksheets("sheet1").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