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

PM> Install-Package Spire.Doc

using Spire.Doc;

namespace ConvertOdtToPdf
{
    internal class Program
    {
        static void Main(string[] args)
        {
            //Create a Document instance
            Document doc = new Document();
            //Load an ODT file
            doc.LoadFromFile("Sample.odt");

            //Save the ODT file to PDF
            doc.SaveToFile("OdtToPDF.pdf", FileFormat.PDF);
        }
    }
}

Imports Spire.Doc

Namespace ConvertOdtToPdf
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Create a Document instance
            Dim doc As Document = New Document()
            'Load an ODT file
            doc.LoadFromFile("Sample.odt")

            'Save the ODT file to PDF
            doc.SaveToFile("OdtToPDF.pdf", FileFormat.PDF)
        End Sub
    End Class
End Namespace

PM> Install-Package Spire.Doc

using Spire.Doc;
using Spire.Doc.Documents;
using System;
using System.Drawing;
using System.Drawing.Imaging;

namespace ConvertWordToJPG
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Document object
            Document doc = new Document();

            //Load a Word document
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Template.docx");

            //Convert the whole document into individual images 
            Image[] images = doc.SaveToImages(ImageType.Bitmap);

            //Loop through the image collection
            for (int i = 0; i < images.Length; i++)
            {
                //Save the image to a JPEG format file
                string outputfile = String.Format("‪Image-{0}.jpg", i);‬‬
                images[i].Save("C:\\Users\\Administrator\\Desktop\\Images\\" + outputfile, ImageFormat.Jpeg);
            }
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
 
Namespace ConvertWordToJPG
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'Create a Document object
            Document doc  =  New Document()
 
            'Load a Word document
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Template.docx")
 
            'Convert the whole document into individual images 
            Dim images() As Image =  doc.SaveToImages(ImageType.Bitmap) 
 
            'Loop through the image collection
            Dim i As Integer
            For  i = 0 To  images.Length- 1  Step  i + 1
                'Save the image to a JPEG format file
                Dim outputfile As String =  String.Format("‪Image-{0}.jpg",i) ‬‬
                images(i).Save("C:\\Users\\Administrator\\Desktop\\Images\\" + outputfile, ImageFormat.Jpeg)
            Next
        End Sub
    End Class
End Namespace

using Spire.Doc;
using System;
using System.Collections.Generic;
using System.IO;

namespace CovnertWordToSVG
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Document object
            Document doc = new Document();

            //Load a Word document
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Template.docx");

            //Save the document as a queue of byte arrays
            Queue<byte[]> svgBytes = doc.SaveToSVG();

            //Loop through the items in the queue
            for (int i = 0; i < svgBytes.Count; i++)
            {
                //Convert the queue to an array
                byte[][] bytes = svgBytes.ToArray();

                //Specify the output file name
                string outputfile = String.Format("‪Image-{0}.svg", i);‬‬

                //Write the byte[] in a SVG format file
                FileStream fs = new FileStream("C:\\Users\\Administrator\\Desktop\\Images\\" + outputfile, FileMode.Create);
                fs.Write(bytes[i], 0, bytes[i].Length);
                fs.Close();           
            }   
        }
    }
}

Imports Spire.Doc
Imports System
Imports System.Collections.Generic
Imports System.IO
 
Namespace CovnertWordToSVG
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'Create a Document object
            Document doc  =  New Document()
 
            'Load a Word document
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Template.docx")
 
            'Save the document as a queue of byte[] and store in a queue
            Dim svgBytes()> As Queue<byte =  doc.SaveToSVG() 
 
            'Loop through the items in the queue
            Dim i As Integer
            For  i = 0 To  svgBytes.Count- 1  Step  i + 1
                'Convert the queue to an array
                Dim bytes()() As Byte =  svgBytes.ToArray() 
 
                'Specify the output file name
                Dim outputfile As String =  String.Format("‪Image-{0}.svg",i) ‬‬
 
                'Write the byte[] in a SVG format file
                Dim fs As FileStream =  New FileStream("C:\\Users\\Administrator\\Desktop\\Images\\" + outputfile,FileMode.Create) 
                fs.Write(bytes(i), 0, bytes(i).Length)
                fs.Close()
            Next
        End Sub
    End Class
End Namespace

using Spire.Doc;
using System;
using System.Drawing;
using System.Drawing.Imaging;
using Spire.Doc.Documents;

namespace ConvertWordToPng
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Document object
            Document doc = new Document();

            //Load a Word document
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Template.docx");

            //Convert the whole document into individual images 
            Image[] images = doc.SaveToImages(ImageType.Metafile);

            //Loop through the image collection
            for (int i = 0; i < images.Length; i++)
            {
                //Reset the resolution of a specific image
                Image newimage = ResetResolution(images[i] as Metafile, 150);

                //Save the image to a PNG format file
                string outputfile = String.Format("‪Image-{0}.png", i);‬‬
                newimage.Save("C:\\Users\\Administrator\\Desktop\\Images\\" + outputfile, ImageFormat.Png);
            }
        }

        //Set the image resolution by the ResetResolution() method
        public static Image ResetResolution(Metafile mf, float resolution)
        {
            int width = (int)(mf.Width * resolution / mf.HorizontalResolution);
            int height = (int)(mf.Height * resolution / mf.VerticalResolution);
            Bitmap bmp = new Bitmap(width, height);
            bmp.SetResolution(resolution, resolution);
            using (Graphics g = Graphics.FromImage(bmp))
            {
                g.DrawImage(mf, Point.Empty);
            }
            return bmp;
        }
    }
}

Imports Spire.Doc
Imports System
Imports System.Drawing
Imports System.Drawing.Imaging
Imports Spire.Doc.Documents
 
Namespace ConvertWordToPng
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'Create a Document object
            Document doc  =  New Document()
 
            'Load a Word document
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\Template.docx")
 
            'Convert the whole document into individual images 
            Dim images() As Image =  doc.SaveToImages(ImageType.Metafile) 
 
            'Loop through the image collection
            Dim i As Integer
            For  i = 0 To  images.Length- 1  Step  i + 1
                'Reset the resolution of a specific image
                Dim Newimage As Image =  ResetResolution(images(i) as Metafile,150) 
 
                'Save the image to a PNG format file
                Dim outputfile As String =  String.Format("‪Image-{0}.png",i) ‬‬
                Newimage.Save("C:\\Users\\Administrator\\Desktop\\Images\\" + outputfile, ImageFormat.Png)
            Next
        End Sub
 
        'Set the image resolution by the ResetResolution() method
        Public Shared Function ResetResolution(ByVal mf As Metafile, ByVal resolution As single) As Image
            Dim width As Integer = CType((mf.Width * resolution / mf.HorizontalResolution), Integer)
            Dim height As Integer = CType((mf.Height * resolution / mf.VerticalResolution), Integer)
            Dim bmp As Bitmap =  New Bitmap(width,height) 
            bmp.SetResolution(resolution, resolution)
            Imports (Graphics g = Graphics.FromImage(bmp))
            {
                g.DrawImage(mf, PoInteger.Empty)
            }
            Return bmp
        End Function
    End Class
End Namespace