Word VBA質問箱 IV

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

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


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

321 / 886

←次へ　｜　前へ→


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

にしもり - 08/6/26(木) 14:54 -


	引用なし

	パスワード

自己レスです。
下記のとおり挿入したらできたみたいです。

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
　　myWord.Selection.TypeText myText & vbCrLf '挿入
　　myText = ActiveCell.Offset(0, 1).Value
　　myWord.Selection.TypeText myText & vbCrLf　'挿入
　　myText = ActiveCell.Offset(0, 2).Value
　　myWord.Selection.TypeText myText & vbCrLf　'挿入
　　myText = ActiveCell.Offset(0, 3).Value
　　myWord.Selection.TypeText myText & vbCrLf　'挿入
　　myText = ActiveCell.Offset(0, 4).Value
　　myWord.Selection.TypeText myText & vbCrLf　'挿入
　　
End Sub

1,719 hits

▼

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