Question

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

我将突出显示（选择）Word文档中的一些文本
我按下按钮
然后将文本复制并粘贴到我的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对象库。

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

1 个答案: