在 Word 中填充依赖下拉列表时出错

Question

我使用了这个代码：

 <code><span>Sub PopulateddState()</span>
    <code><span> Select Case ActiveDocument.FormFields("ddRegion").Result</span>
    <code><span> Case "North"</span>
    <code><span> With ActiveDocument.FormFields     ("ddState").DropDown.ListEntries</span>
    <code><span> .Clear</span>
    <code><span> .Add "Michigan"</span>
    <code><span> .Add "Ohio"</span>
    <code><span> End With</span>
    <code><span> Case "South"</span>
    <code><span> With ActiveDocument.FormFields   ("ddState").DropDown.ListEntries</span>
    <code><span> .Clear</span>
    <code><span> .Add "Georgia"</span>
    <code><span> .Add "Texas"</span>
    <code><span> End With</span>
    <code><span> Case "East"</span>
    <code><span> With ActiveDocument.FormFields  ("ddState").DropDown.ListEntries</span>
    <code><span> .Clear</span>
    <code><span> .Add "New York"</span>
    <code><span> .Add "Maine"</span>
    <code><span> End With</span>
    <code><span> Case "West"</span>
    <code><span> With ActiveDocument.FormFields("ddState").DropDown.ListEntries</span>
    <code><span> .Clear</span>
    <code><span> .Add "California"</span>
    <code><span> .Add "Oregon"</span>
    <code><span> End With</span>
    <code><span> End Select</span>
    <code><span> End Sub</span>`

来自这个网站：https://www.techrepublic.com/blog/windows-and-office/how-to-populate-a-dependent-dropdown-list-in-word/

每次我尝试将其输入 VBE 时，它都会说：

expected line number or statement or end of statement

我做错了什么？

Answer 1

你的代码适合我，但我倾向于使用：

Sub PopulateStates()
Dim FmFldList As ListEntries
With ActiveDocument
  Set FmFldList = .FormFields("ddState").DropDown.ListEntries
  Select Case .FormFields("ddRegion").Result
    Case "North"
      With FmFldList
        .Clear
        .Add "Michigan"
        .Add "Ohio"
      End With
    Case "South"
      With FmFldList
        .Clear
        .Add "Georgia"
        .Add "Texas"
      End With
    Case "East"
      With FmFldList
        .Clear
        .Add "New York"
        .Add "Maine"
      End With
    Case "West"
      With FmFldList
        .Clear
        .Add "California"
        .Add "Oregon"
      End With
  End Select
End With
End Sub

PS：发布代码时请select代码使用工具栏上的{}符号，而不是您自己的标记。

在 Word 中填充依赖下拉列表时出错

Error while populating a dependent dropdown list in Word

vba

ms-word

vbe