Sub 將數值套用到Word表格()
'宣告 Word.Application 和 Word.Document 對象
Dim wordApp As Object
Dim wordDoc As Object
'嘗試獲取現有的 Word.Application 實例
On Error Resume Next
Set wordApp = GetObject(, "Word.Application")
On Error GoTo 0
'如果 Word.Application 實例不存在，則創建一個新實例
If wordApp Is Nothing Then
Set wordApp = CreateObject("Word.Application")
End If
'打開 Word 文件
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open("C:\Users\USER\Desktop\EXCEL轉WORD用(XXX).docx") ' 替換為你的 Word 文件路徑
'將 Excel 數值套用到 Word 表格中的第一個表格
Dim excelSheet As Worksheet
Set excelSheet = ThisWorkbook.Sheets("工作表1") ' 替換為你的 Excel 工作表名稱
'從 Excel 中獲取數值
Dim valueToApply As Variant
valueToApply = excelSheet.Range("A3").Value
wordDoc.Tables(1).Cell(5, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C3").Value
wordDoc.Tables(1).Cell(5, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D3").Value
wordDoc.Tables(1).Cell(5, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E3").Value
wordDoc.Tables(1).Cell(5, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A5").Value
wordDoc.Tables(1).Cell(6, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C5").Value
wordDoc.Tables(1).Cell(6, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D5").Value
wordDoc.Tables(1).Cell(6, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E5").Value
wordDoc.Tables(1).Cell(6, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A7").Value
wordDoc.Tables(1).Cell(7, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C7").Value
wordDoc.Tables(1).Cell(7, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D7").Value
wordDoc.Tables(1).Cell(7, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E7").Value
wordDoc.Tables(1).Cell(7, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A9").Value
wordDoc.Tables(1).Cell(8, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C9").Value
wordDoc.Tables(1).Cell(8, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D9").Value
wordDoc.Tables(1).Cell(8, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E9").Value
wordDoc.Tables(1).Cell(8, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A11").Value
wordDoc.Tables(1).Cell(9,1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C11").Value
wordDoc.Tables(1).Cell(9, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D11").Value
wordDoc.Tables(1).Cell(9, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E11").Value
wordDoc.Tables(1).Cell(9, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A13").Value
wordDoc.Tables(1).Cell(10, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C13").Value
wordDoc.Tables(1).Cell(10, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D13").Value
wordDoc.Tables(1).Cell(10, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E13").Value
wordDoc.Tables(1).Cell(10, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A15").Value
wordDoc.Tables(1).Cell(11, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C15").Value
wordDoc.Tables(1).Cell(11, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D15").Value
wordDoc.Tables(1).Cell(11, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E15").Value
wordDoc.Tables(1).Cell(11, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A17").Value
wordDoc.Tables(1).Cell(12, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C17").Value
wordDoc.Tables(1).Cell(12, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D17").Value
wordDoc.Tables(1).Cell(12, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E17").Value
wordDoc.Tables(1).Cell(12, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A19").Value
wordDoc.Tables(1).Cell(13, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C19").Value
wordDoc.Tables(1).Cell(13, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D19").Value
wordDoc.Tables(1).Cell(13, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E19").Value
wordDoc.Tables(1).Cell(13, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A21").Value
wordDoc.Tables(1).Cell(14, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C21").Value
wordDoc.Tables(1).Cell(14, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D21").Value
wordDoc.Tables(1).Cell(14, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E21").Value
wordDoc.Tables(1).Cell(14, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A23").Value
wordDoc.Tables(1).Cell(15, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C23").Value
wordDoc.Tables(1).Cell(15, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D23").Value
wordDoc.Tables(1).Cell(15, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E23").Value
wordDoc.Tables(1).Cell(15, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A25").Value
wordDoc.Tables(1).Cell(16, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C25").Value
wordDoc.Tables(1).Cell(16, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D25").Value
wordDoc.Tables(1).Cell(16, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E25").Value
wordDoc.Tables(1).Cell(16, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A27").Value
wordDoc.Tables(1).Cell(17, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C27").Value
wordDoc.Tables(1).Cell(17, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D27").Value
wordDoc.Tables(1).Cell(17, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E27").Value
wordDoc.Tables(1).Cell(17, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A29").Value
wordDoc.Tables(1).Cell(18, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C29").Value
wordDoc.Tables(1).Cell(18, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D29").Value
wordDoc.Tables(1).Cell(18, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E29").Value
wordDoc.Tables(1).Cell(18, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A31").Value
wordDoc.Tables(1).Cell(19, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C31").Value
wordDoc.Tables(1).Cell(19, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D31").Value
wordDoc.Tables(1).Cell(19, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E31").Value
wordDoc.Tables(1).Cell(19, 5).Range.Text = valueToApply
valueToApply = excelSheet.Range("A33").Value
wordDoc.Tables(1).Cell(24, 1).Range.Text = valueToApply
valueToApply = excelSheet.Range("C33").Value
wordDoc.Tables(1).Cell(24, 3).Range.Text = valueToApply
valueToApply = excelSheet.Range("D13").Value
wordDoc.Tables(1).Cell(24, 4).Range.Text = valueToApply
valueToApply = excelSheet.Range("E33").Value
wordDoc.Tables(1).Cell(24, 5).Range.Text = valueToApply
Set wordApp = Nothing
End Sub
我有大致上寫了一下，土法煉鋼的方式，但我表格只有15行，數據有18行，但是再來我就不會寫了，
請教各位高手，幫幫忙，需要加入什麼，才可以到下一頁，拜託各位高手了。
