32ビットMSオフィスで自動化するVBアプリケーション

Question

32ビットオフィスでWin 7 64ビットで32ビットVBアプリケーションを実行すると、すべて正常に動作します。 64ビットOffice（特にWord）で実行すると、ほとんどのコードが正常に動作しますが、Word.selectionクラスの.Pasteメソッドが失敗し、 'This command is not available'と表示されます。ユーザーはその時点でctrl-Vを使用して内容を貼り付けることができます。 32ビットと64ビットの両方のWordをサポートするためにVBコードをどのように変更できますか？

oWorkDoc = oWord.Documents.Open(filename, , True, False) 
oWord.Selection.Copy() 
cell.Select() <--- refers to cell in table in another document 
Try 
    oWord.Selection.Paste() <--- failing statement 
Catch ex As Exception 
    oWord.Visible = True 
    MsgBox(ex.Message) 
End Try 

アップデート：ユーザーはOffice 64ビットを使用していません。彼は32ビットを使用しています。だから謎が肥えます。また、コードシーケンスは、アプリケーションの他の部分で使用され、正常に動作します。また、Try/Catchブロックが例外を無視するように変更され、ペーストアクションが発生しています。

Answer 1

...テーブルセルを含む選択によっても、予期しない動作が発生する可能性があります（ ）。 Informationプロパティは、 の選択がテーブル内にあるかどうかを示します。

レンジオブジェクトは 選択オブジェクトと同じメソッドとプロパティの多くを共有しているため、範囲のオブジェクトを使用して物理的に現在 選択を変更する理由がない場合 に文書を操作するため好ましいです。 出典：Selection interface - Remarks

私はできるだけSelectionオブジェクトの使用を避けることをお勧めします。代わりに、適切な型の型付き参照を使用してください。この場合はWord.Rangeです。 CopyおよびPasteは、Word.Rangeオブジェクトのメソッドであり、有効なリファレンスで利用できるはずです。 cellがWord.Cellオブジェクト参照であると仮定すると、そのRangeプロパティを使用します。

ので、代わりの：

cell.Select() <--- refers to cell in table in another document 
oWord.Selection.Paste() <--- failing statement 

使用：

cell.Range.Paste