Excel VBA скопировать и вставить выделенный текст из слова

Question

Мне нужна кнопка макроса на листе Excel, которая:

1. Я выделю (выделю) некоторый текст в текстовом документе

2. Я нажимаю кнопку

3. , затем текст копируется и вставляется в указанную ячейку моего листа Excel

Я пробовал:

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

Во-первых, я не знаю, является ли objword правильным синтаксисом, и, во-вторых, каждый раз, когда я выбираю текст в слове, я не могу нажать на Excel без отмены выбора текста, так как я смогу это сделать?Нужно ли создавать макрос в слове?

Спасибо

Answer 1

Следующий код (требующий ссылки на библиотеку объектов Microsoft Word xx), работающий в Excel, извлекает текущий выбор в 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.