Excel VBA質問箱 IV

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

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


5431 / 76732 ←次へ | 前へ→

【76914】Re:PDFのプロパティの取得の仕方
発言  マナ  - 15/4/11(土) 16:12 -

引用なし
パスワード
   参考サイト
ht tp://pdf-file.nnn2.com/

★の部分を修正してみました

Sub test2()
  Dim ret As Boolean
  Dim filePath As String

  filePath = "C:\Users\hage\Desktop\test.pdf"

  Dim acroApp As Object
  Dim pdDoc As Object
'  Dim avDoc As Object  '★

  Set acroApp = CreateObject("AcroExch.APP")
  Set pdDoc = CreateObject("AcroExch.PDDoc")
'  Set avDoc = CreateObject("AcroExch.AVDoc")  '★

  ret = pdDoc.Open(filePath)  '★

  Dim strTitle As String
  strTitle = pdDoc.GetInfo("Title")

  MsgBox (strTitle)

  pdDoc.Close  '★
  acroApp.Exit

'  Set avDoc = Nothing  '★
  Set pdDoc = Nothing
  Set acroApp = Nothing

End Sub

798 hits

【76913】PDFのプロパティの取得の仕方 K 15/4/11(土) 0:57 質問[未読]
【76914】Re:PDFのプロパティの取得の仕方 マナ 15/4/11(土) 16:12 発言[未読]
【76915】Re:PDFのプロパティの取得の仕方 マナ 15/4/11(土) 20:39 発言[未読]
【76922】Re:PDFのプロパティの取得の仕方 K 15/4/13(月) 20:16 お礼[未読]
【76923】Re:PDFのプロパティの取得の仕方 マナ 15/4/13(月) 20:27 発言[未読]
【76929】Re:PDFのプロパティの取得の仕方 K 15/4/13(月) 22:03 お礼[未読]

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