Tekstvak met conditionele opmaak

[madref]

Ik ben aan het stoeien met een beveiligd formulier.
Ik heb een keuzelijst aangemaakt met daar in 3 opties (Niks, Optie 1 en Optie 2).
Ik wil het nu zo maken dat alleen bij optie 1 de tekst vet wordt opgemaakt.

Maar ja hoe doe ik dat?
Bekijk bijlage Patientenlijst Web.zip

 

[OctaFish]

Een niet overdreven sjieke, maar werkbare oplossing:

Sub KeuzeVet()
    
    ActiveDocument.Unprotect
    ActiveDocument.FormFields("Dropdown1").Select
    Select Case ActiveDocument.FormFields("Dropdown1").Result
    Case "Optie 1"
        Selection.Font.Bold = True
    Case Else
        Selection.Font.Bold = False
    End Select
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
    
End Sub

Deze macro roep je aan bij de <Bij Verlaten van Veld> keuzelijst.

 

[madref]

Je raad het misschien al, maar is dit eventueel ook toepasbaar met 30 van dit soort velden?
Of moet ik dan 30 verschillende procedures maken?

 

[OctaFish]

Je kunt een lus maken die door de controls heen wandelt, en ze stuk voor stuk controleert. Of je daar wat aan hebt is nog maar de vraag, want zoals je in dit voorbeeld ziet, wordt letterlijk naar de tekst "Optie 1" gezocht. En 30 keuzelijsten met dezelfde keuzelijsten zul je wel niet hebben; ik vermoed althans dat je in elke keuzelijst wel iets anders wilt controleren. En dat lukt dus op deze manier niet. Hoe en of het wel kan, kunnen we allen beoordelen als we een beter document hebben.