[[20080428235651]]　『複数のハイパーリンクの一括印刷』（わかめ）　ページの最後に飛ぶ

『複数のハイパーリンクの一括印刷』（わかめ）
初めて質問させていただきます。
EXCELのA列に300件ほどのハイパーリンクがあってそれぞれ
ワード文書（ブックマーク）にリンクが張ってあります。
今回そのリンクが張ってあるワード文書を一括印刷したいのです。
複数のハイパーリンクのアクティブセルを選択し、リンク先のワード
文書を一括印刷することは可能でしょうか。

 ワード文書（ブックマーク）の意味が分かっていません。
 Ａ列に C:\Temp\aaa.doc みたいにリンクがあり、その文書を（全頁）印刷したいということでしょうか？

 (1or8) 10:39修正

 ＶＢＡになると思います。
 他サイトですが、参考になると思います。

 ハイパーリンクしたワードの一括印刷
http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=108106&rev=0
 (MARBIN)

説明が拙く申し訳ありません。

 A列には１．２．３…と入っていて、それぞれの番号のハイパーリンク先はワード文書
（C:\aa.doc、C:\bb.doc、C:\CC.doc･･･）に対応しています。
 今回そのリンク先のワード文書を一括印刷したいのですが…。

 まず複数のハイパーリンクのアクティブセルを選択しリンク先のワード文書を開くことは可能なんでしょうか。

 いろいろな本を見たのですがなかなか見つからなくて。
 ご教授いただければ幸いです。

 >複数のハイパーリンクのアクティブセルを選択し
 よく分かりません。
 アクティブセルは一つだけのはずですので・・・。
 (MARBIN)

 >いろいろな本を見たのですがなかなか見つからなくて。

 昔、「ちょっとテスト」的にやった経験しかありませんが、以下そのサンプルです。何かの足しになれば。。。

 ※ ワードアプリケーションは、閉じている前提です。
 ※ テストは、ハイパーリンクが１つか２つしか含まれないセル範囲 を 指定してやった方が無難です(6行目関連)。
 ※ 印刷範囲をどうするのかとか、一気に150文書も印刷命令かけてトラぶらないかとかは、全然考慮しておりません。
    肉付けは、そちらの事情に合わせてください(私は深入りしません）。

      ちなみに、ワードにもマクロの記録機能があります。
  　　あと、エクセルのVBEで、VBEメニュー[ツール]→[参照設定]→[Microsoft Word xx.x Object Library]にチェックを入れ、
    サンプルの「Dim objWord As Object」を 「Dim objWord As Word.Application 」に変更すれば
 　 インテリセンス(コーディング中に入力候補が出てくれる機能)が使えるので少し楽かも。(デバッグエラーも減ります)

 Sub Macroword()
     Dim objWord As Object ' Word.Application
     Dim HL As Hyperlink

     Set objWord = CreateObject("Word.Application")　'ワードを開いて、参照を取得する
     objWord.Visible = True

     For Each HL In Range("A1:A4").Hyperlinks  'A1:A4←ハイパーリンクが入っているセル範囲を指定
         HL.Follow　　　　　　　　　　　　　　 'ワード文書を開く　　
         objWord.PrintOut Range:=2             '印刷範囲の指定 (2はwdPrintCurrentPageの実体値。現在のページのみ印刷)
         objWord.ActiveDocument.Close　　　　  '文書を閉じる
     Next
     objWord.Quit                              'ワードを閉じて原状回復
 End Sub

  (半平太)

半平太さんありがとうございます。
少し肉付けして何とか解決しました。

あと、エクセルのVBEで、VBEメニュー[ツール]→[参照設定]→[Microsoft Word xx.x Object Library]にチェックを入れ、

    サンプルの「Dim objWord As Object」を 「Dim objWord As Word.Application 」に変更すれば
 　 インテリセンス(コーディング中に入力候補が出てくれる機能)が使えるので少し楽かも。(デバッグエラーも減ります)

大変参考になりました。またよろしくお願いします。

コメント返信：

[ 一覧(最新更新順) ]

[[20080428235651]] 『複数のハイパーリンクの一括印刷』（わかめ） ページの最後に飛ぶ

[[20080428235651]]　『複数のハイパーリンクの一括印刷』（わかめ）　ページの最後に飛ぶ