[[20101213092018]]　『複数のPDFファイルの指定ページにリンクを貼る方磨x（Yassan）　ページの最後に飛ぶ

『複数のPDFファイルの指定ページにリンクを貼る方法』（Yassan）
WindowsXPでExcel2002のファイルを作り、そのセルに複数のPDFファイルの指定ページを
選択してリンクを貼る方法を教えてください。
例えばExcelのファイルでセルの文字列に関連する内容を、複数のPDFファイルにある指定ページを自動検索ではなくて、ファイル名とページを指定してリンク出来ればOKです。
オフィスソフトは初心者でマクロや関数などよく判りませんが宜しくお願いします。

 多分簡単には出来ないのではないかと。
[[20040209180137]]　『ハイパーリンクでＰＤＦファイルのページ指定』（あや）
[[20080509085530]]　『ハイパーリンク先のファイルの指定したページを開』（ガチャピン）
(みやほりん)(-_∂)b

 リンクでのやり方はわかりません。
 ＶＢＡだと、こんな感じで出来るようです。
 標準モジュールに

  Private Declare Function SearchTreeForFile Lib "imagehlp.dll" _
      (ByVal RootPath As String, _
       ByVal InputPathName As String, _
       ByVal OutputPathBuffer As String) As Long

  Sub test()
  Dim pdfName As String, PageNumber As Long
  pdfName = "d:\test.pdf"
  PageNumber = 2
  PdfOpen pdfName, PageNumber
  End Sub

  Private Sub PdfOpen(FilePath As String, PageNum As Long)
  Const myRootPath As String = "C:\Program Files\Adobe\"
  Const myFind As String = "AcroRd32.exe"
  Dim flgFind As Boolean, Res As Double
  Dim myBook As String * 513
  flgFind = SearchTreeForFile(myRootPath, myFind, myBook)
  If flgFind = True Then
    Res = Shell(Left$(myBook, InStr(myBook, vbNullChar) - 1) & " /A ""page=" & _
                PageNum & """ """ & FilePath & """", vbNormalFocus)
  Else
    MsgBox myFind & "が見つかりませんでした"
  End If
  End Sub

 （ｍｏｍｏ）

コメント返信：

[ 一覧(最新更新順) ]

[[20101213092018]] 『複数のPDFファイルの指定ページにリンクを貼る方磨x（Yassan） ページの最後に飛ぶ

[[20101213092018]]　『複数のPDFファイルの指定ページにリンクを貼る方磨x（Yassan）　ページの最後に飛ぶ