C#/VB.NET: Word in Excel konvertieren

PM> Install-Package Spire.Office

using Spire.Doc;
    using Spire.Doc.Documents;
    using Spire.Doc.Fields;
    using Spire.Xls;
    using System;
    using System.Drawing;
    
    namespace ConvertWordToExcel
    {
        class Program
        {
            static void Main(string[] args)
            {
                //Create a Document object
                Document doc = new Document();
    
                //Load a Word file
                doc.LoadFromFile(@"C:\Users\Administrator\Desktop\Invoice.docx");
    
                //Create a Workbook object
                Workbook wb = new Workbook();
    
                //Remove the default worksheets
                wb.Worksheets.Clear();
    
                //Create a worksheet named "WordToExcel"
                Worksheet worksheet = wb.CreateEmptySheet("WordToExcel");
                int row = 1;
                int column = 1;
    
                //Loop through the sections in the Word document
                foreach (Section section in doc.Sections)
                {
                    //Loop through the document object under a certain section
                    foreach (DocumentObject documentObject in section.Body.ChildObjects)
                    {
                        //Determine if the object is a paragraph
                        if (documentObject is Paragraph)
                        {
                            CellRange cell = worksheet.Range[row, column];
                            Paragraph paragraph = documentObject as Paragraph;
                            //Copy paragraph from Word to a specific cell
                            CopyTextAndStyle(cell, paragraph);
                            row++;
                        }
    
                        //Determine if the object is a table
                        if (documentObject is Table)
                        {
                            Table table = documentObject as Table;
                            //Export table data from Word to Excel
                            int currentRow = ExportTableInExcel(worksheet, row, table);
                            row = currentRow;
                        }
                    }
                }
    
                //Auto fit row height and column width
                worksheet.AllocatedRange.AutoFitRows();
                worksheet.AllocatedRange.AutoFitColumns();
    
                //Wrap text in cells
                worksheet.AllocatedRange.IsWrapText = true;
    
                //Save the workbook to an Excel file
                wb.SaveToFile("WordToExcel.xlsx", ExcelVersion.Version2013);
            }
    
            //Export data from Word table to Excel cells
            private static int ExportTableInExcel(Worksheet worksheet, int row, Table table)
            {
                CellRange cell;
                int column;
                foreach (TableRow tbRow in table.Rows)
                {
                    column = 1;
                    foreach (TableCell tbCell in tbRow.Cells)
                    {
                        cell = worksheet.Range[row, column];
                        cell.BorderAround(LineStyleType.Thin, Color.Black);
                        CopyContentInTable(tbCell, cell);
                        column++;
                    }
                    row++;
                }
                return row;
            }
    
            //Copy content from a Word table cell to an Excel cell
            private static void CopyContentInTable(TableCell tbCell, CellRange cell)
            {
                Paragraph newPara = new Paragraph(tbCell.Document);
                for (int i = 0; i < tbCell.ChildObjects.Count; i++)
                {
                    DocumentObject documentObject = tbCell.ChildObjects[i];
                    if (documentObject is Paragraph)
                    {
                        Paragraph paragraph = documentObject as Paragraph;
                        foreach (DocumentObject cObj in paragraph.ChildObjects)
                        {
                            newPara.ChildObjects.Add(cObj.Clone());
                        }
                        if (i < tbCell.ChildObjects.Count - 1)
                        {
                            newPara.AppendText("\n");
                        }
                    }
                }
                CopyTextAndStyle(cell, newPara);
            }
    
            //Copy text and style of a paragraph to a cell
            private static void CopyTextAndStyle(CellRange cell, Paragraph paragraph)
            {
                RichText richText = cell.RichText;
                richText.Text = paragraph.Text;
                int startIndex = 0;
                foreach (DocumentObject documentObject in paragraph.ChildObjects)
                {
                    if (documentObject is TextRange)
                    {
                        TextRange textRange = documentObject as TextRange;
                        string fontName = textRange.CharacterFormat.FontName;
                        bool isBold = textRange.CharacterFormat.Bold;
                        Color textColor = textRange.CharacterFormat.TextColor;
                        float fontSize = textRange.CharacterFormat.FontSize;
                        string textRangeText = textRange.Text;
                        int strLength = textRangeText.Length;
                        ExcelFont font = cell.Worksheet.Workbook.CreateFont();
                        font.Color = textColor;
                        font.IsBold = isBold;
                        font.Size = fontSize;
                        font.FontName = fontName;
                        int endIndex = startIndex + strLength;
                        richText.SetFont(startIndex, endIndex, font);
                        startIndex += strLength;
                    }
                    if (documentObject is DocPicture)
                    {
                        DocPicture picture = documentObject as DocPicture;
                        cell.Worksheet.Pictures.Add(cell.Row, cell.Column, picture.Image);
                        cell.Worksheet.SetRowHeightInPixels(cell.Row, 1, picture.Image.Height);
                    }
                }
                switch (paragraph.Format.HorizontalAlignment)
                {
                    case HorizontalAlignment.Left:
                        cell.Style.HorizontalAlignment = HorizontalAlignType.Left;
                        break;
                    case HorizontalAlignment.Center:
                        cell.Style.HorizontalAlignment = HorizontalAlignType.Center;
                        break;
                    case HorizontalAlignment.Right:
                        cell.Style.HorizontalAlignment = HorizontalAlignType.Right;
                        break;
                }
            }
        }
    }

Imports Spire.Doc
    Imports Spire.Doc.Documents
    Imports Spire.Doc.Fields
    Imports Spire.Xls
    Imports System
    Imports System.Drawing
    
    Namespace ConvertWordToExcel
        Class Program
            Shared  Sub Main(ByVal args() As String)
                'Create a Document object
                Document doc  =  New Document()
    
                'Load a Word file
                doc.LoadFromFile("C:\Users\Administrator\Desktop\Invoice.docx")
    
                'Create a Workbook object
                Dim wb As Workbook =  New Workbook()
    
                'Remove the default worksheets
                wb.Worksheets.Clear()
    
                'Create a worksheet named "WordToExcel"
                Dim worksheet As Worksheet =  wb.CreateEmptySheet("WordToExcel")
                Dim row As Integer =  1
                Dim column As Integer =  1
    
                'Loop through the sections in the Word document
                Dim section As Section
                For Each section In doc.Sections
                    'Loop through the document object under a certain section
                    Dim documentObject As DocumentObject
                    For Each documentObject In section.Body.ChildObjects
                        'Determine if the object is a paragraph
                        If TypeOf documentObject Is Paragraph Then
                            Dim cell As CellRange =  worksheet.Range(row,column)
                            Dim paragraph As Paragraph =  documentObject as Paragraph
                            'Copy paragraph from Word to a specific cell
                            CopyTextAndStyle(cell, paragraph)
                            row = row + 1
                        End If
    
                        'Determine if the object is a table
                        If TypeOf documentObject Is Table Then
                            Dim table As Table =  documentObject as Table
                            'Export table data from Word to Excel
                            Dim currentRow As Integer =  ExportTableInExcel(worksheet,row,table)
                            row = currentRow
                        End If
                    Next
                Next
    
                'Auto fit row height and column width
                worksheet.AllocatedRange.AutoFitRows()
                worksheet.AllocatedRange.AutoFitColumns()
    
                'Wrap text in cells
                worksheet.AllocatedRange.IsWrapText = True
    
                'Save the workbook to an Excel file
                wb.SaveToFile("WordToExcel.xlsx", ExcelVersion.Version2013)
            End Sub
    
            'Export data from Word table to Excel cells
            Private Shared Function ExportTableInExcel(ByVal worksheet As Worksheet, ByVal row As Integer, ByVal table As Table) As Integer
                Dim cell As CellRange
                Dim column As Integer
                Dim tbRow As TableRow
                For Each tbRow In table.Rows
                    column = 1
                    Dim tbCell As TableCell
                    For Each tbCell In tbRow.Cells
                        cell = worksheet.Range(row, column)
                        cell.BorderAround(LineStyleType.Thin, Color.Black)
                        CopyContentInTable(tbCell, cell)
                        column = column + 1
                    Next
                    row = row + 1
                Next
                Return row
            End Function
    
            'Copy content from a Word table cell to an Excel cell
            Private Shared  Sub CopyContentInTable(ByVal tbCell As TableCell, ByVal cell As CellRange)
                Dim NewPara As Paragraph =  New Paragraph(tbCell.Document)
                Dim i As Integer
                For  i = 0 To  tbCell.ChildObjects.Count- 1  Step  i + 1
                    Dim documentObject As DocumentObject =  tbCell.ChildObjects(i)
                    If TypeOf documentObject Is Paragraph Then
                        Dim paragraph As Paragraph =  documentObject as Paragraph
                        Dim cObj As DocumentObject
                        For Each cObj In paragraph.ChildObjects
                            NewPara.ChildObjects.Add(cObj.Clone())
                        Next
                        If i < tbCell.ChildObjects.Count - 1 Then
                            NewPara.AppendText("\n")
                        End If
                    End If
                Next
                CopyTextAndStyle(cell, NewPara)
            End Sub
    
            'Copy text and style of a paragraph to a cell
            Private Shared  Sub CopyTextAndStyle(ByVal cell As CellRange, ByVal paragraph As Paragraph)
                Dim richText As RichText =  cell.RichText
                richText.Text = paragraph.Text
                Dim startIndex As Integer =  0
                Dim documentObject As DocumentObject
                For Each documentObject In paragraph.ChildObjects
                    If TypeOf documentObject Is TextRange Then
                        Dim textRange As TextRange =  documentObject as TextRange
                        Dim fontName As String =  textRange.CharacterFormat.FontName
                        Dim isBold As Boolean =  textRange.CharacterFormat.Bold
                        Dim textColor As Color =  textRange.CharacterFormat.TextColor
                        Dim fontSize As single =  textRange.CharacterFormat.FontSize
                        Dim textRangeText As String =  textRange.Text
                        Dim strLength As Integer =  textRangeText.Length
                        Dim font As ExcelFont =  cell.Worksheet.Workbook.CreateFont()
                        font.Color = textColor
                        font.IsBold = isBold
                        font.Size = fontSize
                        font.FontName = fontName
                        Dim endIndex As Integer =  startIndex + strLength
                        richText.SetFont(startIndex, endIndex, font)
                        startIndex += strLength
                    End If
                    If TypeOf documentObject Is DocPicture Then
                        Dim picture As DocPicture =  documentObject as DocPicture
                        cell.Worksheet.Pictures.Add(cell.Row, cell.Column, picture.Image)
                        cell.Worksheet.SetRowHeightInPixels(cell.Row, 1, picture.Image.Height)
                    End If
                Next
                Select Case paragraph.Format.HorizontalAlignment
                    Case HorizontalAlignment.Left
                        cell.Style.HorizontalAlignment = HorizontalAlignType.Left
                        Exit For
                    Case HorizontalAlignment.Center
                        cell.Style.HorizontalAlignment = HorizontalAlignType.Center
                        Exit For
                    Case HorizontalAlignment.Right
                        cell.Style.HorizontalAlignment = HorizontalAlignType.Right
                        Exit For
                End Select
            End Sub
        End Class
    End Namespace