Option Explicit

Dim objWord, objFSO, objCSV
Dim fileName, folderPath, filePath, csvFilePath
Dim currentDocument
Dim numberOfTables
Dim i
Dim j
Dim tbl

folderPath = WScript.Arguments.Item(0)
fileName = WScript.Arguments.Item(1)
filePath = folderPath & fileName
csvFilePath = filePath & ".csv"

Set objWord = CreateObject("Word.Application") 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCSV = objFSO.openTextFile(csvFilePath, 2, true)

objWord.DisplayAlerts = 0
objWord.Documents.Open filePath, false, true
Set currentDocument = objWord.Documents(1)

numberOfTables = currentDocument.tables.count

If numberOfTables = 0 Then
WScript.Echo "There are no tables " & vbCRLF
Else
For Each tbl In currentDocument.Range.Tables
  For i = 1 To tbl.Rows.Count
    For j = 1 To tbl.Columns.Count
      objCSV.Write tbl.Cell(i, j).range.text
	  If j < tbl.Columns.Count Then
		objCSV.Write ","
	  End If
    Next
	objCSV.Writeline 
  Next
  objCSV.Writeline 
  objCSV.Writeline 
Next
End If

currentDocument.Close
Set currentDocument = Nothing

objWord.Quit
Set objWord = Nothing