日々の雑感

Power Automate for desktopでPDFを作成するにはWordとVBScriptとの合わせ技で

投稿日:

自分の環境の現バージョン(2.49.17)のPower Automate for desktopでは、ファイルをPDFに出力する機能が足りていない。

きっと将来はMSが何とかしてくれるとして、いまのVBScriptで以下のコードを記述して実行することが最適と思う。

Dim wordApp, doc, srcFile, dstFile

‘ 変換元のHTMLファイルを指定
srcFile = “C:\Users\test\Downloads\test%RandomText%.html”

‘ 変換後のPDFファイルを指定
dstFile = “C:\Users\test\Downloads\test%RandomText%.pdf”

‘ Wordアプリケーションを作成
Set wordApp = CreateObject(“Word.Application”)

‘ HTMLファイルを開く
Set doc = wordApp.Documents.Open(srcFile)

‘ PDFとして保存
doc.SaveAs2 dstFile, 17 ‘ 17はPDF形式の定数

‘ ドキュメントを閉じる
doc.Close

‘ Wordアプリケーションを終了
wordApp.Quit

自分のケースでは、ドキュメント文書のところどころの字を大きくしたり、表を使ったりしたいという要望があったので、HTMLファイルを作って書式を施し、それをPDF化。

-日々の雑感

執筆者:

関連記事

no image

翌朝

越中チャレンジの表彰式のあった翌朝の今日、出社すると、 「新聞に載ってたね」「インタビューにも答えてたね」と、同僚。 ば、ばれたか。 昨日は休みを取って表彰式に出たので(それだけのために)、あまり会社 …

山下達郎北陸ツアー富山公演に行ってきました。

夏から買っていたチケット。 退勤前のお客さんからの長電話や、雨、最寄りの駐車場満車などの障害を乗り越えつつ、走った。 講演の18:30ジャストに会場到着。スタートが三分後だったので、何とか間に合った。 …

no image

何で俺はおやじギャグに笑ってしまうのか

おやじギャグ、聞くのが好きだ。 いいおやじギャグを聞くと、一日得した気分。 しかし言うのは苦手、センスが無い。 何で俺は好きなのだろうか? チョット考えてみた。 おやじギャグは性質的に、きっと誰も傷つ …

no image

タカタンへ

先週末、高岡で仕事。 さて、昼どこで食べようかってことになって、知り合いが富大芸術学部(旧・高岡短期大学)がいいよっていっていたのを思い出したので、行ってみた。 大学構内は、思いのほかがらんとしてた。 …

no image

乳酸菌

最近、週刊誌で読んだのですが、乳酸菌といっても、自分にあった種類があるらしいですね。 あるものは自分に絶大な効果があるが、別のものはいまいち。しかし、いまいちのものでも、別の人には効果があるとか。相性 …