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...
-
VBAで既に開いている別アプリケ...
-
「Columns("A:C")」の列文字を...
-
コンパイルすると「メソッドま...
-
エクセルVBAで2つの画像を比較...
-
テキストボックスが読み取り専...
-
エクセルでダウンロードするには?
-
MSアクセスでエクセルのセルに...
-
エクセルのVBAでWEBページの更新
-
エクセルからマクロでパワーポ...
-
PowerPointVBAでスライドマスタ...
-
オブジェクトが見つかりません
-
MATLABのGUI、画像表示について
-
上下の位置揃えについて
-
VBのプログラムミング
-
エクセルVBAでテキストボックス...
-
エクセルVBAで配列内に空白デー...
-
エクセルVBAで同名オブジェクト...
-
VBA:オートシェイプの線の長...
-
<excel vba>selenium basicのWe...
マンスリーランキングこのカテゴリの人気マンスリー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...
おすすめ情報