xlsh | c1:2345 : respawn : /sbin/agetty -8 -s 38400 -n

Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True      ' Do show Word. 

For Each f In fo.Files
If f.Name Like "*.docx" And Left(f.Name, 2) <> "~$" Then
    Set wdDoc = wdApp.Documents.Open(f.Path, False, True, Format:="doc Files")
    tableTot = wdDoc.Tables.Count
    If tableTot = 0 Then
        MsgBox "The file" & wdDoc.Name & "does not have invoice table", vbInformation, "Invoice sheet is invalid"
    End If


    Set xlwb = Workbooks.Add
    Set xlsh = xlwb.Sheets(1)
    Set rng = xlsh.Range("A1")
    xlsh.Activate

            For Each t In wdDoc.Tables
                t.Range.Copy
                rng.Select
                rng.Parent.PasteSpecial Format:="Text", Link:=False, _
                            DisplayAsIcon:=False
                With rng.Resize(t.Rows.Count, t.Columns.Count)
                    .Cells.UnMerge
                    .Cells.ColumnWidth = 14
                    .Cells.RowHeight = 14
                    .Cells.Font.Size = 10
                End With
            Set rng = rng.Offset(t.Rows.Count, 0)
            Next
            xlwb.SaveAs (excel_path & "\" & Replace(f.Name, ".docx", ".xlsx"))
            wdDoc.Close False
            xlwb.Close False
            Set t = Nothing: Set rng = Nothing: Set wdDoc = Nothing
            tableTot = 0
End If
Next