# 安裝 Excel 處理組件
pip install Spire.XLS
# 安裝 Word 處理組件
pip install Spire.Doc

from spire.doc import Document, AutoFitBehaviorType, FileFormat, DefaultTableStyle
from spire.xls import Workbook

# 指定輸入與輸出的文件路徑
excel_file = "/示例文檔.xlsx"
word_file = "/ExcelDataToWord.docx"

# 創(chuàng)建 Workbook 實例并加載 Excel 文件
workbook = Workbook()
workbook.LoadFromFile(excel_file)

# 獲取第一個工作表以及已使用的單元格范圍
sheet = workbook.Worksheets.get_Item(0)
allocatedRange = sheet.AllocatedRange

# 創(chuàng)建 Document 實例用于生成 Word 文檔
doc = Document()
section = doc.AddSection()
table = section.AddTable()

# 根據(jù) Excel 的實際行數(shù)與列數(shù)，重置 Word 表格的行列結(jié)構(gòu)
table.ResetCells(allocatedRange.RowCount, allocatedRange.ColumnCount)

# 遍歷已使用范圍的每一行和每一列進行數(shù)據(jù)填充
for rowIndex in range(allocatedRange.RowCount):
    for colIndex in range(allocatedRange.ColumnCount):
        # 定位 Word 目標(biāo)單元格并添加段落
        cell = table.Rows.get_Item(rowIndex).Cells.get_Item(colIndex)
        paragraph = cell.AddParagraph()
        
        # 提取 Excel 單元格的格式化文本并追加至 Word
        textRange = paragraph.AppendText(allocatedRange.get_Item(rowIndex + 1, colIndex + 1).NumberText)
        textRange.CharacterFormat.FontName = "HarmonyOS Sans SC"

# 自動調(diào)整表格寬度以適應(yīng)窗口，并應(yīng)用內(nèi)置表格樣式
table.AutoFit(AutoFitBehaviorType.AutoFitToWindow)
table.ApplyStyle(DefaultTableStyle.GridTable1LightAccent6)

# 保存修改后的結(jié)果文檔并釋放資源
doc.SaveToFile(word_file, FileFormat.Docx2019)
doc.Dispose()
workbook.Dispose()

from spire.xls import Workbook, HorizontalAlignType, ExcelPatternType, VerticalAlignType
from spire.doc import Document, Color, HorizontalAlignment, VerticalAlignment, PageOrientation, FileFormat

def MergeCells(worksheet, wordTable):
    # 檢查 Excel 中是否存在合并單元格
    if not worksheet.HasMergedCells:
        return
    for cell_range in worksheet.MergedCells:
        start_row, start_col = cell_range.Row, cell_range.Column
        row_count, col_count = cell_range.RowCount, cell_range.ColumnCount
        
        # 處理水平合并
        if col_count > 1:
            for row in range(start_row, start_row + row_count):
                wordTable.ApplyHorizontalMerge(row - 1, start_col - 1, start_col - 1 + col_count - 1)
        # 處理垂直合并
        if row_count > 1:
            wordTable.ApplyVerticalMerge(start_col - 1, start_row - 1, start_row - 1 + row_count - 1)

def CopyFormatting(tableTextRange, excelCell, wordCell):
    # 復(fù)制字體樣式及顏色
    font = excelCell.Style.Font
    tableTextRange.CharacterFormat.TextColor = Color.FromRgb(font.Color.R, font.Color.G, font.Color.B)
    tableTextRange.CharacterFormat.FontSize = float(font.Size)
    tableTextRange.CharacterFormat.FontName = font.FontName
    tableTextRange.CharacterFormat.Bold = font.IsBold
    tableTextRange.CharacterFormat.Italic = font.IsItalic
    
    # 復(fù)制背景顏色
    if excelCell.Style.FillPattern != ExcelPatternType.none:
        wordCell.CellFormat.BackColor = Color.FromRgb(excelCell.Style.Color.R, excelCell.Style.Color.G, excelCell.Style.Color.B)
    
    # 映射并復(fù)制水平對齊方式
    hAlignMap = {
        HorizontalAlignType.Left: HorizontalAlignment.Left,
        HorizontalAlignType.Center: HorizontalAlignment.Center,
        HorizontalAlignType.Right: HorizontalAlignment.Right
    }
    if excelCell.HorizontalAlignment in hAlignMap:
        tableTextRange.OwnerParagraph.Format.HorizontalAlignment = hAlignMap[excelCell.HorizontalAlignment]
        
    # 映射并復(fù)制垂直對齊方式
    vAlignMap = {
        VerticalAlignType.Top: VerticalAlignment.Top,
        VerticalAlignType.Center: VerticalAlignment.Middle,
        VerticalAlignType.Bottom: VerticalAlignment.Bottom
    }
    if excelCell.VerticalAlignment in vAlignMap:
        wordCell.CellFormat.VerticalAlignment = vAlignMap[excelCell.VerticalAlignment]

# 指定輸入與輸出文件名
excelFileName = "/示例文檔.xlsx"
wordFileName = "/ExcelDataFormatToWord.docx"

workbook = Workbook()
workbook.LoadFromFile(excelFileName)
sheet = workbook.Worksheets.get_Item(0)

doc = Document()
section = doc.AddSection()
section.PageSetup.Orientation = PageOrientation.Landscape  # 寬表格推薦使用橫向排版

table = section.AddTable()
table.ResetCells(sheet.LastRow, sheet.LastColumn)

# 在填充數(shù)據(jù)前，先執(zhí)行單元格合并處理
MergeCells(sheet, table)

# 循環(huán)填充數(shù)據(jù)并復(fù)制格式
for r in range(1, sheet.LastRow + 1):
    tableRow = table.Rows.get_Item(r - 1)
    tableRow.Height = float(sheet.Rows.get_Item(r - 1).RowHeight)  # 同步原表格行高
    for c in range(1, sheet.LastColumn + 1):
        eCell = sheet.Range.get_Item(r, c)
        wCell = table.Rows.get_Item(r - 1).Cells.get_Item(c - 1)
        
        textRange = wCell.AddParagraph().AppendText(eCell.NumberText)
        CopyFormatting(textRange, eCell, wCell)

doc.SaveToFile(wordFileName, FileFormat.Docx2019)
doc.Dispose()
workbook.Dispose()

from spire.doc import Document, DocPicture, FileFormat, OleObjectType
from spire.xls import Workbook

# 指定路徑與文件名
excelFileName = "示例文檔.xlsx"
wordFileName = "/ExcelOleToWord.docx"
tempImageName = "SheetImage.png"

# 創(chuàng)建 Workbook 實例并在后臺將工作表轉(zhuǎn)換為圖片
workbook = Workbook()
workbook.LoadFromFile(excelFileName)
sheet = workbook.Worksheets.get_Item(0)
sheet.ToImage(1, 1, sheet.LastRow, sheet.LastColumn).Save(tempImageName)

# 創(chuàng)建 Document 實例并構(gòu)建 Word 主體框架
doc = Document()
section = doc.AddSection()
paragraph = section.AddParagraph()

# 加載生成的圖片作為 OLE 對象的顯示封面
pic = DocPicture(doc)
pic.LoadImage(tempImageName)

# 調(diào)整圖片寬度使其自適應(yīng) Word 頁面的正文區(qū)域?qū)挾?
pic.Width = section.PageSetup.PageSize.Width - section.PageSetup.Margins.Left - section.PageSetup.Margins.Right

# 將 Excel 文件作為 OLE 對象插入到 Word 段落中，并綁定封面圖
ole = paragraph.AppendOleObject(excelFileName, pic, OleObjectType.ExcelWorksheet)
ole.DisplayAsIcon = False  # 設(shè)置為不以冰冷的圖標(biāo)顯示，而是直接展示表格圖像

# 保存修改后的結(jié)果文檔并釋放資源
doc.SaveToFile(wordFileName, FileFormat.Docx2019)
workbook.Dispose()
doc.Dispose()