この度はご覧くださいましてありがとうございます。
題名の通りの下記①と②をつないで、Wordに印刷元としての宛名印刷用Wordを作成するマクロを作成しただきたく。
①封筒に印刷する印刷元としてのWord
②住所等が保存されているExcel
仕様・依頼
②で50名の名簿があった場合、①で50ページの封筒プレビューが仕上がるようにしたい。(最後はpdf出力したい)
サンプル
①Wordと②Excelのサンプルは添付の通りです。
この場合のVBAをExcelとWordのどちらに書いていただいても構いませんが、以下に注目して発注します。
❶if文とfunctionできれいにかける方(メンテナンスしやすさ)
コードのイメージは下記の通りです。
SUB MAIN()
If funcExcelOpen = False Then Exit Sub
If funcCreatePage = False Then Exit Sub
END SUB
FUNCTION funcExcelOpen AS
WordかExcelを外部から立ち上げてSET
END FUNCTION
FUNCTION funcCreatePage AS
LOOPを使ってテキストボックスや改行ページ
END FUNCTION
私自身、15年ほどVBAをやっておりますが、この度、別件でいそがしいため、外注することにしました。
相談内容:
outlookのタスクを抽出してメール送信の自動化のご相談です。添付ファイルの内容です。
私の環境:
Windows 11 22H2
Microsoft Office 2019
その他:
Outlook VBAでの実現を希望です。必要に応じてWindowsの機能(タスクスケジューラなど)
を用いても大丈夫です。
コードは開示希望です。
ご確認いただければ大変ありがたく存じます。