 Lid |
|
Hoi,
Ik heb op dit moment een probleem met een Word document, waar een VBA code achter schuil moet gaan.
De bedoeling van het document is een soort van Checklist maken, die stap voor stap moet doorlopen worden.
Dit document zal worden gebruikt door onze HR dienst, die bij de aanwerving van een nieuwe medewerker, een aantal documenten moet afdrukken.
Ik heb dus een lijst gemaakt, waar ActiveX Checkboxes aan toegevoegd zijn.
Deze controls heb ik toegevoegd met behulp van de Control Toolbox Toolbar in Word 2003.
Ik heb tevens ook een CommandButton toegevoegd, onderaan het document.
Nu wil ik het klaarspelen dat, wanneer iemand de CommandButton aanklikt, er een macro gestart wordt die
alle geselecteerde Checkboxes gaat afdrukken, in de juiste volgorde (top - down).
De Checkboxes zijn uiteraard zo opgebouwd dat de Caption van deze controls de juiste Hyperlink bevat.
Mijn idee was om als volgt te werken:
For Each <control> in ThisDocument
If <control type> = "Checkbox" Then
If <control value> = True Then
Print Document to Default Printer
End If
End If
Next <control>
Ik krijg het echter niet voor elkaar.
Kan iemand me op weg helpen? Ik zou dit zéér op prijs stellen.
Het is een vrij dringende vraag, omdat ik het klaar moet hebben voor aanstaande woensdag.
Google heeft me niet verder geholpen.
EDIT: Problem Solved:
Met wat hulp heb ik het als volgt klaargespeeld:
Private Sub CommandButtonPrint_Click()
For Each cb In ActiveDocument.InlineShapes
If TypeName(cb.OLEFormat.Object) = "CheckBox" Then
If cb.OLEFormat.Object.value=true then Application.PrintOut , , , , , , , , , , , , cb.OLEFormat.Object.Caption
End If
Next
End Sub
Private Sub CommandButtonPrint_Click() For Each cb In ActiveDocument.InlineShapes If TypeName(cb.OLEFormat.Object) = "CheckBox" Then If cb.OLEFormat.Object.value=true then Application.PrintOut , , , , , , , , , , , , cb.OLEFormat.Object.Caption End If Next End Sub
|
Wat is jouw favoriete javascript framework? (S: 18, R: 2)
Gesponsorde links
Actiefste leden van de maand
