在WORD文档中怎样用一个下拉菜单动态控制另一个下拉菜单的内容？

mgzbs · 发表于 2016-10-2 08:54

在WORD中怎样用一个下拉菜单动态控制另一个下拉菜单的内容？

duquancai · 发表于 2016-10-2 17:54

需要实例化，需要附件支撑，你就描述，让别人来帮你模拟附件吗？

mgzbs · 发表于 2016-10-3 09:07

duquancai 发表于 2016-10-2 17:54
需要实例化，需要附件支撑，你就描述，让别人来帮你模拟附件吗？

老师这是附件，给看一下吧，谢谢

duquancai · 发表于 2016-10-3 13:08

本帖最后由 duquancai 于 2016-10-3 13:28 编辑

mgzbs 发表于 2016-10-3 09:07
老师这是附件，给看一下吧，谢谢

代码放入ThisDocument中,详见附件》》》》》》》》》》

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim c As Cell
On Error Resume Next
With ThisDocument.ContentControls(1)
.DropdownListEntries.Clear
For Each c In ActiveDocument.Tables(1).Columns(1).Cells
.DropdownListEntries.Add Split(c.Range, Chr(13))(0)
Next
End With
With ThisDocument
For i = 3 To 6
.ContentControls(i).DropdownListEntries.Clear
Next
.ContentControls(8).DropdownListEntries.Clear
For Each c In ActiveDocument.Tables(1).Columns(1).Cells
If .ContentControls(1).Range.Text = Split(c.Range, Chr(13))(0) Then
.ContentControls(3).DropdownListEntries.Add Split(c.Row.Cells(2).Range, Chr(13))(0)
.ContentControls(4).DropdownListEntries.Add Split(c.Row.Cells(3).Range, Chr(13))(0)
.ContentControls(5).DropdownListEntries.Add Split(c.Row.Cells(3).Range, Chr(13))(0)
.ContentControls(6).DropdownListEntries.Add Split(c.Row.Cells(1).Range, Chr(13))(0)
.ContentControls(8).DropdownListEntries.Add Split(c.Row.Cells(2).Range, Chr(13))(0)
End If
Next
End With
End Sub

复制代码

mgzbs · 发表于 2016-10-3 15:04

本帖最后由 mgzbs 于 2016-10-3 15:05 编辑

duquancai 发表于 2016-10-3 13:08
代码放入ThisDocument中,详见附件》》》》》》》》》》

老师：还是不行，不是我要的，我现在给你发个例子，你看一下

老师，我的编程不太懂，所有希望您给耐心完成一下，谢谢

mgzbs · 发表于 2016-10-3 15:08

刚我试了一下您做好的表，好像不点一下它不自动更新

mgzbs · 发表于 2016-10-3 16:00

duquancai 发表于 2016-10-3 13:08
代码放入ThisDocument中,详见附件》》》》》》》》》》

我用的是office2007

		自动登录	找回密码
密码			免费注册