Excel VBA質問箱 IV

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

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


1039 / 13645 ツリー ←次へ | 前へ→

【76671】ExcelからWordへ転記につきまして マリモ 15/2/25(水) 16:29 質問[未読]
【76675】Re:ExcelからWordへ転記につきまして マナ 15/2/25(水) 20:27 発言[未読]
【76677】Re:ExcelからWordへ転記につきまして マナ 15/2/25(水) 23:27 発言[未読]
【76678】Re:ExcelからWordへ転記につきまして マナ 15/2/26(木) 0:02 発言[未読]
【76676】Re:ExcelからWordへ転記につきまして マナ 15/2/25(水) 22:47 発言[未読]
【76679】Re:ExcelからWordへ転記につきまして マリモ 15/2/26(木) 9:19 お礼[未読]

【76671】ExcelからWordへ転記につきまして
質問  マリモ  - 15/2/25(水) 16:29 -

引用なし
パスワード
   両方に関連することなので、板違いでしたら申し訳ございません。

Wordが4ページありまして、そのヘッダー部分に
4ページ同じセルの箇所を入れ込みたくて、
ExcelのA列に記入してある数字を順番に入れ込んで
A列に記入がある分だけ、印刷をかけたいのですが、
何かいい方法はないでしょうか。

説明不足で伝わらない箇所があるかもしれませんが
よろしくお願いいたします。

【76675】Re:ExcelからWordへ転記につきまして
発言  マナ  - 15/2/25(水) 20:27 -

引用なし
パスワード
   とりあえず順番に転記するだけなら。

Sub test()
  Dim wd As Object
  Dim doc As Object
  Dim c As Range
  Const wdHeaderFooterPrimary = 1
  
  
  On Error Resume Next
  Set wd = GetObject(, "Word.Application")
  If wd Is Nothing Then
    Set wd = CreateObject("Word.Application")
  End If
  On Error GoTo 0
  
  wd.Visible = True
  Set doc = wd.Documents.Open(ThisWorkbook.Path & "\test.docx")
  
  For Each c In Range("A1", Cells(Rows.Count, 1).End(xlUp))
    doc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = c.Value
    doc.PrintOut
  Next

  doc.Close False
  wd.Quit

  Set doc = Nothing
  Set wd = Nothing

End Sub

【76676】Re:ExcelからWordへ転記につきまして
発言  マナ  - 15/2/25(水) 22:47 -

引用なし
パスワード
   楽なのは、ワードで差し込み印刷機能を使うことです。
マクロも不要になります。

【76677】Re:ExcelからWordへ転記につきまして
発言  マナ  - 15/2/25(水) 23:27 -

引用なし
パスワード
   ヘッダーの指定箇所に、ブックマークを挿入しておいて、
そこに転記するようにしてもよかったかも。

> doc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = c.Value

【76678】Re:ExcelからWordへ転記につきまして
発言  マナ  - 15/2/26(木) 0:02 -

引用なし
パスワード
   ブックマーク案を試してみてわかったこと。
転記するとブックマークが削除されてしまう。
書き方が間違っているのか???

↓のように印刷後に、Undoで元に戻せばOKですが、ちょっと不細工かも。やっぱり差し込み印刷がオススメです。

doc.bookmarks("好きな名前").Range.Text = c.Value
doc.PrintOut
doc.Undo

【76679】Re:ExcelからWordへ転記につきまして
お礼  マリモ  - 15/2/26(木) 9:19 -

引用なし
パスワード
   ▼マナ さん:
色々とありがとうございました。

今回はゆっくり考える時間が取れなくて
手書きで記入することにいたします。

時間が取れるようになりましたら、
チャレンジしてみます。

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