Word to nie jest aplikacja, którą znam na tyle, aby podsunąć optymalne rozwiązanie Twojego problemu.
W module ThisDocument wklej poniższy kod:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Me.ContentControls(2).Range.Text = Me.ContentControls(1).Range.Text
End Sub
O ile indexy (w nawiasie) będą prawidłowe to po wyborze i wyjściu z formantu (listy) dane powinny się zaktualizować. |