|
Hallo zusammen,
ich habe es mit unten stehendem VBA-Code (MS Office 2010) zu tun und möchte dort, dass im Dialogfenster die Checkbox vor "Mustermann" standardmäßig aktiviert ist. Wie mache ich das?
Bei WordBasic.teiln1.Value = -1 bekomme ich den Fehler 'Objekt erforderlich', bei CheckBox("teiln1").Value = True einen Fehler beim Kompilieren und bei WordBasic.CheckBox("teiln1").Value = True ungültige Parameterzahl. Kann jemand helfen? Vielen Dank!
Public Sub buero()
Dim nt
Dim schaltfläche
Dim y
Dim i
Dim Ende
Dim Zeile
Dim abw
Dim z
Dim k
Dim m
Dim protokoll_am
Dim naechste
Dim oFFld As FormFields
Selection.GoTo what:=wdGoToBookmark, Name:="art"
Selection.InsertAfter ("Buerobesprechung")
Selection.Font.Bold = wdToggle
nt = 2
ReDim abc__$(nt)
abc__$(1) = "Mustermann"
ReDim teiln__(nt)
Selection.GoTo what:=wdGoToBookmark, Name:="anwesend"
WordBasic.BeginDialog 840, 550, "Microsoft Word"
WordBasic.TextBox 447, 23, 160, 18, "Textfeld1"
WordBasic.Text 40, 50, 310, 13, "Bitte die anwesenden Teilnehmer ankreuzen:", "Text2"
WordBasic.Text 40, 27, 394, 13, "Bitte geben Sie das Datum der Besprechung ein:", "Text1"
WordBasic.PushButton 517, 97, 88, 21, "Alle"
WordBasic.CancelButton 517, 160, 88, 21
WordBasic.OKButton 517, 203, 88, 21
WordBasic.CheckBox 82, 85, 180, 16, abc__$(1), "teiln1"
WordBasic.EndDialog
|