Hey Greg.
Diving into this code you posted right now.
I'm not expecting you to do anything for me, but I'd appreciate few hints.
This first macro you posted:
Code:
Option Explicit
Private Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
Dim arrData() As String
Dim lngIndex As Long
Select Case oCC.Title
Case "Name"
If Not oCC.ShowingPlaceholderText Then
'Determine which dropdown list entry was selected. Note: The object model has no direct way to do this.
For lngIndex = 1 To oCC.DropdownListEntries.Count
If oCC.Range.Text = oCC.DropdownListEntries.Item(lngIndex) Then
'Get the data from the CC value property.
arrData = Split(oCC.DropdownListEntries.Item(lngIndex).Value, "|")
Exit For
End If
Next lngIndex
'Use that date fill in the transposed name and fill the dependent fields.
With oCC
.Type = wdContentControlText
.Range.Text = arrData(0)
.Type = wdContentControlDropdownList
End With
'In the Excel data, "~" is used to define linebreaks in the address column. Replace with linebreaks.
ActiveDocument.SelectContentControlsByTitle("Address").Item(1).Range.Text = Replace(arrData(1), "~", Chr(11))
ActiveDocument.SelectContentControlsByTitle("Phone Number").Item(1).Range.Text = arrData(2)
Else
'Reset the dependent CCs.
ActiveDocument.SelectContentControlsByTitle("Address").Item(1).Range.Text = vbNullString
ActiveDocument.SelectContentControlsByTitle("Phone Number").Item(1).Range.Text = vbNullString
End If
Case Else
End Select
lbl_Exit:
Exit Sub
End Sub
What does it actually do??
At the moment I've added main content control (formatted text) (person's registration number) (column "B" in the excel sheet)) to the .docm file and I think the next step is to connect this content control with the column "B" in the excel sheet.
It looks like this now - sorry but my Office 2010 is Polish version.
What is the next step I should do??