У меня возникла ошибка: ожидается конец Sub при написании макроса для передачи данных из Excel в Word

Question

Не могли бы вы мне помочь.

У меня ошибка при написании макроса для передачи данных из Excel в Word.Макрос:

    Private Sub CommandButton1_Click()
       Sub CopyToWord()

        Dim objWord As New Word.Application
        Range("A1:B10").Copy

        With objWord
            .Documents.Add
            .Selection.Paste
            .Visible = True
        End With

    End Sub
 End Sub

и ошибка

Ошибка компиляции: Ожидаемый конец Sub

Я не знаю, в чем проблема, так как я не пропущен End sub.

Пожалуйста, руководство Спасибо.

Answer 1

Код, который вы пытаетесь использовать, требует Microsoft Word 16.0 Object Library (или любой другой номер версии), без него вы получите user-defined type not defined).Вместо этого просто используйте позднюю привязку (где вместо Object вы объявляете objWord, тогда Set it:

Private Sub CommandButton1_Click()

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

Range("A1:B10").Copy

With objWord
    .Documents.Add
    .Selection.Paste
    .Visible = True
End With

Set objWord = Nothing

End Sub