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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBからPDFファイル自動生成するには
Visual Basic(VBA)
-
「タイプ初期化子が例外をスローしました」エラー何?
Visual Basic(VBA)
-
VBでファイルが開かれているかどうかを確認したい
Visual Basic(VBA)
-
-
4
VBからEXCELのセルの値を取得する方法
Visual Basic(VBA)
-
5
BC30002: 型 'ListItem' が定義されていません となり動きません
Microsoft ASP
-
6
VB.NETでファイル名順にファイルを読む方法
Visual Basic(VBA)
-
7
VB.NETで他のプロジェクトで作成したフォームを使う方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
PowerPointVBAでスライドマスタ...
-
EXCEL VBA オートシェイプナン...
-
Excelでフィルタをかけると警告...
-
テキストボックス中の文字列の...
-
VBScriptでファイルの日時順(降...
-
エクセルマクロエラー「'Cells'...
-
VBで引数にDictionaryオブジェ...
-
VBA (Row とRowsの違いについて)
-
Excel VBA グラフを任意sheetに...
-
<excel vba>selenium basicのWe...
-
ある文字列が全て数字であるか...
-
テキストボックスが読み取り専...
-
Excel VBAでWordの複数ファイル...
-
アクセスにてオブジェクト名変...
-
textBox isNot Nothing とは
-
ExcelのVBAについて(グラフ操作)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
VBAからPDFファイルにパスワー...
-
ある文字列が全て数字であるか...
-
VBAで Set wb = Sheets(1).Cop...
-
VBからPDFファイル自動生成...
-
PowerPointVBAでスライドマスタ...
-
エクセルVBAでcode128のバー...
-
VBで引数にDictionaryオブジェ...
-
EXCEL VBA オートシェイプナン...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBScriptでファイルの日時順(降...
-
Excelでフィルタをかけると警告...
-
上下の位置揃えについて
-
Excel VBAでWordの複数ファイル...
-
EDINETの情報をEXCELにダウンロ...
おすすめ情報