Excel VBA質問箱 IV

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

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


4446 / 13644 ツリー ←次へ | 前へ→

【56641】ExcelをWordにコピペするには にしもり 08/6/26(木) 16:31 質問[未読]
【56643】Re:ExcelをWordにコピペするには にしもり 08/6/26(木) 17:15 質問[未読]

【56641】ExcelをWordにコピペするには
質問  にしもり  - 08/6/26(木) 16:31 -

引用なし
パスワード
   こんにちは。
excelデータをwrodにコピペしたいです。
excelの単一行をコピペします。(例 c9からH9)
下記まで自力でできました。
このままですと新規文書が開きますが、本当は当該excelと同じカレントpathに存在する既存文書”Lec.doc"を開きたいです。
また”Lec.doc"はすでにテキストボックスが用意されていて、
ActiveCell.Offset(0, 0).Valueは一番上のテキストボックスへ、
ActiveCell.Offset(0, 1).Valueは二番目のテキストボックスへ、、、、
というふうにしたいのです。
そのようなことができるでしょうか?
どなたか御教示ください。


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シート上の選択されたセル、およびその右側5列目までを順次コピペ

  myText = ActiveCell.Offset(0, 0).Value
  myWord.Selection.TypeText myText & vbCrLf
 myWord.Selection.TypeParagraph

  myText = ActiveCell.Offset(0, 1).Value
  myWord.Selection.TypeText myText & vbCrLf
 myWord.Selection.TypeParagraph

  myText = ActiveCell.Offset(0, 2).Value
  myWord.Selection.TypeText myText & vbCrLf
 myWord.Selection.TypeParagraph

  myText = ActiveCell.Offset(0, 3).Value
  myWord.Selection.TypeText myText & vbCrLf
 myWord.Selection.TypeParagraph

  myText = ActiveCell.Offset(0, 4).Value
  myWord.Selection.TypeText myText & vbCrLf
 myWord.Selection.TypeParagraph

  myText = ActiveCell.Offset(0, 5).Value
  myWord.Selection.TypeText myText & vbCrLf

End Sub

【56643】Re:ExcelをWordにコピペするには
質問  にしもり  - 08/6/26(木) 17:15 -

引用なし
パスワード
   すみません、
ペーストしたい先はテキストボックスではなく、「罫線」「挿入」「表」で挿入された表でした。

4446 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free