C#/VB.NET: Word in Bilder konvertieren (JPG, PNG und SVG)

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