Copying text from Word to Excel with VBA

[mana]

> Set wordDoc = GetObject(, "word.application")
> wordDoc.Selection.WholeStory
> Selection.Copy


you copy the excel range of book1


try1:
Set wordDoc = GetObject(, "word.application")
wordDoc.Selection.WholeStory
wordDoc.Selection.Copy


or


try2:
Set wordDoc = GetObject(, "word.application")
wordDoc.activedocument.Range.Copy

Option Explicit


Sub test()
    Dim wordDoc As Object


    Set wordDoc = GetObject(, "word.application")
    wordDoc.activedocument.Range.Copy
         
    ActiveSheet.Paste
 
End Sub