Word VBAの修正(2000 >2019)

Word2000で機能していたマクロをWord2019で使用したく存じます。 １： デスクトップのフォルダ　\図面連続印刷　内にある複数のjpgファイル（001.jpg 002.jpg ...）をWordに貼り付け、順番に【図１】【図２】のようにナンバリングいたします。 Action_Folder = "C:\Users\THINK8\Desktop\図面連続印刷" ２： Word２０００では動作するのですが、Word２０１９では以下の所で止まってしまいます。 With Application.FileSearch ３： Word２０１９で稼働するように書き換えをお願いしたく存じます。 マクロは、添付『Sub ☆図面添付処理』　を修正ねがいます。 ４： 正常動作後のサンプルWord（001002003）を添付いたします。