
質問1
以下のコードは2つのPDFを結合します
フォルダ内にある、2つのPDFファイルのパスを、コードに指定します
やりたい事は、当該、PDFファイルパス指定をせずに、フォルダ内にある2つ(2~10個)の
ファイルを結合するコードに変更したいです
> pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\2438-214-20090414.pdf"
> pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\140120240812570514.pdf"
ご存じの方、アドバイス・ご指導お願いします
質問2
当方、パソコンに、アドビの有料ソフトは一切いれていません
しかし、PDF結合は以下マクロにて作成できています
勝手に、有料版が契約されている事はないでしょうか?
NETにて調べた際に、ほとんどの、サイトでは
Adobe Acrobat Pro DC(有料版)のインストールが必要と
記載がある為、質問させて頂いています
【コード】
Sub ExecuteCombinePDFs()
Dim pdfs As New Collection
Dim outputPath As String
' 結合するPDFファイルのパスを指定します
pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\2438-214-20090414.pdf"
pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\140120240812570514.pdf"
' さらにファイルを追加...
' 結合後のファイルの保存パスを指定します
outputPath = "C:\Users\2020\OneDrive\デスクトップ\PDF結合\結合.pdf"
' PDF結合関数を呼び出します
合体サブシーシャ pdfs, outputPath
End Sub
Sub 合体サブシーシャ(pdfList As Collection, outputPath As String)
Dim acroApp As New Acrobat.acroApp
Dim pdDoc As Acrobat.CAcroPDDoc
Dim pdDocToAdd As Acrobat.CAcroPDDoc
Dim i As Integer
Set pdDoc = CreateObject("AcroExch.PDDoc")
' 最初のPDFファイルを開きます
pdDoc.Open pdfList(1)
' 残りのPDFファイルを順番に結合します
For i = 2 To pdfList.Count
Set pdDocToAdd = CreateObject("AcroExch.PDDoc")
pdDocToAdd.Open pdfList(i)
pdDoc.InsertPages -1, pdDocToAdd, 0, pdDocToAdd.GetNumPages, True
pdDocToAdd.Close
Next i
' 結合したPDFを保存します
pdDoc.Save PDSaveFull, outputPath
pdDoc.Close
' Acrobat Applicationを終了します
acroApp.Exit
Set pdDoc = Nothing
Set acroApp = Nothing
End Sub

No.3ベストアンサー
- 回答日時:
>無料ば?でできてるっめこ
過去の導入経歴などが分からないので勝手な憶測でした。
ただ、Adobeコミュでも似たような質問があがってました
https://community.adobe.com/t5/acrobat-reader-ac …
どうやら無料版Acrobat Readerのみでも挙動が異なるようです。
「Acrobat.tlb」はあるのに保存場所が異なるために参照設定に出てないだけかも知れません。
参考までに

No.2
- 回答日時:
これだと1つ追加して保存した後に次のファイルを追加ですね。
ちょっと効率悪そうです。
https://shikumika.org/entry/excel-vba-dir
こちらも同様ですね、Dir関数だと仕方ないのかな
エクセルファイルと同じフォルダ内なのか、実行する毎にフォルダ指定するのか、そこへんはうまく対応してください。
拡張子を変えれば動作すると思います。
ツールの参照設定で「Acrobat」が追加されているはずです
体験版とか?
過去に導入したことがあるのかも知れませんね。
お返事ありがとうです
Windows 10ですが、環境設定にて
アクロバットは、追加しました
ただ、優良版ではないので
無料ば?でできてるっめことですかね!!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
コマンドプロンプトでのPDFファイルの結合
その他(コンピューター・テクノロジー)
-
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
PDFを結合して一つのPDFファイルにしたい。
PDF
-
-
4
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
5
VBAでホルダー内のPDFを一括印刷したい
Excel(エクセル)
-
6
【VBA】値を変更しながら連続でPDFを作成し,それらに印刷設定をした状態で結合するコード
Visual Basic(VBA)
-
7
pdftkを使った処理をバッチファイルで行いたい
その他(プログラミング・Web制作)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
Excel VBAで値を変えながら、pdf出力したい
Visual Basic(VBA)
-
10
EXCEL VBAでPDFファイルを開いて印刷
Visual Basic(VBA)
-
11
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
12
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
13
Excel VBAでWordの複数ファイルを統合する場合のエラーについて教えてください
Visual Basic(VBA)
-
14
PDFファイルを開かずに印刷したい
Visual Basic(VBA)
-
15
PDFファイルを開き、印刷し、閉じるマクロ
Visual Basic(VBA)
-
16
Acrobat参照設定
Visual Basic(VBA)
-
17
エクセルマクロで差し込みしたものを1つのファイルでPDF化したいです
その他(Microsoft Office)
-
18
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
19
PDFファイルを分割するマクロの作り方を教えてください。
PDF
-
20
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトでのPDF...
-
結合ソフトのラブマシーン
-
GIMPで、まとめたレイヤーを元...
-
Adobe Acrobat DCでPDF結合後の...
-
秀丸を使い複数のテキストファ...
-
HPプリンタで複数枚をスキャン...
-
photoshopで複数レイヤーの画像...
-
jpg の結合方法
-
iMovieでクリップ結合ができません
-
ビデオスタジオ11で映像と音声...
-
avi動画ファイル結合について
-
インデザイン 自動流し込み 拡大
-
【PDF結合】PDFをフリーソフト...
-
exeファイルの中身を見ることは...
-
jlbという拡張子のファイルを開...
-
700MB以上のファイルをCD-...
-
windows11におけるファイルの並...
-
フォルダは残してファイルだけ...
-
フォトショップでのアイコン作成
-
【マクロ】既存ファイルの名前...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトでのPDF...
-
ISO ファイルの結合方法を教え...
-
【PDF結合】PDFをフリーソフト...
-
【マクロ】フォルダ内にあるPDF...
-
GIMPで、まとめたレイヤーを元...
-
分割されたメールの結合方法!
-
ただ動画と動画を結合できれば...
-
jpg の結合方法
-
iMovieでクリップ結合ができません
-
秀丸を使い複数のテキストファ...
-
Primo PDF の結合,分割について
-
いきなりPDFのファイルの結...
-
PDFの結合
-
複数のMP3ファイルを一つに結合...
-
photoshopで複数レイヤーの画像...
-
レイヤーの結合を解除する方法...
-
「MP3 direct cut」の使用方法...
-
ドラッグ&ドロップでPDF文書の...
-
2つの曲を1つにつなげる方法(...
-
M2TSの動画結合ソフト ブ...
おすすめ情報