使用 VBA 将 Excel 文字导入到 Word 中，具体如下：在当前打开的excel中（不用新建excel），如果第3列第1个单元格中有“Y”，则将第一列对应单元格输出到新建的word中，添加换行符后对第3列第2个单元格进行上面的操作，直至第二列第100个单元格；新建的word不保存和关闭。

好的，这是一个比较典型的 VBA 操作，以下是具体的代码实现：

Sub ExportToWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelSheet As Worksheet
    Dim excelRange As Range
    Dim i As Integer, j As Integer
    Set excelSheet = ActiveSheet
    Set wordApp = CreateObject("Word.Application")
    Set wordDoc = wordApp.Documents.Add
    wordApp.Visible = True
    For i = 1 To 100
        If excelSheet.Cells(i, 3).Value = "Y" Then
            For j = 1 To 2
                Set excelRange = excelSheet.Cells(i, j)
                wordApp.Selection.TypeText excelRange.Value
                wordApp.Selection.TypeParagraph
            Next j
        End If
    Next i
    wordApp.Selection.EndKey 6
    wordDoc.Close False
    wordApp.Quit
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set excelRange = Nothing
    Set excelSheet = Nothing
End Sub

解释一下代码的具体实现过程：

1. 定义了四个对象变量：`wordApp` 为 Word 应用程序对象，`wordDoc` 为 Word 文档对象，`excelSheet` 为当前激活的 Excel 工作表对象，`excelRange` 为选中的 Excel 单元格对象。

2. 使用 `CreateObject` 函数创建 Word 应用程序对象，并且将其赋值给 `wordApp` 对象变量。另外，使用 `Documents.Add` 方法创建新的 Word 文档，并将其赋值给 `wordDoc` 对象变量。

3. 使用 `For...Next` 循环遍历 Excel 表格中的每一行（共 100 行），对于每一行，判断第 3 列第 1 个单元格的值是否为 “Y”，如果是，则继续进行下一步操作。

4. 对于每一行，使用嵌套的 `For...Next` 循环遍历该行的前两列，对于每一个单元格，使用 `TypeText` 方法将其值输出到 Word 文档中，然后使用 `TypeParagraph` 方法添加一个换行符。

5. 循环结束后，使用 `EndKey` 方法将光标移动到文档末尾，然后使用 `Close` 方法关闭 Word 文档，并且不保存修改。最后，使用 `Quit` 方法关闭 Word 应用程序。

6. 将所有对象变量赋值为 `Nothing`，释放内存。

需要注意的是，以上代码中的 `CreateObject` 函数会创建一个新的 Word 应用程序实例，并且在代码执行完毕后不会自动关闭。如果需要关闭该应用程序，需要使用 `Quit` 方法。同时，如果需要在代码执行完毕后关闭新建的 Word 文档，需要将 `Close` 方法的参数设置为 `False`，否则会提示是否保存修改。