Can anyone tell me how to paste a cell into open word doc

[drrchrds]

I need to do something that seems like it should be fairly simple:
I want a macro to paste a single cell from excel to the end of whatever word doc I happen to have open at the time. After pasting, I want to come back to the excel doc. I will have the word doc open on the left and my spreadsheet open on the right. I use Office 2007. Thanks if you can help!

 

[poolhall]

try:

Sub PasteToWord()
    Dim AppWord As Word.Application
     
    On Error Resume Next

    Set AppWord = GetObject(, "Word.Application")
    
    If Err.Number <> 0 Then
        Set AppWord = CreateObject("Word.Application")
        AppWord.Documents.Add
     End If
    
    AppWord.Visible = True
    Sheet1.Range("A1").Copy
    AppWord.Selection.Paste
     
    Application.CutCopyMode = False

    Set AppWord = Nothing
End Sub

It will paste the content of Sheet1!A1 at the cursor position in an open Word doc; if no open Word document exist, it will create a new one.

 

[drrchrds]

Poolhall, thank you for the response.
I am getting an error:
"User-defined type not defined"
Is there something I can do to fix that?

BTW: Ideally, I would like it to "paste special" (as unformatted text) to the end of the word doc (as if in word I were to type: CTRL-END, then click on "Paste Special", Unformatted text). I don't want it to paste as a table, but rather just the value of the cell.

 

[poolhall]

oops, sorry, forgot to mention that you need a reference to 'Microsoft Word 12 Object Library' or 'Microsoft Word 10.0' for prior Word versions. In VBA Editor, go to menu Tools - References and choose it there.

 

[drrchrds]

Poolhall,
AWESOME! It worked after I tweaked a bit. Here is what I have now:

Sub PasteToWord()
    'Dim AppWord As Word.Application
     
    On Error Resume Next

    Set AppWord = GetObject(, "Word.Application")
    
    If Err.Number <> 0 Then
        Set AppWord = CreateObject("Word.Application")
        AppWord.Documents.Add
     End If
    
    AppWord.Visible = True
    Sheet1.Range("A1").Copy
    AppWord.Selection.PasteAndFormat (wdPasteDefault)
    AppWord.Selection.TypeBackspace
     
    Application.CutCopyMode = False

    Set AppWord = Nothing
End Sub

Oddly, once I killed the first line it no longer gave me an error msg.
The tweak at the end was just my guess based on code I copied out of a word macro. The "backspace" just gets rid of the paragraph that is otherwise inserted after the paste. It is working exactly how I hoped! I can't thank you enough, this is about to become a great productivity enhancer for me!