Sub WordTableToExcel()
    ' تحديد جدول وورد
    Dim tbl As Table
    Set tbl = ActiveDocument.Tables(1)

    ' إنشاء مصنف إكسيل جديد
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    xlApp.Workbooks.Add

    ' نسخ الجدول إلى إكسيل
    tbl.Range.Copy
    xlApp.ActiveSheet.PasteSpecial xlPasteAll

    ' حفظ مصنف إكسيل
    xlApp.ActiveWorkbook.SaveAs "C:\Path\To\ExcelFile.xlsx"

    ' إغلاق مصنف إكسيل
    xlApp.Quit
End Sub
```

Sub TableToWord()

    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim xlWs As Excel.Worksheet
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim rngTable As Excel.Range
    Dim strTable As String
    Dim i As Long

    'Get the Excel application and workbook
    Set xlApp = Excel.Application
    Set xlWb = xlApp.ActiveWorkbook
    Set xlWs = xlWb.ActiveSheet

    'Get the range of the table
    Set rngTable = xlWs.ListObjects(1).Range

    'Convert the table to a string
    strTable = rngTable.TextToColumns(Destination:=rngTable, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 1))

    'Create a new Word application and document
    Set wdApp = Word.Application
    Set wdDoc = wdApp.Documents.Add

    'Insert the table into the Word document
    With wdDoc
        .Content.InsertAfter strTable
        .Tables(1).AutoFitBehavior = wdAutoFitContent
        .Tables(1).Style = "Table Grid"
    End With

    'Display the Word document
    wdApp.Visible = True

End Sub