Tekst plaatsen als checkbox is checked

[pookie62]

Hoi,

Heb een probleem waar ik niet verder mee kom.
Heb een sjabloon met 30 criteria, onderverdeeld in A1 tot A9, dan B1 tot B6 enzo verder. Elk item heeft zijn eigen omschrijving.
Uit deze 30 worden maximaal 9 criteria gekozen en verderop in en tabel gezet (de omschrijving)
Dit wil ik automatiseren door checkboxes bij elk A1 A2 enz te zetten en wanneer aangevinkt de omschrijvende tekst teplaatsen in de tabel. Heb nu de volgende code maar het gevoel dat ik niet op de goede weg zit.

Dim orange As Range 
Set orange = ActiveDocument.Bookmarks("A1").Range 
If chkA1.Value = True Then 
With orange.Font 
.Hidden = False 
End With 
With ActiveWindow.View 
.ShowHiddenText = False 
.ShowAll = False 
End With 
Else 
With orange.Font 
.Hidden = True 
End With 
With ActiveWindow.View 
.ShowHiddenText = False 
.ShowAll = False 
End With 
End If 
End Sub

Hoe kan ik dit het beste aanpakken ?
Moet ik voor elke checkbox deze code maken ?
Hoe "weet" de code wanneer in de verzamel tabel wanneer op de volgende regel geschreven moet worden (omdat er al een omschrijving op regel 1 in de tabel staat?)
Hoop dat iemand zin en tijd heeft om me hiermee te helpen..
Alvast dank !

 

[Axel Hagg]

Tekstplaatsen als checkbox is checked

Dag Pookie62,

Ik weet niet wat jouw formules uitwerken maar zo zou het kunnen.


Private Sub TekstPlaatsen()
Dim Orange As Range
Dim i As Integer
Dim v As Boolean

For i = 1 To 9
v = Not Choose(i, Check1, Check2, Check3, Check4, Check5, Check6, Check7, Check8, Check9).Value
Set Orange = ActiveDocument.Bookmarks(Choose(i, "A1", "A2", "A3", "A4", "A5", "A6", "A7", "A8", "A9")).Range
Orange.Font.Hidden = v
ActiveWindow.View.ShowHiddenText = v
ActiveWindow.View.ShowAll = v
Next
End Sub

 

[pookie62]

Hoi Axel,
Heb het inmiddels over een andere boeg gegooid. Heb nu een userform (Criteria) gemaakt met tabbladen en de verschillende items daarop.
Checkboxes heten chk1 t/m chk36
Labels heten lbl1 t/m lbl36
Nu is het de bedoeling dat wanneer ik een item aanvink, dat de omschrijving in een tabel geschreven wordt.Heb in de eerste cel van die tabel een bookmark gemaakt (cel1) waar begonnen moet worden met wegschrijven.
Heb hiervoor de volgende code, maar er gebeurt niks...
help...?

Private Sub Selectieknop_Click()
Load Criteria
    Criteria.Show
For i = 1 To 36
  If Criteria.Controls("chk" & i) = True Then
    ActiveDocument.TypeText Criteria.Controls("lbl" & i).Caption
    Selection.GoTo What:=wdGoToBookmark, Name:="cel1"
    Selection.MoveDown Unit:=wdLine, Count:=1
  End If
Next i
End Sub

 

[Axel Hagg]

Checkbox Checked

Dag Pookie62,

Zo kan het ook. Maar met "chk" & i kun je geen controls aanduiden. Gebruik daarom

For each f in UserForm1.Controls

Zie bijgaand document. Open dit en probeer het.

Dat vergeet ik nog: Geef de Tag van elke Checkbox hetzelfde nummer als de Checkbox. Dat werkt gemakkelijker dan telkens het getal van de Checkbox af te leiden.