![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
質問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も見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
【Excel】版が同じ事を示す番号を生成したい
Excel(エクセル)
-
エクセルで現場ごとに機材の移動状況を一覧にしたいのですが、どうすればいいかわかりません。
Excel(エクセル)
-
エクセルで 自動的に◯や数字を表示させることできます? 例えばなんですが 日付 山田 1 ◯ みたい
Excel(エクセル)
-
-
4
シフト表をエクセルで作るときに 例えばAさんの勤務が月、火、水で祝日は休み Bさんが木と金と出勤で
Excel(エクセル)
-
5
VBAについての質問です
Excel(エクセル)
-
6
エクセルで上位バイトのセルと下位バイトのセルを1つのセルにして16進数を作る方法
Excel(エクセル)
-
7
Excelにて数式を使用して 工数計算をしたいのですが、 計算方法が分からないので教えて下さい。 1
Excel(エクセル)
-
8
在庫管理表に使うエクセルの関数が分かりません
Excel(エクセル)
-
9
Excelに詳しい方! B列が「日」なら「休」と表示されるようにしたいのに何で全部の曜日に「休」と入
Excel(エクセル)
-
10
データチェックを行うエクセルマクロをおしえてほしい
Excel(エクセル)
-
11
Excel 1の位の数字で処理を分岐させたい
Excel(エクセル)
-
12
Excel 対象のセルに入力が無いとセルに入力できないようにしたい
Excel(エクセル)
-
13
Excelの数式の効率化について
Excel(エクセル)
-
14
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
15
エクセルで日付の入ったセルの月別の個数が知りたい
Excel(エクセル)
-
16
エクセルの空欄をつめて、次の列に表示する方法
Excel(エクセル)
-
17
エクセルでセルに標準で入力されている和暦を西暦に変換する方法はありますか?
Excel(エクセル)
-
18
マクロの書き方を教えて下さい
その他(Microsoft Office)
-
19
エクセルを使用して、円周率を表示させる方法
Excel(エクセル)
-
20
エクセル IF計算式?でしょうか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】フォルダ内にあるPDF...
-
RealPlayer(flv)の動画統合の...
-
コマンドプロンプトでのPDF...
-
Photoshopで複数の画像を違和感...
-
分割されたメールの結合方法!
-
GIMPで、まとめたレイヤーを元...
-
ニコニコ動画等で見られる .xm...
-
jpg の結合方法
-
動画結合フリーソフト
-
ベクターワークスで
-
iMovieでクリップ結合ができません
-
Primo PDF の結合,分割について
-
DVDFabの使い方を教えて下さい
-
複数のm4aファイルを結合したい...
-
ASF,WMVファイルをカット、結合...
-
Photoshopでの一時保存の方法
-
2つのPDFファイルを一つにまと...
-
m2vとwavファイルを結合したい
-
GIMP2でのレイヤーの統合につい...
-
ただ動画と動画を結合できれば...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】フォルダ内にあるPDF...
-
【PDF結合】PDFをフリーソフト...
-
jpg の結合方法
-
コマンドプロンプトでのPDF...
-
iMovieでクリップ結合ができません
-
GIMPで、まとめたレイヤーを元...
-
秀丸を使い複数のテキストファ...
-
ISO ファイルの結合方法を教え...
-
2つのPDFファイルを一つにまと...
-
複数のMP3ファイルを一つに結合...
-
Primo PDF の結合,分割について
-
ただ動画と動画を結合できれば...
-
2つの曲を1つにつなげる方法(...
-
レイヤーの結合を解除する方法...
-
RealPlayer(flv)の動画統合の...
-
抜けのあるrarの解凍について
-
pdf結合フリーソフトpdfpdfpdf...
-
分割されたメールの結合方法!
-
photoshopで複数レイヤーの画像...
-
A4 の PDF ファイルを A3 に印...
おすすめ情報