With CreateObject("word.application")
  For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
    If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 4)) = "docx" Then
   With .documents.open(x.Path)
     numDocs = numDocs + 1
     .Range.Fields.Unlink 'Ctrl+A, Ctrl+Shift+F9
     .Close True 'save changes
   End With
    End If
  Next
  .Quit
End With
wscript.echo "Обработано документов " & numDocs