Option ExplicitDim wordApp Dim filePath Dim args Dim numShapesDim iConst wdInLine =0 Set args = WScript.Arguments filePath = args(0)Set wordApp = CreateObject("Word.Application") wordApp.Documents.Open(filePath)numShapes = wordApp.ActiveDo…

Microsoft WordやExcelでの繰り返し作業（ルーティーンワーク）の負荷を軽減するマクロの作成を有料でたまわっております。 内容によりますが、午後5時までにご依頼いただければ、翌営業日の10時までに納品いたします。お見積もりは masayuki.tanaka.0412@gm…