Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
Word文書内にあるPDFなどを一括してダウンロードしたい。
投稿日時: 21/06/05 02:28:48
投稿者: shonanFM

Word文書内にあるPDFなどを一括してダウンロードしたい。
Word文書に、PDF・Excel・Wordのファイルが、オブジェクトとして多数貼付されています。
現在は、それぞれのオブジェクトを起動して、名前を変更の上、指定したフォルダに保存しますが、数が多いので面倒です。
これをExcel VBAで、一括で処理したいのですが、どうすれば良いですか。

回答
投稿日時: 21/06/05 06:56:47
投稿者: simple

ネット検索して既にご存じかと思いますが、
Word(に限らずExcelもですが)は、XMLファイルをZIPにしたものなので、
拡張子をzipに変更して解凍し、該当ファイルを取り出す方法が知られています。
詳細手順はネット検索してみて下さい。
 
例えば、pdfファイルなら、解凍した何階層か下にある
\文書1\word\embeddings\oleObject1.bin といったファイルになっています。
.binを.pdfに変更すると、閲覧可能です。
 
まあ、現行方式のほうがマシかもしれませんね。
これを自動化すればよいのでしょうけど、そうした記事は見たことがありませんね。
どなたか書かれているかもしれないので、検索してみて下さい。
 
# Wordの話であれば、WordVBAのほうが適切なフォーラムだったかも知れませんね。

投稿日時: 21/06/05 07:19:08
投稿者: shonanFM

なるほど、そうだったのですか。
全く存じ上げませんでした。
参考になりました。
他のサイトでも聞いていますね。
回答ありがとうございました。