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

在调用Excel对象之前，必须引用Microsoft Excel对象库您可以按照需要的方式进一步自定义此代码（创建更多段落对象，为其添加格式等等）

从Excel电子表格自动生成条件Word文档？

1 个答案: