smirnvlad
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
макрос
Код:
Sub SyncContentControlByValue(Src As ContentControl, Dest As ContentControl)
Dim SrcT As String
Dim SrcV As String
Dim ccLE As ContentControlListEntry
SrcT = Src.Range.Text
For i = 1 To Src.DropdownListEntries.Count
If SrcT = Src.DropdownListEntries.Item(i).Text Then
SrcV = Src.DropdownListEntries.Item(i).Value
For k = 1 To Dest.DropdownListEntries.Count
If Dest.DropdownListEntries.Item(k).Value = SrcV Then
Dest.DropdownListEntries.Item(k).Select
Exit Sub
End If
Next
' Если не найден выбираем первый
Dest.DropdownListEntries.Item(1).Select
End If
Next
End Sub
|
процедура его запускающая по выходу из "Исполнителя"
Код:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim ccI As ContentControl
Dim ccK As ContentControl
Set ccI = ActiveDocument.SelectContentControlsByTag("исполнитель").Item(1)
Set ccK = ActiveDocument.SelectContentControlsByTag("код исполнителя").Item(1)
Select Case ContentControl.Tag
Case "исполнитель":
SyncContentControlByValue ccI, ccK
Case "код исполнителя":
SyncContentControlByValue ccK, ccI
End Select
End Sub
|
|
Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 20:54 26-04-2011 | Исправлено: smirnvlad, 21:01 26-04-2011 |
|
