Search

A carregar...

Blog Archive

About Me

A minha fotografia
JRod - PORTUGAL
Microsoft [MVP] - Excel (10º ano consecutivo)
Ver o meu perfil completo
Com tecnologia do Blogger.

Seguidores

Estatisticas

Free Blog Counter

eXTReMe Tracker
Ocorreu um erro neste dispositivo
2005-02-28
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