Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

322 / 886

←次へ　｜　前へ→


	【580】Wordを起動しExceをlコピペするには

にしもり - 08/6/26(木) 11:36 -


	引用なし

	パスワード

Word投稿はじめてです。
よろしくお願いします。
Excelシートに入力済みの文字列を、wordを起動して転記したいです。
転記したいのは単一行の複数列です。（例、C9からH9まで）
みようみまねで以下つくってみましたが、まるでうごきません。
どこが悪いか御教えいただけないでしょうか。

Sub test()

　　Dim myWord As Variant ' Word.Application
　　Dim myWordDoc As Variant ' Word.Document
　　Dim myText As Variant

'Wordを起動
　　On Error Resume Next
　　Set myWord = GetObject(, "Word.Application")
　　If Err.Number <> 0 Then
　　　Set myWord = CreateObject("Word.Application")
　　　Set myWordDoc = myWord.Documents.Add
　　　myWord.Visible = True
　　End If
　　On Error GoTo 0

'Excelシート上の選択されたセル、およびその右側５列目までを順次コピペ　　
　　myText = ActiveCell.Offset(0, 0).Value
　　myText = ActiveCell.Offset(0, 1).Value
　　myText = ActiveCell.Offset(0, 2).Value
　　myText = ActiveCell.Offset(0, 3).Value
　　myText = ActiveCell.Offset(0, 4).Value
　　　myText = ActiveCell.Offset(0, 5).Value

End Sub

1,688 hits

▼

【580】Wordを起動しExceをlコピペするには にしもり 08/6/26(木) 11:36