Moj predlog je da se koristi samo jedan Combo box a da ponovljeni izbor bude bookmark koji bi se popunjavao na osnovu izbora iz combo box-a.
1/ Kreiraš na odgovarajućem mestu u dokumentu combo box sa listom za izbor, nazvimo ga cmbCyrilic
2/ Kreiraš na odgovarajućem mestu u dokumentu bookmark bkmDuplo. Bitno je da ovaj bookmark bude "enclosed". Unesi neki tekst (npr. default iz combo) i onda obeleži ceo tekst. (Popunjavanje teksta u placeholder bookmark je drugačije nego što je ovde navedeno
Bookmark in VBA)
3/ Unesi sledeći kod na događaj OnExit Combo boxa.
Code:
Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
' Događaj se dešava kod izlasak iz bilo koje kontent kontrole
Dim rngDuplo As Word.Range
If CC.Title = "cmbCyrilic" Then ' Ispituje da li je odgovarajući combo
Set rngDuplo = ActiveDocument.Bookmarks("bkmDuplo").Range
' Umesto starog postavlja novi tekst u bookmark - enclosing bookmark
rngDuplo.Text = CC.Range.Text
' Ponovo se kreira bookmark jer je obrisan
ActiveDocument.Bookmarks.Add Name:="bkmDuplo", Range:=rngDuplo
End If
End Sub
Obrati pažnju da izmena teksta briše bookmark, pa mora da se ponovo kreira u kodu.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?