VBAでエクセルの表をワードに入力

質問

Excel/Word2002使用です。

ワードへの入力を自動化するためにVBAを使用してエクセルの表をワードのテンプレートに渡したいのですが。

エクセルのA1：C8のセルに表として値が入力されています。
この表をコピーしてワードに貼り付けます。
ワード側は何も入力されていない文書ですが、
テンプレートが用意されているので、このテンプレートを指定してワードを立ち上げます。
ワードに貼り付けられる表はタブ区切りです。

具体的には下記コード3行目の”winword.exe”を具体的なテンプレートのパス名にしたいのですが・・・

Sub word貼り付け()

Dim mytskID As Double
Range("A1:C8").Copy
　mytskID = Shell("winword.exe", vbNormalFocus)
　Application.Wait Now + TimeValue("00:00:10")
　Application.SendKeys "^v", True
　Application.Wait Now + TimeValue("00:00:10")
　Application.SendKeys "%fa", True
　Range("A1").Copy
　AppActivate mytskID
　Application.SendKeys "^v", True
　Application.SendKeys "~", True
　Application.Wait Now + TimeValue("00:00:05")
　Application.SendKeys "%fx", True
　Application.CutCopyMode = False

MsgBox "完了しました"

End Sub

なお、上記コードも教科書通りにしたはずなのですが、
何故か「名前をつけて保存」のSendKeys "%fa"のときだと思うのですが、
ワード側ではファイルメニューの罫線が反応してしまいます。
あわせてご教授いただければ幸いです。

よろしくお願いします。

回答No.3

o_chi_chi · ベストアンサー

追加です。
環境をよく見ていなかったので。

.Paste

はEXCEL2000以前で
Excel2002の場合は

.PasteExcelTable True, False, True

です。

お礼

o_chi_chi様　早速のご回答ありがとうございます。
万事うまくいきました。
大変助かりました。
pasteもエラーがかかっていて悩んでおりました。
今後ともよろしくお願いします。

回答No.2

o_chi_chi

"テンプレート"にフルパスを設定していますか。

appWDApp.Documents.Open Filename:="C:\Templates.dot"

回答No.1

o_chi_chi

下記のようにワードオブジェクトを生成して
起動したほうが扱いやすくないですか。
ただワードマクロは使った事がないので。。。
---
Sub mCopy()
Dim appWDApp As Word.Application
Dim objWDDoc As Object
Dim rngRange As Range
Set rngRange = Application.Range("A1:C8")
Set appWDApp = New Word.Application
Application.Wait Now + TimeValue("0:00:05")
appWDApp.Visible = True
appWDApp.Documents.Open Filename:="テンプレート"
AppActivate appWDApp.Caption
Set objWDDoc = appWDApp.ActiveDocument
With objWDDoc
With .ActiveWindow.Selection
.EndOf Unit:=wdStory, Extend:=wdMove
.HomeKey Unit:=wdLine, Extend:=wdExtend
rngRange.Copy
.Paste
Application.CutCopyMode = False
End With
End With
Set appWDApp = Nothing
Set objWDDoc = Nothing
Set rngRange = Nothing
End Sub

参考URL：

お礼

↑↑　参照設定はわかりました。microsoft Word ** Object Library　でいけました。ありがとうございます。
しかし、
＞appWDApp.Documents.Open Filename:="テンプレート"
でアプリケーション定義エラーとなってしまいます。できましたら追加のアドバイスをお願いします。

補足

o_chi_chi様早速のご回答ありがとうございます。
一行目の
＞Dim appWDApp As Word.Application
で、コンパイルエラー　「ユーザー定義型は定義されていません」
のエラー表示となるのですが・・・
ネットで調べると参照設定の必要があるようなのですが、ご教授いたけませんでしょうか？
ご多忙中誠に恐縮ですがよろしくお願いします。