excel ＶＢＡ ワード文書テンプレートに転送

質問

下記のコードを作成したのですがうまくいきません指導願います
Sub （） Dim wd As Word.Application
Dim WDoc As Word.Document
res = MsgBox("？", vbYesNo)
If res = vbYes Then
nissi = "C:\Documents and Settings\○○ \デスクトップ\文書１.doc"
Else
nissi = "C:\Documents and Settings\○○ \デスクトップ\文書２.doc"
End If
Set wd = CreateObject("Word.Application.11")
wd.Visible = True
Set WDoc = wd.Documents. _
Open(nissi)
With WDoc.Tables(1)
Set crange = Sheets("aq").Cells(1, 1)
WDoc.Tables(1).Cell(1, 2).Range.Text = crange
If Sheets("aq").Range("d2") = "Ｄ" Then
中略
end With
wd.Quit
Set wd = Nothing
Set WDoc = Nothing
End Sub

回答No.1

noname#123709 · ベストアンサー

よく分かりませんがこれでどうですか？

Sub test()
Application.ScreenUpdating = False
Dim wd As Object, WDoc As Object
res = MsgBox("？", vbYesNo)
If res = vbYes Then
nissi = "C:\Documents and Settings\○○ \デスクトップ\文書１.doc"
Else
nissi = "C:\Documents and Settings\○○ \デスクトップ\文書２.doc"
End If
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set WDoc = wd.Documents.Open(nissi)
With WDoc.Tables(1)
Set crange = Sheets("aq").Cells(1, 1)
WDoc.Tables(1).Cell(1, 2).Range.Text = crange
If Sheets("aq").Range("d2") = "Ｄ" Then
中略
End With
WDoc.Save
wd.Quit
Set wd = Nothing
Set WDoc = Nothing
Application.ScreenUpdating = True
End Sub

補足

Sub 転送()
Dim nissi As String
↑が抜けてました。ユーザホームから名前、日付（休日処理ソフト作　成済）を入力するものです。エクセルの表にも移動させていますが
　これはうまく動作しています。ワードの表への転送は可能なのですが
　難しいです。

回答No.2

noname#123709

＃1です。
解決ですか？未決ですか？
何処がうまくいかないのかが分からないのでなんとも・・・。
私が掲示したものは指定されたファイルを用意すればそれなりに動きました
けど。