從Excel電子表格中自動生成條件Word文檔？

Question

我想要Word從電子表格（Excel）中獲取數據並檢查每個單元格的值。如果它的價值是一個特定的一個，那麼Word會呈現（打印，放入，不管你喜歡稱之爲什麼）相應的段落。

我一直在谷歌搜索幾個小時，無濟於事。據我所知，我需要的是一個向後的，有條件的郵件合併單詞;一些程序可以從本質上布爾值生成一個段落。

Answer 1

你是正在尋找這樣的事情：

Option Explicit 

Sub Test_ExcelCalcFromWord() 

Dim oExcel      As Excel.Application 
Dim oBook      As Excel.Workbook 

Dim sString      As String 
Dim oParagraph     As Word.Paragraph 


Set oExcel = CreateObject("Excel.application") 
Set oBook = oExcel.Workbooks.Open("U:/Book1.xlsx") 
oExcel.Visible = True 

sString = oBook.Sheets("Errors").Range("A1") 

If sString = "Haha" Then 
    Set oParagraph = ThisDocument.Content.Paragraphs.Add 
    oParagraph.Range.Text = sString 
End If 

End Sub 

你必須引用Microsoft Excel對象庫，然後才能調用Excel對象。
您可以按照需要進一步自定義此代碼（創建更多的段落對象，爲其添加格式等...）