HOW TO COPY A CELL CONTENTS FOR PASTING IN WORD

[aparna]

I AM NOT ABLE TO COPY THE CELL CONTENTS FOR PASTING IT IN A WORD DOCUMENT. NO MATTER WHAT I DO WHENEVER I COPY A CELL IT COPIES THE ENTIRE TEXT BOX.

IS THERE ANYWAY I CAN COPY THE CELL CONTENTS THROUGH A MACRO FOR PASTING ON A WORD DOCUMENT OR ANY OTHER TEXT FILE WITHOUT ANY CONTROL CHARACTERS.

APARNA

 

[KenCriss]

This has been posted a few times, but generally does the trick with whatever modifications you need. Assumes your data starts in A1.
Good luck.

Sub AutomateWord()
Dim WordApp As Object, MySaveName As String
MySaveName = "c:\Temp\MyTestDocument.doc"
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
    With WordApp
        .Documents.Add
        With .Selection
            .typetext Text:="The Header"
            .typetext Text:=vbLf & vbLf
            Range("a1").Select
            Do Until ActiveCell = vbNullString
                .typetext Text:=ActiveCell.Text & " "
                ActiveCell.Offset(1, 0).Select
            Loop
        End With
    .activedocument.SaveAs FileName:=MySaveName
    '.ActiveWindow.Close
    End With
    'WordApp.Quit
    Set workapp = Nothing
End Sub