Excel VBA - 将组合框插入 MS Word

如何解决Excel VBA - 将组合框插入 MS Word

我有一个 Excel 工作簿，用于创建一个表格并将该表格导出到 MS Word。我的客户现在还想在单词表的最后一列中插入一个下拉列表。我找不到这方面的任何材料。可以做到吗？我想创建一个组合框并将其插入到“解释”列中的每个单元格中。有人能指出我正确的方向或提供一些示例代码吗？

当前代码：

>>> 1/10**323.1
Traceback (most recent call last):
  File "<pyshell#21>",line 1,in <module>
    1/10**323.1
OverflowError: (34,'Result too large')

解决方法

我能够让它与下面的代码一起工作。感谢那些建议我研究 ContentControl 的人。

现在我间歇性地收到“运行时错误 462。远程服务器计算机不存在或不可用。”

待完全解决后，我会在此处更新 cooment。

    
    'Copy table data to word doc
    Set tbl = rng 'ThisWorkbook.Sheets("UI").Range("A4:H25")
    tbl.Copy

    'Paste Table into Word doc
    wrdDoc.Paragraphs(1).Range.PasteExcelTable _
                         LinkedToExcel:=False,_
                         WordFormatting:=False,_
                        RTF:=False
                           
    'Autofit table to Word doc
    Set Wordtable = wrdDoc.Tables(1)
    Wordtable.AutoFitBehavior (wdAutoFitWindow)
    Dim oRow As Row
    'Dim oRng As Range
     'Loop through last table column and add Combobox
     
With Wordtable
    For Each oRow In Wordtable.Rows
        'Set oRng = oRow.Cells(1).Range
        If Len(oRow.Cells(7).Range.Text) > 11 Then
            Set objCC = ActiveDocument.ContentControls.Add(wdContentControlDropdownList,oRow.Cells(8).Range)
            objCC.Title = "Interpretation"
            If objCC.ShowingPlaceholderText Then
            objCC.SetPlaceholderText,"-Select-"
            objCC.DropdownListEntries.Add "Far Below Expectaions"
            objCC.DropdownListEntries.Add "Below Expectaions"
            objCC.DropdownListEntries.Add "Slightly Below Expectaions"
            objCC.DropdownListEntries.Add "Significant Difference"
            objCC.DropdownListEntries.Add "Valid"
            objCC.DropdownListEntries.Add "WNL"
            Debug.Print Len(oRow.Cells(7).Range.Text)
            
            End If
        Else
        End If
    Next
End With