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)
-
VBでファイルが開かれているかどうかを確認したい
Visual Basic(VBA)
-
VB6にてメールを送信する方法
Visual Basic(VBA)
-
-
4
VB.NETでファイル名順にファイルを読む方法
Visual Basic(VBA)
-
5
BC30002: 型 'ListItem' が定義されていません となり動きません
Microsoft ASP
-
6
「タイプ初期化子が例外をスローしました」エラー何?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
VBAで既に開いている別アプリケ...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
エクセルマクロエラー「'Cells'...
-
エクセルのVBAの標準モジュール...
-
VBAについてです。 初心者です...
-
EXCEL VBA オートシェイプナン...
-
UserForm1.Showでエラーになり...
-
テキストボックス中の文字列の...
-
ある文字列が全て数字であるか...
-
エクセルVBAでFor each文
-
横軸ラベルの追加に関するエラ...
-
メモリ解放について(ASP)
-
VBA (Row とRowsの違いについて)
-
VBで引数にDictionaryオブジェ...
-
PowerPointVBAでスライドマスタ...
-
EDINETの情報をEXCELにダウンロ...
-
VBScriptでExcelのグラフを貼り...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
VBAで既に開いている別アプリケ...
-
VBAで Set wb = Sheets(1).Cop...
-
テキストボックス中の文字列の...
-
PowerPointVBAでスライドマスタ...
-
エクセルマクロエラー「'Cells'...
-
VBAからPDFファイルにパスワー...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
ある文字列が全て数字であるか...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで作成するメール(開封確認...
-
VBAについてです。 初心者です...
-
VBA:オートシェイプの線の長...
-
VBで引数にDictionaryオブジェ...
-
AccessVBAで「dim dbs as datab...
おすすめ情報