Блог

Я пытаюсь создать выпадающий список в документе Word, который создается с использованием шаблона (все это делается нажатием кнопки в access). При запуске кода он останавливается на строке для создания выпадающего списка и выдает следующую ошибку:

Ошибка времени выполнения ‘445’: объект не поддерживает это действие

Я сузил проблему до этой строки:

Установите doc = oWord .Документы.Добавить(strWordTemplate)

Выпадающий список не вызывает проблем, когда ‘strWordTemplate’ удаляется из ‘Add ()’. Это дает мне только пустой документ с выпадающим списком. Как я могу поместить выпадающий список в документ, созданный с помощью шаблона?

strWordTemplate — это расположение файла для шаблона календаря для word. templatePath — это глобальная строковая константа, в которой хранятся шаблоны word. В идеале я бы разместил один и тот же выпадающий список (одинаковые значения) в каждой ячейке календаря, но я хочу выяснить, как сначала отобразить шаблон и выпадающий список в одном документе

 Public Sub MakeCalendar()
Dim strWordTemplate As String
Dim oWord As Object
Dim doc As Word.Document

    'Open a Word Doc With the Template
    Set oWord = CreateObject("Word.application")
    oWord.Visible = False
    oWord.DisplayAlerts = False

    strWordTemplate = TemplatePath amp; "Calendar.dot"
    Set doc = oWord.Documents.Add(strWordTemplate) 'template is added here

    doc.ContentControls.Add wdContentControlDropdownList 'having the template added causes this line to fail

    'Show the Word Doc
    oWord.DisplayAlerts = True
    oWord.Visible = True

End Sub
  

Попробовал ваш (измененный) код из Excel, поскольку я считаю себя нулевым в Access (точнее, я использовал для запуска из Access). это работает, и надежда решит вашу проблему, как показано ниже

и код является самообследовательным

 Public Sub MakeCalendar()
Dim strWordTemplate As String
Dim oWord As Object
Dim doc As Word.Document

Dim TemplatePath As String
Dim Tbl As Table, cl As Cell, Rw As Row
'Modify/Delete to your requirement, but take care that last slash ("") is in place in the path
'it is the most probable cause of error in your code
'It in first place it failed to open the template, but does not give alerts
'as DisplayAlerts set to false and then gives eroor 424 on next line
TemplatePath = "C:usersuserdesktop"

    'Open a Word Doc With the Template
    Set oWord = CreateObject("Word.application")
    oWord.Visible = True                     ' modify to your choice
    oWord.DisplayAlerts = True               ' modify to your choice

    strWordTemplate = TemplatePath amp; "Calendar.dotx"
    Set doc = oWord.Documents.Add(strWordTemplate) 'template is added here
    Set Tbl = doc.Tables(1)                      ' Modify to your requirement

    For Each Rw In doc.Tables(1).Rows
    For Each cl In Rw.Cells
    cl.Range.ContentControls.Add wdContentControlDropdownList
    Next cl
    Next Rw
     ' Or use your original code
    'doc.ContentControls.Add wdContentControlDropdownList 'having the template added causes this line to fail

    'Show the Word Doc
    oWord.DisplayAlerts = True
    oWord.Visible = True

End Sub