Excel VBA для создания нумерованного списка в Word

Я пытаюсь использовать код VBA в Excel для создания нумерованного списка в документе Word.

Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Add With wrdDoc For i = 0 To 5 .Content.InsertAfter ("Paragraph " & i) .Content.InsertParagraphAfter Next .Paragraphs(1).Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _ False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _ wdWord10ListBehavior End With Set wrdApp = Nothing Set wrdDoc = Nothing 

Когда я запускаю это, я получаю сообщение об ошибке:

Метод «ApplyListTemplateWithLevel» объекта «ListFormat» не выполнен

Я проверил Microsoft Word 12.0 Object Library в списке ссылок Excel VBA.

Хорошо, я нашел проблему. Я удалился в машину друзей, чтобы проверить. Я получил ту же ошибку, что и вы, если были открыты другие текстовые документы. Если никакие другие текстовые документы не открыты, ваш код просто отлично работает.

Попробуйте этот код. Он задерживается приложением Word, поэтому вам не нужна ссылка для добавления.

 Sub Sample() Dim oWordApp As Object, oWordDoc As Object '~~> Establish an Word application object On Error Resume Next Set oWordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set oWordApp = CreateObject("Word.Application") End If Err.Clear On Error GoTo 0 oWordApp.Visible = True Set oWordDoc = oWordApp.Documents.Add With oWordDoc For i = 0 To 5 .Content.InsertAfter ("Paragraph " & i) .Content.InsertParagraphAfter Next DoEvents .Paragraphs(1).Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _ ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _ False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _ wdWord10ListBehavior End With Set oWordApp = Nothing Set oWordDoc = Nothing End Sub 
  • Кроссовер Access / Excel: следует ли прикреплять таблицы к записям
  • Как я читаю привязки данных для Excel ListObject
  • Есть ли способ разработать собственный SmartArt?
  • Excel Добавить в разработку
  • Ошибка регистрации VBA excel Команда пакетной обработки
  • Скрытие листа в Excel 2007 (с паролем) ИЛИ скрыть код VBA в Excel
  • Разделите вкладку «Разбор» в VBA
  • Сравните даты двух ячеек в excel
  • Когда csv-файл сохраняется как обычный текст, он будет генерировать «» между каждой ячейкой excel
  • Версия файлов Word и Excel
  • Вернуть Excel окно на передний план
  • Давайте будем гением компьютера.