Combination of 2 types of dropdown list content control

[elaineada75]

Can anyone advise me how to combine 2 dropdown list: 1 dropdown list with conditional content, another dropdown list with bookmarks. The below code cannot work and the row was cut away after updating the 2nd dropdown list.

Thanks.



Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)Application.ScreenUpdating = False
Dim i As Long, StrDetails As String


'Dropdown list 1


With ContentControl
If .Title = "NameofCompany" Then
For i = 1 To .DropdownListEntries.Count
If .DropdownListEntries(i).Text = .Range.Text Then
StrDetails = .DropdownListEntries(i).Value
Exit For
End If
Next
If StrDetails = "" Then StrDetails = "||"
With ActiveDocument.SelectContentControlsByTitle("Address")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(0)
.LockContents = True
End With
With ActiveDocument.SelectContentControlsByTitle("Owner")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(1)
.LockContents = True
End With
End If
End With
Application.ScreenUpdating = True

'dropdown list 2 - with bookmark


Case ContentControl.Title
Case "EditableC"
Select Case ContentControl.Range.Text
Case "YES": InsertBB_atBookmarkRange_Range "bmEditable", "EditableYesPara"
Case "NO": InsertBB_atBookmarkRange_Range "bmEditable", "EditableNoPara"
Case Else: InsertBB_atBookmarkRange_Range "bmEditable"
End Select
End Select
lbl_Exit:
Exit Sub



End Sub

[elaineada75]

Hi I have made adjustment to insert autotext instead of building blocks, but i still could not get it right. Can anyone tell me what is wrong with my code? The 2nd dropdown list not able to update the bookmark. May i know what is wrong here? Any help is appreciated. Thanks.


Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Application.ScreenUpdating = False
Dim i As Long, StrDetails As String

With ContentControl
If .Title = "NameofCompany" Then
For i = 1 To .DropdownListEntries.Count
If .DropdownListEntries(i).Text = .Range.Text Then
StrDetails = .DropdownListEntries(i).Value
Exit For
End If
Next
If StrDetails = "" Then StrDetails = "||"
With ActiveDocument.SelectContentControlsByTitle("Address")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(0)
.LockContents = True
End With
With ActiveDocument.SelectContentControlsByTitle("Owner")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(1)
.LockContents = True
End With

If .Title = "EditableC" Then
Select Case ContentControl.Title
Case "YES": Call InsertAutoTextEntry
Case Else: Call InsertAutoTextEntryNo

End Select

End If
End If

End With


Application.ScreenUpdating = True
End Sub

Sub InsertAutoTextEntry()

Dim rngDoc1 As Range

Set rngDoc1 = ActiveDocument.Range.Bookmarks("bmEditable").Range
ActiveDocument.AttachedTemplate.AutoTextEntries("EditableYes").Insert _
Where:=rngDoc1, RichText:=True

End Sub

Sub InsertAutoTextEntryNo()

Dim rngDoc1 As Range

Set rngDoc1 = ActiveDocument.Range.Bookmarks("bmEditable").Range
ActiveDocument.AttachedTemplate.AutoTextEntries("EditableNo").Insert _
Where:=rngDoc1, RichText:=True

End Sub

[gmaxey]

The content control title is either "NameofCompany" or "EditableC" It can't be both.

[elaineada75]

I have 2 content control, one is dropdown list (NameofCompany) and the other one is a checkbox (EditableC).
How to merge these 2 together in the macro?
Sorry i am still trying very hard to learn to write macro in words. It is very different in excel.
Thanks a lot.

[gmaxey]

You have an event:
Document_ContentControlOnExit

It fires when you exit a document content control.

In that event, you have and If ... End If Statement.

You have told your macro to do something "IF" the Content Control title is "NameofCompany".

If the title isn't "NameofCompany" then the event does nothing e.g., it completely ignores the part of your code associated with "EditableC"

That is what you have programmed the event to do.

If you want to process both CCs then something like this:

Select Case ContentControl.Title
Case "NameofCompany"
Do this
Case "EditableC"
Do something else
End Select

[elaineada75]

Hi Hi
I somehow got it work, but when i add it another condition for the checkbox, it stops working.
Where did i get it wrong?
Pl help me. Thanks a lot.


Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)

Application.ScreenUpdating = False
Dim i As Long, StrDetails As String

Dim oRng As Range

With ContentControl


If .Title = "NameofCompany" Then
For i = 1 To .DropdownListEntries.Count
If .DropdownListEntries(i).Text = .Range.Text Then
StrDetails = .DropdownListEntries(i).Value
Exit For
End If
Next
If StrDetails = "" Then StrDetails = "||"
With ActiveDocument.SelectContentControlsByTitle("Address")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(0)
.LockContents = True
End With
With ActiveDocument.SelectContentControlsByTitle("Owner1")(1)
.LockContents = False
.Range.Text = Split(StrDetails, "|")(1)
.LockContents = True
End With
End If

End With

Set oRng = ActiveDocument.Bookmarks("bmEditSch").Range
Set iRng = ActiveDocument.Bookmarks("bmEditAut").Range

If ContentControl.Tag = "Checkbox1" Then
If ContentControl.Checked = True Then
If ActiveDocument.ContentControls("Owner1") = Sch Then
oRng.Font.Hidden = False
iRng.Font.Hidden = True
Else
oRng.Font.Hidden = True
iRng.Font.Hidden = False
End If
End If
End If



ActiveDocument.Fields.Update
Application.ScreenUpdating = True

End Sub

[gmaxey]

ActiveDocument.SelectContentControlsByTitle("Owner1").Item(1).Range.Text = "Sch" Then

[elaineada75]

Thanks so much, really appreciate it! It works!