#excel #vba #ms-word #set
Вопрос:
Я пытаюсь добавить данные из электронной таблицы Excel в документ Word в Office 365 и получаю ошибку 450 во время выполнения (Неправильное количество аргументов или недопустимое назначение свойств). Ошибка возникает там, где я поместил стрелку Set wdApp . Откроется документ word, фактически шаблон, и нужный текст будет вставлен в закладку в документе Word.
Sub Welcome() MsgBox "Welcome to Math Worksheet Creator." Dim NumberofQuestions As Integer NumberofQuestions = InputBox("How many questions do want to create? You may select up to 50.") If NumberofQuestions gt; 50 Then MsgBox "You cannot select more than 50 questions." NumberofQuestions = InputBox("Please select a maximum of 50 questions.") End If 'Open a Word Template. Dim wdApp As Word.Application **--gt;Set wdApp = CreateObject("Word.Application")** With wdApp .Visible = True .Activate .Documents.Add "C:UsersMarkDesktopVBA-PythonWorksheet Template.docm" End With Range("L4").Copy wdApp.Selection.GoTo wdGoToBookmark, , , "MathQuestion" wdApp.Selection.Paste With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="MathQuestion" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub Комментарии:
1.
Set wdApp = New Word.Application.2. Неплохой первый пост (по стандартам первого поста). Вы проделали отличную работу, сформулировав свой вопрос. Дружеское предложение, используйте заголовок, описывающий ваш вопрос, чтобы другие, ищущие похожие проблемы, могли найти его. Удачи
3. (я вижу, что Брэкс только что изменил это, но операция все равно должна знать).