Wordの選択した文字列をVBAを使用してExcelにペーストしたい

質問

a.docにある「サンプル」という文字列を選択後、
マクロの実行でb.xlsのA1にペーストするには
どうすればよいのでしょうか？

使用OS：Windows XP
使用ソフト：Microsoft Excel 2003

ご存知の方がおられましたらご回答をよろしくお願いします。

回答No.3

laundryload · ベストアンサー

すみません、載せるコードが間違ってました
ただ、「アプリケーション定義またはオブジェクト定義のエラーです。」が出る件は分かりません（何か環境が違うのでしょうか？）。

No.1
Selection.Copy
Set app = GetObject(, "Excel.Application")
Set wb = app.Workbooks("b.xls")
Set ws = wb.Worksheets("Sheet1")
ws.Range("A1").PasteSpecial Paste:=-4163

No.2
Dim app
Set app = GetObject(, "Word.Application")
app.Selection.Copy
ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues

お礼

上記の通りにやってみたところ問題を解決することができました。
ご回答いただきどうもありがとうございました。

回答No.2

laundryload

No.1はWordのマクロなんですがそれでよかったでしょうか？

Excelのマクロでしたら次の通り。

Dim app
Set app = GetObject(, "Word.Application")
app.Selection.Copy
ThisWorkbook.Worksheets("Sheet1").Range("A1").PasteSpecial Paste:=xlValue

回答No.1

laundryload

こんな感じでいけます。

Dim app
Dim wb
Dim ws

Set app = GetObject(, "Excel.Application")
Set wb = app.Workbooks("b.xls")
Set ws = wb.Worksheets("Sheet1")
ws.Range("A1").PasteSpecial Paste:=2

補足

早速やってみたところ、どちらも「アプリケーション定義またはオブジェクト定義のエラーです。」
と表示されて、最後の行の背景色が黄色になりました。