Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

2 combo boxa, ista lista, ponovljen izbor

[es] :: Office :: Word :: 2 combo boxa, ista lista, ponovljen izbor

[ Pregleda: 1312 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

rajan21

Član broj: 19238
Poruke: 75
*.dynamic.sbb.rs.



+3 Profil

icon 2 combo boxa, ista lista, ponovljen izbor12.08.2015. u 17:51 - pre 59 meseci
U dokumentu su mi potrebna dva combo box-a, koja imaju istu listu.


Izbor koji se načini u prvom boxu, treba ponoviti i u drugom.


Postoji li mogućnost da se izvede automatizacija u smislu > stavka koju sam izabrao u prvom combo-u neka odmah bude postavljena i u drugom?




Hvala unapred!
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2140
212.200.121.*

Sajt: www.gowi.rs


+83 Profil

icon Re: 2 combo boxa, ista lista, ponovljen izbor13.08.2015. u 08:56 - pre 59 meseci
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?
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Word :: 2 combo boxa, ista lista, ponovljen izbor

[ Pregleda: 1312 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.