Excel VBA复制并粘贴单词中的选定文本

Question

我想在我的Excel工作表上使用一个宏按钮：

1. 我将在Word文档中突出显示（选择）一些文本

2. 我按下按钮

3. 然后将文本复制并粘贴到我的Excel工作表中的指定单元格中

我努力了：

sub paste()
    objword.selection.copy range("B2")
End sub

首先，我不知道objword是否是正确的语法，其次，每次我选择单词中的文本时，如果不取消选择文本，就无法单击excel，那么我将如何做到这一点？ 我必须用字创建宏吗？

谢谢

Answer 1

在Excel中运行的以下代码（需要对Microsoft Word xx对象库的引用）将获取Word中的当前选择并将文本复制到A1中：

Sub paste()
    Dim oWd As Word.Application
    Set oWd = GetObject(, "Word.Application")
    ActiveSheet.Cells(1, 1) = oWd.Selection
    Set oWd = Nothing
End Sub

同样，以下是相反的含义，即可以在Word中运行的代码将Word中的选择内容发送给Excel：

Sub paste()
    Dim oXL As Excel.Application
    Set oXL = GetObject(, "Excel.Application")
    oXL.ActiveSheet.Cells(1, 1) = Selection.Text
    Set oXL = Nothing
End Sub

这需要对Microsoft Excel xx对象库的引用。