WordからExcelにWhole Storyをコピーして貼り付けます

Question

私は定期的に受け取ったWord文書を持っていますので、すでに大きな出力の一部としてExcelにある他のデータと組み合わせる必要があります。私はWordからExcelに文書全体（WholeStory）をコピー＆ペーストすることができますが、Excelの出力マクロ全体にこの部分を作りたいと思います。この部分の私の現在のコードは下にあり、それは何も貼り付けることを除いて正常に動作します。それがそこに着くときに貼り付けるデータがないので、それはそれを持ち始めるか開始しないかのどちらかであると思います。これを援助しています。どうもありがとう！

Selection.Copy 

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 

Answer 1

文は、現在Excelで選択されているものは何でもコピーされます。

VBAがデフォルトのオブジェクトを提供した場合でも、あなたはメソッドとプロパティを使用している場合を参照しているオブジェクトをどのように修飾することが常に得策である

objWord.Selection.Copy 

を使用し、WordでSelectionオブジェクトをコピーします。