title: Copy and paste Whole Story from Word to Excel
body: <p>I have a Word document that is received periodically that needs to be combined with other data already in Excel as part of a larger output.  I can copy and paste the whole document (WholeStory) from Word into Excel, but I want to make this part of the whole Excel output macro.  My current code for this portion is below, and it works fine except that it pastes nothing.  There is no data to paste when it gets there, so I guess it is either not picking it up to start with or not carrying it over.  Looking for assistance with this.  Thanks very much!</p>
  
  <pre><code>Sub ImportSectHWord()
  
  Dim objWord As Object
  Dim objDoc As Object
  Dim wdFileName
  
  Set objWord = CreateObject("word.Application")
  wdFileName = Application.GetOpenFilename("Word Documents, *.doc*")
  
  If wdFileName = False Then Exit Sub
  
  Set objDoc = GetObject(wdFileName)
  
  objWord.Documents.Open (wdFileName)
  objWord.Selection.WholeStory
  Selection.Copy
  
  Worksheets("H Import").Select
  Range("A1").Select
  ActiveSheet.Paste
  
  objDoc.Close SaveChanges:=wdDoNotSaveChanges
  objWord.Quit
  
  End Sub
  </code></pre>