Automati c Word Do c Завершение из Excel

Question

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

Я пытаюсь составить цитату документ, в котором мы можем автоматически заполнять некоторые поля (они будут спецификациями продукта) на основе выбора опции в списке. До сих пор я создал свой выпадающий список и заполнил его двумя вариантами. Затем я создал 4 «спецификации», которые я хочу заполнить, и создал элемент управления контентом для каждого.

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

Sub chillerdatafromexcel()

Dim xlApp As Object
Dim xlbook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open("C:\Users\chris.garratt\Documents\Chiller Options.xlsx")
'Set xlbook.Sheets = ThisDocument.SelectContentControlsByTitle("Chiller Supplier")
ActiveDocument.SelectContentControlsByTitle("MaxCoolingPwr").Item(1).PlaceholderText = xlbook.Sheets(ActiveDocument.SelectContentControlsByTitle("Chiller Supplier").Item(1).Range).Cells(2, 2)

    End Sub

Пример слова Лист Excel

Любые идеи приветствуются. Я долгое время не занимался текстовым кодированием / написанием сценариев, поэтому не стесняйтесь, если вы не согласны.

Заранее спасибо.

Крис

Answer 1

Спасибо всем за ваш вклад. macropod, я уверен, что эти ссылки окажутся очень полезными, когда я продолжу этот проект.

Я потратил некоторое время на работу над этим вчера, прежде чем пришли ответы, и мне удалось его взломать (Это удивительно что будет делать уход и возвращение с парой глаз * fre sh).

В конце я остановился на этом:

Sub chillerdatafromexcel()
Dim xlApp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Sheets
Dim X As Integer
Dim ChillerOpt As String
Dim Offset As Integer

    Set xlApp = CreateObject("Excel.Application")
    Set xlbook = xlApp.Workbooks.Open(ActiveDocument.Path & "\Chiller Options.xlsx")
    Offset = ThisDocument.SelectContentControlsByTitle("Chiller Supplier").Count
    ChillerOpt = ThisDocument.SelectContentControlsByTitle("Chiller Supplier").Item(1).Range


    For X = (Offset + 1) To (Offset + 4)

        ThisDocument.ContentControls(X).Range = xlbook.Sheets(ChillerOpt).Cells(X, 2)

    Next X

    xlbook.Close
    xlApp.Quit

End Sub

У меня есть несколько дополнительных переменных в там будет актуально, когда я использую эту функцию в контексте более крупного документа. Я собирался сделать его максимально гибким. Избегать жесткого кодирования. У меня есть 4 ячейки в таблице, которую я хочу добавить, отсюда диапазон X.

Спасибо за вашу помощь.

Крис

Answer 2

См .:

• http://www.msofficeforums.com/word-vba/16330-how-import-list-excel-into-drop-down.html#post46287

Другие, которые могут оказаться полезными:

Зависит от выпадающего списка Элементы управления содержимым

• http://www.msofficeforums.com/word-vba/24661-help-cascading-dropdown-list.html#post77762

Иерархические элементы управления раскрывающимся содержимым

• http://www.msofficeforums.com/word-vba/29617-creating-reducing-drop-down-list.html#post94603

Зависимые элементы управления содержимым текста

• http://www.msofficeforums.com/word-vba/16498-multiple-entries-dropdown-lists.html#post46903
• http://www.msofficeforums.com/word-vba/16498-multiple-entries-dropdown-lists-5.html#post120392

Контроль содержимого и условное форматирование поля формы

• http://www.msofficeforums.com/word-vba/16505-change-color-according-dropdown-selection.html#post47254

Создание и учет взаимоисключающих элементов управления флажками

• http://www.msofficeforums.com/word-tables/12335-assigning-values-content-control-checkboxes-calculating-results.html#post33489
• http://www.msofficeforums.com/word-tables/33248-content-control-checkbox-calculations.html#post107008

Добавление новой строки в таблицу в документе с элементами управления содержимым:

• http://www.msofficeforums.com/word-vba/27809-code-add-new-row-table.html#post87989
• http://www.msofficeforums.com/word-vba/13955-macro-add-row-table-word-form.html#post38461
• https://www.msofficeforums.com/word-vba/43603-multiple-dependent-dropdown-lists-table-add-new.html#post145675