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…