PM> Install-Package Spire.Office

using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
using Spire.Xls;

namespace ConvertExcelToWord
{
    internal class Program
    {
        static void Main(string[] args)
        {

            //加载一个示例 Excel 文件
            Workbook workbook = new Workbook();
            workbook.LoadFromFile("企业经营数据表.xlsx");

            //获取特定的工作表
            Worksheet sheet = workbook.Worksheets[0];

            //创建一个 Document 对象
            Document doc = new Document();
            Section section = doc.AddSection();
            section.PageSetup.Orientation = PageOrientation.Landscape;

            //添加一个表格
            Table table = section.AddTable(true);
            table.ResetCells(sheet.LastRow, sheet.LastColumn);

            //合并单元格
            MergeCells(sheet, table);

            for (int r = 1; r <= sheet.LastRow; r++)
            {
                //设置行高
                table.Rows[r - 1].Height = (float)sheet.Rows[r - 1].RowHeight;

                for (int c = 1; c <= sheet.LastColumn; c++)
                {
                    CellRange xCell = sheet.Range[r, c];
                    TableCell wCell = table.Rows[r - 1].Cells[c - 1];

                    //将数据从 Excel 导出到 Word 表格
                    TextRange textRange = wCell.AddParagraph().AppendText(xCell.NumberText);

                    //将字体和单元格样式从 Excel 复制到 Word
                    CopyStyle(textRange, xCell, wCell);
                }
            }

            //将文档保存到 Word 文件
            doc.SaveToFile("导出到Word.docx", Spire.Doc.FileFormat.Docx);
        }
        //合并单元格（如果有）
        private static void MergeCells(Worksheet sheet, Table table)
        {
            if (sheet.HasMergedCells)
            {
                //从 Excel 获取合并的单元格范围
                CellRange[] ranges = sheet.MergedCells;

                //合并Word表格中对应的单元格
                for (int i = 0; i < ranges.Length; i++)
                {
                    int startRow = ranges[i].Row;
                    int startColumn = ranges[i].Column;
                    int rowCount = ranges[i].RowCount;
                    int columnCount = ranges[i].ColumnCount;
                    if (rowCount > 1 && columnCount > 1)
                    {
                        for (int j = startRow; j <= startRow + rowCount; j++)
                        {
                            table.ApplyHorizontalMerge(j - 1, startColumn - 1, startColumn - 1 + columnCount - 1);
                        }
                        table.ApplyVerticalMerge(startColumn - 1, startRow - 1, startRow - 1 + rowCount - 1);
                    }
                    if (rowCount > 1 && columnCount == 1)
                    {
                        table.ApplyVerticalMerge(startColumn - 1, startRow - 1, startRow - 1 + rowCount - 1);
                    }
                    if (columnCount > 1 && rowCount == 1)
                    {
                        table.ApplyHorizontalMerge(startRow - 1, startColumn - 1, startColumn - 1 + columnCount - 1);
                    }
                }
            }
        }

        //将Excel的单元格样式复制到Word表格
        private static void CopyStyle(TextRange wTextRange, CellRange xCell, TableCell wCell)
        {
            //复制字体样式
            wTextRange.CharacterFormat.TextColor = xCell.Style.Font.Color;
            wTextRange.CharacterFormat.FontSize = (float)xCell.Style.Font.Size;
            wTextRange.CharacterFormat.FontName = xCell.Style.Font.FontName;
            wTextRange.CharacterFormat.Bold = xCell.Style.Font.IsBold;
            wTextRange.CharacterFormat.Italic = xCell.Style.Font.IsItalic;
            //复制背景色
            wCell.CellFormat.BackColor = xCell.Style.Color;
            //复制水平对齐
            switch (xCell.HorizontalAlignment)
            {
                case HorizontalAlignType.Left:
                    wTextRange.OwnerParagraph.Format.HorizontalAlignment = HorizontalAlignment.Left;
                    break;
                case HorizontalAlignType.Center:
                    wTextRange.OwnerParagraph.Format.HorizontalAlignment = HorizontalAlignment.Center;
                    break;
                case HorizontalAlignType.Right:
                    wTextRange.OwnerParagraph.Format.HorizontalAlignment = HorizontalAlignment.Right;
                    break;
            }
            //复制垂直对齐
            switch (xCell.VerticalAlignment)
            {
                case VerticalAlignType.Bottom:
                    wCell.CellFormat.VerticalAlignment = VerticalAlignment.Bottom;
                    break;
                case VerticalAlignType.Center:
                    wCell.CellFormat.VerticalAlignment = VerticalAlignment.Middle;
                    break;
                case VerticalAlignType.Top:
                    wCell.CellFormat.VerticalAlignment = VerticalAlignment.Top;
                    break;
            }
        }
    }
}

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Imports Spire.Xls

Namespace ConvertExcelToWord
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())

            '加载一个示例 Excel 文件
            Dim workbook As Workbook = New Workbook()
            workbook.LoadFromFile("企业经营数据表.xlsx")

            '获取特定的工作表
            Dim sheet As Worksheet = workbook.Worksheets(0)

            '创建一个 Document 对象
            Dim doc As Document = New Document()
            Dim section As Section = doc.AddSection()
            section.PageSetup.Orientation = PageOrientation.Landscape

            '添加一个表格
            Dim table As Table = section.AddTable(True)
            table.ResetCells(sheet.LastRow, sheet.LastColumn)

            '合并单元格
            Program.MergeCells(sheet, table)

            For r As Integer = 1 To sheet.LastRow
                '设置行高
                table.Rows(r - 1).Height = CSng(sheet.Rows(r - 1).RowHeight)

                For c As Integer = 1 To sheet.LastColumn
                    Dim xCell As CellRange = sheet.Range(r, c)
                    Dim wCell As TableCell = table.Rows(r - 1).Cells(c - 1)

                    '将数据从 Excel 导出到 Word 表格
                    Dim textRange As TextRange = wCell.AddParagraph().AppendText(xCell.NumberText)

                    '将字体和单元格样式从 Excel 复制到 Word
                    Program.CopyStyle(textRange, xCell, wCell)
                Next
            Next

            '将文档保存到 Word 文件
            doc.SaveToFile("导出到Word.docx", Spire.Doc.FileFormat.Docx)
        End Sub
        '合并单元格（如果有）
        Private Shared Sub MergeCells(ByVal sheet As Worksheet, ByVal table As Table)
            If sheet.HasMergedCells Then
                '从 Excel 获取合并的单元格范围
                Dim ranges As CellRange() = sheet.MergedCells

                '合并Word表格中对应的单元格
                For i = 0 To ranges.Length - 1
                    Dim startRow As Integer = ranges(i).Row
                    Dim startColumn As Integer = ranges(i).Column
                    Dim rowCount As Integer = ranges(i).RowCount
                    Dim columnCount As Integer = ranges(i).ColumnCount
                    If rowCount > 1 AndAlso columnCount > 1 Then
                        For j = startRow To startRow + rowCount
                            table.ApplyHorizontalMerge(j - 1, startColumn - 1, startColumn - 1 + columnCount - 1)
                        Next
                        table.ApplyVerticalMerge(startColumn - 1, startRow - 1, startRow - 1 + rowCount - 1)
                    End If
                    If rowCount > 1 AndAlso columnCount = 1 Then
                        table.ApplyVerticalMerge(startColumn - 1, startRow - 1, startRow - 1 + rowCount - 1)
                    End If
                    If columnCount > 1 AndAlso rowCount = 1 Then
                        table.ApplyHorizontalMerge(startRow - 1, startColumn - 1, startColumn - 1 + columnCount - 1)
                    End If
                Next
            End If
        End Sub

        '将Excel的单元格样式复制到Word表格
        Private Shared Sub CopyStyle(ByVal wTextRange As TextRange, ByVal xCell As CellRange, ByVal wCell As TableCell)
            '复制字体样式
            wTextRange.CharacterFormat.TextColor = xCell.Style.Font.Color
            wTextRange.CharacterFormat.FontSize = CSng(xCell.Style.Font.Size)
            wTextRange.CharacterFormat.FontName = xCell.Style.Font.FontName
            wTextRange.CharacterFormat.Bold = xCell.Style.Font.IsBold
            wTextRange.CharacterFormat.Italic = xCell.Style.Font.IsItalic
            '复制背景色
            wCell.CellFormat.BackColor = xCell.Style.Color
            '复制水平对齐
            Select Case xCell.HorizontalAlignment
                Case HorizontalAlignType.Left
                    wTextRange.OwnerParagraph.Format.HorizontalAlignment = HorizontalAlignment.Left
                Case HorizontalAlignType.Center
                    wTextRange.OwnerParagraph.Format.HorizontalAlignment = HorizontalAlignment.Center
                Case HorizontalAlignType.Right
                    wTextRange.OwnerParagraph.Format.HorizontalAlignment = HorizontalAlignment.Right
            End Select
            '复制垂直对齐
            Select Case xCell.VerticalAlignment
                Case VerticalAlignType.Bottom
                    wCell.CellFormat.VerticalAlignment = VerticalAlignment.Bottom
                Case VerticalAlignType.Center
                    wCell.CellFormat.VerticalAlignment = VerticalAlignment.Middle
                Case VerticalAlignType.Top
                    wCell.CellFormat.VerticalAlignment = VerticalAlignment.Top
            End Select
        End Sub
    End Class
End Namespace

PM> Install-Package Spire.PDF

using Spire.Pdf;
using Spire.Pdf.AutomaticFields;
using Spire.Pdf.Graphics;
using System.Drawing;


namespace AddPageNumbers
{
    class Program
    {
        static void Main(string[] args)
        {
            //初始化 PdfDocument 类的实例
            PdfDocument pdf = new PdfDocument();

            //加载示例文档
            pdf.LoadFromFile("示例文档.pdf");

            //设置页码字体样式
            PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("宋体", 10f, FontStyle.Regular), true);

            //初始化 PdfPageNumberField 类的实例
            PdfPageNumberField pageNumber = new PdfPageNumberField();

            //初始化PdfPageCountField 类的实例
            PdfPageCountField pageCount = new PdfPageCountField();

            //初始化PdfCompositeField 类的实例
            PdfCompositeField compositeField = new PdfCompositeField(font, PdfBrushes.Black, "第{0}页，共{1}页", pageNumber, pageCount);
            //设置复合字段的文本对齐方式
            compositeField.StringFormat = new PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Top);

            //循环遍历页面
            for (int i = 0; i < pdf.Pages.Count; i++)
            {
                //在页面的特定位置绘制复合字段
                compositeField.Draw(pdf.Pages[i].Canvas, pdf.Pages[i].Size.Width / 4 - 20, pdf.Pages[i].Size.Height / 2- 20);
            }

            //保存结果文档
            pdf.SaveToFile("添加页码.pdf");
        }
    }
}

Imports Spire.Pdf
Imports Spire.Pdf.AutomaticFields
Imports Spire.Pdf.Graphics

Namespace AddPageNumbers
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '初始化 PdfDocument 类的实例
            Dim pdf As PdfDocument = New PdfDocument()

            '加载示例文档
            pdf.LoadFromFile("示例文档.pdf")

            '设置页码字体样式
            Dim font As PdfTrueTypeFont = New PdfTrueTypeFont(New Font("宋体", 10F, FontStyle.Regular), True)

            '初始化 PdfPageNumberField 类的实例
            Dim pageNumber As PdfPageNumberField = New PdfPageNumberField()

            '初始化PdfPageCountField 类的实例
            Dim pageCount As PdfPageCountField = New PdfPageCountField()

            '初始化PdfCompositeField 类的实例
            Dim compositeField As PdfCompositeField = New PdfCompositeField(font, PdfBrushes.Black, "第{0}页，共{1}页", pageNumber, pageCount)
            '设置复合字段的文本对齐方式
            compositeField.StringFormat = New PdfStringFormat(PdfTextAlignment.Left, PdfVerticalAlignment.Top)

            '循环遍历页面
            For i As Integer = 0 To pdf.Pages.Count - 1
                '在页面的特定位置绘制复合字段
                compositeField.Draw(pdf.Pages(i).Canvas, pdf.Pages(i).Size.Width / 4 - 20, pdf.Pages(i).Size.Height / 2 - 20)
            Next

            '保存结果文档
            pdf.SaveToFile("添加页码.pdf")
        End Sub
    End Class
End Namespace