No.3ベストアンサー
- 回答日時:
試してみたところ、うまく出来ました!
ありがとうございます。
これを元に、カスタマイズ頑張ります。
Adobe製品は英語ばかりで、大変ですね(^^;
ほんとに助かりました。ありがとうございましたっ!
No.2
- 回答日時:
ちょっと興味をもったのでやってます。
PDFを開く/閉じる しかできていません。「もしかしたら、ここまでを公開したら他の人がやってくれるかも?」という期待を持って、途中経過を載せておきます。
開発環境:EXCEL97
参照設定:Adobe Acrobat 4.0 Type Library (Acrobat)
Sub TEST()
On Error Resume Next
Dim acroApp As CAcroApp 'CAcroAppオブジェクト
Dim acroPDDoc As CAcroPDDoc 'CAcroPDDocオブジェクト
Dim acroExchAVDoc1 As CAcroAVDoc 'CAcroAVDocオブジェクト
Dim acroExchAVDoc2 As CAcroAVDoc 'CAcroAVDocオブジェクト
Dim blnRtn As Boolean '戻り値
Set acroApp = CreateObject("AcroExch.APP")
Set acroPDDoc = CreateObject("AcroExch.PDDoc")
Set acroExchAVDoc1 = CreateObject("AcroExch.AVDoc")
Set acroExchAVDoc2 = CreateObject("AcroExch.AVDoc")
'デバッグ用
acroApp.Show
'ファイルオープン1
blnRtn = acroExchAVDoc1.Open("c:\test\1.pdf", "")
If Not blnRtn Then
MsgBox "オープンエラー1"
GoTo PGMEND:
End If
'ファイルオープン2
blnRtn = acroExchAVDoc2.Open("c:\test\2.pdf", "")
If Not blnRtn Then
MsgBox "オープンエラー2"
GoTo PGMEND:
End If
'ここでマージを行うはず・・・できない・・・(T▽T)
PGMEND:
'閉じる
blnRtn = acroExchAVDoc1.Close(False)
blnRtn = acroExchAVDoc2.Close(False)
acroApp.Exit
'開放
Set acroExchAVDoc1 = Nothing
Set acroExchAVDoc2 = Nothing
Set acroPDDoc = Nothing
Set acroApp = Nothing
End Sub
ありがとうございます。
VB初心者なので、とても助かります。
興味を持っていただいて感謝、感謝です。
また新たにわかったことがあれば、教えて下さい。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数ページあるPDFファイル内の文字列等の情報をキーにPDFをグループ分け分割したい。 2 2022/06/25 09:51
- PDF ワードで作った文書のPDF化 5 2023/04/10 16:56
- PDF PDFの回転と保存 3 2023/01/16 15:02
- Google Drive Googleドライブで削除できないファイルがある。 5 2023/05/11 09:39
- PDF いきなりPDFで文書の切り取り 3 2022/10/29 13:25
- PDF PDFファイルプログラム。ファイル名の昇順にPDFに収録されないのは何が原因か? 3 2023/07/28 08:49
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- PDF PDFに精通した方に質問。JPEGファイル群を一つのPDFファイルにするときの容量変化について 6 2023/07/23 19:06
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/07/01 12:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
ある文字列が全て数字であるか...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAからPDFファイルにパスワー...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
VBScriptでファイルの日時順(降...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
ListView内の検索 VB6
-
AccessVBAで「dim dbs as datab...
-
Excelでフィルタをかけると警告...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
オートメーションエラーについて
-
コンパイルエラーの対処がわか...
-
sheetsメソッドの失敗
-
Excel VBAでIEにアクセスするプ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
エクセルのVBAの標準モジュール...
-
エクセルマクロエラー「'Cells'...
-
Excelでフィルタをかけると警告...
-
VBAで Set wb = Sheets(1).Cop...
-
VBAからPDFファイルにパスワー...
-
テキストボックス中の文字列の...
-
エクセルVBAでcode128のバー...
-
EXCEL VBA オートシェイプナン...
-
VBAで作成するメール(開封確認...
-
PowerPointVBAでスライドマスタ...
-
ある文字列が全て数字であるか...
-
エクセルVBAで配列内に空白デー...
-
[VBA]CDOメッセージ送信エラー
-
オブジェクトが見つかりません
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
おすすめ情報