日々の雑感

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

ブラウザの電話リンク経由で電話帳をかける(ワイモバイルの誰とでも定額パスで)ことに成功

ウィルコム/ワイモバイルを使っている私。 タイトルのようなことを標準ブラウザでやろうとすると、電話番号の先頭にコロン「:」が入る。 もちろんこれでダイヤルすると、かからない。 私の端末(docomoの …

no image

奨学金返還完了通知

思えば長かったなー。 感慨深い。 また、お祝いしなくちゃな。

no image

風呂

ここ数日、ずっと風邪がひどかったので、風呂に入れなかった。 本日、久しぶりの風呂に浸かる事に。 私:オレがお風呂一番に入るとお湯が汚れてしまうから、今日は一番後に入るよ 妻:いいよ、最後に入るとお湯が …

no image

Beer Breeze Toyama 2007・ビアブリーズとやま2007

先週11/2、ビールを飲みに行ったことなど書いておこうかと。 会社の人に誘われて、「Beer Breeze Toyama 2007・ビアブリーズとやま2007」というのに、行ってきた。 場所は、オーク …

no image

木琴とか

若者はもてたいために音楽に夢中になる。30過ぎるとそんな気もなくなるので音楽を聴かなくなる・・・なんて誰かが言っていたけど。 自分が若いときに好きだったのは60年代のいわゆるオールディーズで。けしても …