是否可以使用 VBA 将变量从 MS Word 传递到 Excel？

Question

我有一种情况，我需要通过宏将变量从 Word 传递到 Excel。推理有点复杂，但基本上我想以此作为创建自定义索引的一种方式。我指出，以防可能有更简单的方法来创建索引。此特定索引是根据在其中找到单词或短语的段落而不是页码创建的。在 Word 中似乎没有办法做到这一点。

所以，我想突出显示单词或短语，按我的宏组合（或添加右键单击菜单项来执行此操作）将突出显示的文本分配给一个变量，然后将其发送到三个打开的​​工作表之一（那里将是索引的 3 个部分）并将其添加到电子表格的底行。从那里我需要按字母顺序排列列表并将所有相同的短语合并到一个单元格中。

我知道如何将项目从 Excel 发送到 Word，但是当我尝试研究从 Word 发送到 Excel 的想法时，我只能找到 Excel 从 Word 中检索某些内容并将其返回到 Excel 的示例。这不适用于我正在做的事情。将有数千个索引条目（在我合并它们之前）。

如果不能直接从 Word 转到 Excel，那么我想我可以将选定的文本发送到另一个文档，但我还是不知道该怎么做。

请帮忙！

Answer 1

我不明白您为什么需要从 Word 中使用 Excel，但我准备了一段代码来向您展示如何（轻松）访问 Excel 对象并使用其对象：

Sub testWorkingInExcel()
 Dim objEx As Excel.Application, wb As Excel.Workbook, W As Excel.Workbook, sh As Excel.Worksheet
 Dim lastEmptyRow As Long, boolFound As Boolean
 
 On Error Resume Next
 Set objEx = GetObject(, "Excel.Application") 'find Excel open session if any
  If Err.Number <> 0 Then
    Err.Clear: On Error GoTo 0
    Set objEx = CreateObject("Excel.Application")
    Set wb = objEx.Workbooks.Open("Workbook full name")
  Else
    For Each W In objEx.Workbooks
        If W.Name = "Needed workbook" Then
            Set wb = W: boolFound = True: Exit Sub
        End If
    Next
    If Not boolFound Then Set wb = objEx.Workbooks.Open("Workbook full name")
  End If
 On Error GoTo 0
 Set sh = wb.Worksheets("NeededSheet")
 lastEmptyRow = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
 'Now, you have the last empty row of the needed page and you can do
 'whatever you could do directly in Excel...
End Sub