人に聞けない痔の悩み、これでスッキリ >>

セル内に「CC569545」や「AA895266」といった文字列があります。
この文字列を含む「ASD_CC569545_M45.pdf」や「EDR_AA895266_kkkk.pdf」といった ファイルが、「C:\Temp」というフォルダにあるのですが、
このファイルに「自動的」 にリンクを張る方法はあるのでしょうか?
例えば、セルAに「CC569545」と入力すると、「C:\Temp」内の複数のファイルの中の 「CC569545」という文字列を含む「ASD_CC569545_M45.pdf」に自動的にリンクが設定されて、
これをクリックすると「ASD_CC569545_M45.pdf」が開くような方法を探しています。
フォルダ内には「CC569545」の文字列を含むファイルが複数存在することも考えられます。

もしくは、セルの「CC569545」をクリックすると、ウィンドウズの検索が実行されて、検索結果として「C:\Temp」の「CC569545」を含むファイルが検索結果として表示されるといった方法はあるでしょうか?

面倒な件ではありますが、ご教授頂ければ幸いです。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

VBAの力が必要になりますが、大丈夫でしょうか。


http://oshiete1.goo.ne.jp/qa4478102.html
の方のスレのコードを利用させていただきました。
新しいブックを作成して 検索したいフォルダに一度保存してください。
A列に検索する文字を入れておきます。
 A
 CC569545
 AA895266
・・・
ツール=>マクロ=>VBエディター開いて 挿入=>標準モジュール
モジュールに以下をコピィします。

Sub macro1()
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "リンク"
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", ThisWorkbook.Path)
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets(1).Rows("3:65536").ClearContents
i = 3
For j = 1 To Range("A65536").End(xlUp).Row
For Each fx In Fil
If fx.Name Like "*" & Cells(j, 1).Value & "*" Then
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = fx.Name
ThisWorkbook.Sheets(1).Cells(i, 6) = fx.Path
ThisWorkbook.Sheets(1).Cells(i, 5).FormulaR1C1 = "=HYPERLINK(RC[1],RC[-3])"
'ファイル種別
ThisWorkbook.Sheets(1).Cells(i, 3) = fx.Type
'最終更新日
ThisWorkbook.Sheets(1).Cells(i, 4) = fx.DateLastModified
i = i + 1
End If
Next
Next j
End Sub

VBエディター閉じて、マクロを実行
ツール=>マクロ macro1を実行します。
試してみてください。
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qフォルダ名をだすには

以下のコードでファイル名一覧がだせる。しかしフォルダ名がでない
フォルダ名をだすには、どうすればいいか。
 sub macro1()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows") Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("Sheet1").UsedRange.Delete
'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter
i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified
ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
Next
End Sub

以下のコードでファイル名一覧がだせる。しかしフォルダ名がでない
フォルダ名をだすには、どうすればいいか。
 sub macro1()
Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定", "C:\Windows") Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files
ThisWorkbook.Sheets("Sheet1").UsedRange.Delete
'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1)...続きを読む

Aベストアンサー

下記で動きましたが。
Target = CurDir
Set bk = appexcel.Workbooks.Open(CurDir & "\" & "Book7.xls")
の部分はテストしやすいように我流ですから、適当に変えてください。
エクセルを立ち上げていない
ForEachで繰り回す必要がある
など質のコードには不足しているのでは。
ーーー
ub macro1()
Target = CurDir
MsgBox CurDir
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)

Set Fil = Fol.Subfolders
i = 1
Set appexcel = CreateObject("Excel.Application")
Set bk = appexcel.Workbooks.Open(CurDir & "\" & "Book7.xls")
For Each fx In Fil
'MsgBox fx.Name
'サブフォルダ名
sFile = fx.Name
'サブフォルダ名の書き出し

bk.Sheets(1).Cells(i, "B") = sFile
'ファイル種別
sFType = fx.Type
'最終更新日時の書き出し
bk.Sheets(1).Cells(i, "C") = sFType
'最終更新日
sLMod = fx.DateLastModified
bk.Sheets(1).Cells(i, "D") = sLMod
i = i + 1
Next
bk.Close
Set bk = Nothing
Set appexcel = Nothing
End Sub

下記で動きましたが。
Target = CurDir
Set bk = appexcel.Workbooks.Open(CurDir & "\" & "Book7.xls")
の部分はテストしやすいように我流ですから、適当に変えてください。
エクセルを立ち上げていない
ForEachで繰り回す必要がある
など質のコードには不足しているのでは。
ーーー
ub macro1()
Target = CurDir
MsgBox CurDir
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)

Set Fil = Fol.Subfolders
i = 1
Set appexcel = CreateObje...続きを読む

Qエクセルマクロによるハイパーリンクの方法

はじめて投稿します。
エクセルマクロを始めたばかりですが、よろしくお願いします。

Fileフォルダ内にマクロ.xlsとdataフォルダがあり、
dataフォルダ内には複数のPDFファイルがあります。
マクロ.xlsのセルA1~A10に適当な英数字の文字列(例えばA123,B243,C072…など)が書かれていて
dataフォルダ内にはセルA1~A10に書かれている文字列に少し文字が追加された名前のPDFファイル
(例えばセルの文字列が"A123"なら"A123(OK).pdf")があります。
これをマクロを使ってA1~A10の文字列にハイパーリンクさせて、
セルに書かれている文字列をクリックして開きたいのですがどうすればよいでしょうか?

A1~A10に書かれている文字列を変数cellnameに代入し、
PDFファイルをcellnameにワイルドカードを使って変数pdfnameに代入できずにつまずいています…。

どなたかご解答の程宜しくお願いいたします。

Aベストアンサー

> マクロ.xlsのセルA1~A10に適当な英数字の文字列(A123,B243,C072
 …など)が書かれていて
セルの文字列がすべて4桁という前提ですが。
'
Sub AAA()
 Dim i As Integer, N As Integer, TargetFile As String
 i = 1
 Do While Cells(i, 1) <> ""
  N = 0
  TargetFile = Dir$("C:\_Anns\file\data\*.pdf")
  Do While TargetFile <> ""
   If Left(TargetFile, 4) = Cells(i, 1) Then
    ActiveSheet.Hyperlinks.Add Anchor:=Range(Cells(i, 1).Address), _
          Address:="C:\_Anns\file\data\" & TargetFile
    GoTo Nxt
   End If
   TargetFile = Dir$
  Loop
Nxt: i = i + 1
 Loop
End Sub

> マクロ.xlsのセルA1~A10に適当な英数字の文字列(A123,B243,C072
 …など)が書かれていて
セルの文字列がすべて4桁という前提ですが。
'
Sub AAA()
 Dim i As Integer, N As Integer, TargetFile As String
 i = 1
 Do While Cells(i, 1) <> ""
  N = 0
  TargetFile = Dir$("C:\_Anns\file\data\*.pdf")
  Do While TargetFile <> ""
   If Left(TargetFile, 4) = Cells(i, 1) Then
    ActiveSheet.Hyperlinks.Add Anchor:=Range(Cells(i, 1).Address), _
        ...続きを読む

QエクセルファイルbookにPDFファイルをリンクさせる

お世話になってます。
エクセルのbook上に、あるPDFファイルを
ショートカット呼び出し、ハイパーリンクで、同一PC内、出来れば、他PCからも出来るようにしたいのですが、方法はありますでしょうか?
PDFファイルのフォルダを指定して、ハイパーリンク表示にしてみましたが、フォルダまですら開いてリンクしてくれません。
関数などの使用も考えています。
どうか、良い案があればご教授下さい。
よろしくお願いします。
offcice2010, エクセル2014です。

Aベストアンサー

質問が良くわからないのですが
>エクセルのbook上に、あるPDFファイルをショートカット呼び出し、
エクセルには HyperLink関数があります。
使い方は =HYPERLINK("ファイルへのパス¥ファイル名","セルに表示する文字")
です。
>ハイパーリンクで、同一PC内
自分のPC内にあるファイルですので簡単ですよね。
>出来れば、他PCからも出来るようにしたいのですが
他の方のPCから貴方のPC内にあるファイルが閲覧できるように共有の設定が出来ているのですか?
それでも、他人から見ればネットワークフォルダですので、ドライブの設定が違うと思います。
つまりファイルサーバーにHyperLink関数を入れてあるエクセルのファイルとPDFファイルが
あれば、そのエクセルファイルを皆で利用すれば問題なく使えると思いますが。

Qハイパーリンクをフォルダーにする方法

Word・Excelではハイパーリンクを設定できますが、ファイルに対してのみリンクを張ることができます(もちろん、本来はURLを指定するのでしょうけれど)。
これを、フォルダーにリンクできないでしょうか?
つまり、マイドキュメントのフォルダーにハイパーリンクを設定して、クリックするとマイドキュメントフォルダーが開くというものです。
どなたか、教えていただければ幸いです。

Aベストアンサー

windows98ですが、EXCELでハイパーリンクを選んで、
ファイルのところに「c:\My Documents」と入力すればできます。

Qファイル名に特定の文字列を含むファイルを開きたい

セルに「abc」という文字列があります。
このセルをダブルクリックすると、特定のフォルダ内にある
abcを含むファイル(たとえば090507 abc)を開く
というようなことをしたいのですが、どのようにしたらよいでしょうか。

対象セルはA列です。
たとえばA2に「abc」とあれば、A2をダブルクリックすると
特定フォルダ内のabcをファイル名に含むファイルを開く

A3に「xyz」とあれば、A3をダブルクリックすると
特定フォルダ内のxyzをファイル名に含むファイルを開く

といった具合です。

文字列の指定はダブルクリック以外の方法でも構いません。

知識がないものでどのようにしたらよいかわかりません。
どなたかお詳しい方、どうぞよろしくお願い致します。
(ごく簡単なマクロの知識はあります)

Aベストアンサー

「簡単なマクロの知識」と、マクロと言っているレベルの人には本課題はすぐは、無理です。回答者にコードを書いて呉れ、になり、丸投げになり、質問コーナー規約違反。
本件が自然に出来るようになるには、数年のVBAの経験・勉強が必要でしょう。
--
フォルダやファイルを扱うには
VbScript
または 
Dir関数 
をGoogleででも照会して、勉強のこと。
http://homepage2.nifty.com/kasayan/vba/dir.htmなどから始まって多数
ーー
VBScriptでの一例
Sub test03()
Set objfs = CreateObject("Scripting.filesystemobject")
Set objfolder = objfs.getfolder("C:\Documents and Settings\XXXX\My Documents\")
For Each objfile In objfolder.Files
If objfile.Name Like "○*" Then
MsgBox objfile.Name
End If
Next
End Sub
ーー
"○*"とは、
私の場合MyDocumentsフォルダにファイル名が「○何々」が数個あって
それらが次々表示されました。
ーー
上記のように次々より分けていかないと、ヅバリ該当数個は出せないでしょう。
objfile.Name Like "○*" Then のLikeの使い方など経験ありますか。Like演算子。
ーー
http://officetanaka.net/excel/vba/file/file02.htm
のようなファイル名指定の対話型ダイアロウグで課題が解決しないかも考えてください。
===
>ダブルクリックしたら・・
これもイベントというVBAの中上級の考えで、経験ありますか。
日ごろ使う、ウインドウズのソフトが、いとも簡単にクリックなどの指定を許しているから、そう思うのだと思うが、自分で作るのは難しいことなのを良く理解すること。

「簡単なマクロの知識」と、マクロと言っているレベルの人には本課題はすぐは、無理です。回答者にコードを書いて呉れ、になり、丸投げになり、質問コーナー規約違反。
本件が自然に出来るようになるには、数年のVBAの経験・勉強が必要でしょう。
--
フォルダやファイルを扱うには
VbScript
または 
Dir関数 
をGoogleででも照会して、勉強のこと。
http://homepage2.nifty.com/kasayan/vba/dir.htmなどから始まって多数
ーー
VBScriptでの一例
Sub test03()
Set objfs = CreateObject("Scripting.f...続きを読む

QExcelからPDF文書の特定ページにリンクを貼る方法について

エクセルで作成した表のセルから
PDF文書にリンクを張りたいと考えています。

そのとき、必要なページを指定してジャンプさせられたら、
と思うのですが・・・。どうしたらいいのか分かりません。
このように指定したページ(例えば50頁中の23頁目)に
リンクを張ることは可能でしょうか。
(PDF文書の先頭ページにリンクを張ることはできました)

初心者でよく分からないので、
すみませんが詳しい方、教えてください。
よろしくお願いします。

Aベストアンサー

ご確認の2,3は、とくに問題はないと思います。
1につきましては、 Acrobat Reader のタイトルバー左端(アイコンの
 右)の表示がそうなっていれば問題ないと思うのですが……。

とりあえず、
 SendKeys "^{PGDN}"
の部分を
 Sendkeys "^{PGDN}", True
に書き換えてみてください。

あと、これでも効かないようでしたら、次の内容と差し替えてみてくだ
さい。
'
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 AppActivate "Adobe Reader"
 SendKeys "+^{n}", True   '●1
 SendKeys Selection.Offset(0, 1).Value, True  '●2
 SendKeys "~"    '●3
End Sub
'
●ページにジャンプするショートカットキーのキー操作を意味します。
  1.[Ctrl]と[Shift]を押しながら[N]を入力
     → ページ指定ダイアログの表示。
  2.ページ番号の入力
  3.[Enter]のクリック
 これらの操作が Adobe Reader で有効ならOKなはずなのですが。

ご確認の2,3は、とくに問題はないと思います。
1につきましては、 Acrobat Reader のタイトルバー左端(アイコンの
 右)の表示がそうなっていれば問題ないと思うのですが……。

とりあえず、
 SendKeys "^{PGDN}"
の部分を
 Sendkeys "^{PGDN}", True
に書き換えてみてください。

あと、これでも効かないようでしたら、次の内容と差し替えてみてくだ
さい。
'
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 AppActivate "Adobe Reader"
 SendKeys "+^{n}", True  ...続きを読む

QExel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数ではなく、マクロで処理を希望します。

自分では、部品表の商品番号をコピーして、コード一覧表で検索し、検索結果の右隣のセル(B列のコード)の値を部品表のC列に貼り付ければよいかと思い、書いてみたんですが…

Sub 別ブックから貼り付ける()
  Dim 検索する As Long
Windows("部品表.xls").Activate
検索する = cells(i,2).Value
Windows("コード一覧表.xls").Activate
ActiveWindow.SmallScroll Down:=-3
Selection.AutoFilter Field:=3, Criteria1:="=検索する", Operator:= xlAnd

と、してみたものの、検索しても、その検索結果の隣のセルのコードをどうやって取得すればいいのかが、わかりませんでした。

基本事項は本で学びましたが、呪文のようなコードはよく理解できません。懸命にネットで検索して、訳して理解する努力をしてはいますが。

どうぞよろしくお願いします。

部品表というブックがあります
A列に商品名、B列に商品番号が入力してあります。C列のコードは未入力です。
A列     B列     C列      
商品名  商品番号  コード
モータ  U-1325-L  
ホルダ  R-134256

また、コード一覧表という別のブックには、A列に商品番号と、B列にコードが、何千件も入力されています。

やりたいことは
部品表のC列のコード欄に、コード一覧表ブックから商品番号と一致するコードを貼り付けしたいのです。

部品表は、何百種類もありますので、関数...続きを読む

Aベストアンサー

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks.Open("C:\★★\コード一覧表.xls") '★要変更★
 I = 2
 Do While Range("A" & I).Value <> ""
  ThisWorkbook.Worksheets("Sheet1").Range("C" & I).Value = Application.VLookup(ThisWorkbook.Worksheets("Sheet1").Range("B" & I).Value, xlBook.Worksheets("Sheet1").Range("A2:B65535"), 2, 0)
  I = I + 1
 Loop
 xlBook.Close
 Application.ScreenUpdating = True
 MsgBox ("完了")
End Sub

こんにちは。
とりあえず実用性も踏まえました。
メインの動作はワークシート関数のVLOOKUPをVBA上で使用していますので理解はしやすいかと思います。
また、質問文から察するに「部品表.xls」と「コード一覧表.xls」の両方を開いて処理されていますが「コード一覧表.xls」はプログラム内で開いて閉じているので実行するときは「コード一覧表.xls」は閉じて置いてください。
Option Explicit
Sub Sample()
 Application.ScreenUpdating = False
 Dim I As Long
 Dim xlBook
 Set xlBook = Workbooks....続きを読む

QEXCEL2010のハイパーリンク先の一括変更

EXCEL2010のハイパーリンク先の一括変更をしたいのですが、
\\TS-XHL6E6\ だけを削除して、このお尻の部分のリンクを生かしたいのですが、エクセル上で検索して、一括変更するには、どうすればよいのでしょうか?

Aベストアンサー

リンク先を別のブックに変更したいなら、リンクの編集から操作するのが簡単で確実です。

データタブの「リンクの編集」をクリックし、「リンク元の変更」で新しくリンクさせたいブックを指定してください。

QエクセルVBAで、PDFファイルを開きたい

セルに入力した値のブック(xls)を開く場合、
以下となりますが、↓

Sub セルに入力したブック名のブックを開く()
ブック名 = Cells(1, 2) 'B1セルの値を取り出す
Workbooks.Open Filename:=ブック名 & ".xls" '指定されたブックを開く
End Sub


これでPDFファイルを開きたいです。
記述をどうしたらよいでしょうか。
目的はPDFファイルの検索/照会をxlsにてしたいのです。
お手数ですがお願いいたします。

Aベストアンサー

案1
ハイパーリンクにしてしまう。

案2
PDFファイルへのフルパスが、B列に記述してある
拡張子PDFへの関連付けがAcrobat Reader にしてある
と仮定して
ワークシートのイベントに

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If InStr(Target.Value, "pdf") > 0 Then
  Call Shell("explorer.exe " & Target.Value)
  Cancel = True '編集モードキャンセル
End If
End Sub
とか?

PDFファイルが一箇所にまとまっているのなら
標準モジュールに
Sub test2()
Dim strFilePath As String
strFilePath = _
  Application.GetOpenFilename _
  ("PDFファイル,*.pdf", MultiSelect:=False)

If strFilePath = "false" Then
 Exit Sub
End If

Call Shell("explorer.exe " & strFilePath)

End Sub
でも?
ということかな?

案1
ハイパーリンクにしてしまう。

案2
PDFファイルへのフルパスが、B列に記述してある
拡張子PDFへの関連付けがAcrobat Reader にしてある
と仮定して
ワークシートのイベントに

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If InStr(Target.Value, "pdf") > 0 Then
  Call Shell("explorer.exe " & Target.Value)
  Cancel = True '編集モードキャンセル
End If
End Sub
とか?

PDFファイルが一箇所にまとまっているのなら
標準モジュー...続きを読む

QハイパーリンクがPDFにすると反映しません

ワード2010使用しています。

あらかじめワード文書内でブックマークを作り、
文字を指定して移動先のブックマークを選んでハイパーリンクを設定しています。
自分入力した文字はPDF変換してもハイパーリンクが保持されています。

(PDF変換は、ワードのファイル→保存と送信→PDF/XPSドキュメントの作成から保存しています)

図形を挿入し、その図形にハイパーリンクを設定すると、
ワード上では、Ctrlキーを押しながら希望通り移動しますが、
PDFに変換するとハイパーリンクが機能しません。

PDFの地図をワードにスナップショットで貼り付け、
地図上の地名の部分をクリックしたら、別の拡大ページに飛ぶようにしたいので、
PDFの地図の上に、四角の図形を挿入して、塗りつぶしなし、枠無で肉眼で見えない四角を設置すれば
その四角図形に対してハイパーリンクを設定すればいいかな。と思ったのですが・・・。

ワード上ではOKでもPDFにすると機能しません。
上記のようなものの作成を希望していますが、どのようにすればよいのでしょうか。
よろしくお願いします。

Aベストアンサー

図形などを右クリックなどから[ハイパーリンク]を設定した場合には、
PDFへ変換したときに文書内のブックマーク先(指定ページ)へジャンプ
する機能は維持されません。

ブックマークそのものはPDF内に保存がされますが、ハイパーリンクの
場合は文字列やURLなどに下線がつくようなものだけです。
(ハイパーリンクの下線についてはスタイルで消すこともできます)
http://kb2.adobe.com/jp/cps/478/4781.html

図形に設定したものの場合には、画像として埋め込まれるだけなので、
ハイパーリンクなどの他の情報は埋め込まれないようです。

希望しているような機能は、PDFを直接編集して挿入できるリンク機能
を使うしかないと思います。
http://helpx.adobe.com/jp/acrobat/kb/4613.html

Acrobatを持っていない場合は、フリーのPDF編集ができるソフトので
編集をするしかないと思います。
例:【 PDF-XChange Viewer 】
http://www.forest.impress.co.jp/library/software/pdfxchange/

上記ソフトの場合、[リンクツール]の[矩形]で範囲設定してリンク先の
ページを指定します。
http://dodemoii.blog.ocn.ne.jp/blog/2009/10/pdfviewer_5b41.html

ちなみに、PDF変換でのWordのオプションでブックマークのチェックを
はずすと、変換後のブックマークはなくなりますが、ハイパーリンクの
文字列でのリンク(指定ページへのジャンプ)は維持されます。
初期状態のチェックがついている場合は、ブックマークは保存されます。

図形などを右クリックなどから[ハイパーリンク]を設定した場合には、
PDFへ変換したときに文書内のブックマーク先(指定ページ)へジャンプ
する機能は維持されません。

ブックマークそのものはPDF内に保存がされますが、ハイパーリンクの
場合は文字列やURLなどに下線がつくようなものだけです。
(ハイパーリンクの下線についてはスタイルで消すこともできます)
http://kb2.adobe.com/jp/cps/478/4781.html

図形に設定したものの場合には、画像として埋め込まれるだけなので、
ハイパーリンクなどの他の情報...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング