Dropdown: alle Eintraege drucken und max. Eintragslaenge aendern
Andreas zum Winkel
ich habe 3 Wuensche an Dropdown-Felder in einem Word2000-Formular:
1. Ich moechte (zur Uebersicht) das Formular so ausdrucken, dass mit
jedem Dropdown-Feld *alle* optionalen Eintraege ausgedruckt werden.
2. Ich moechte die Anzahl der maximalen Zeichen pro Eintrag selber
festlegen.
3. Das Dropdown-Feld soll mehr als 25 Elemente beinhalten. (Loesung
bereits gefunden unter Microsoft Knowledge Base Article 198561)
TIA
Andreas
Cindy M -WordMVP-
Du wirst das KB Artikel auch für (2) einsetzen müssen, da
Dropdown-Formularfelder keine Begrenzungs- (bzw. Erweiterungs-)
Einstellungen für die Anzahl Zeichen haben.
Ich kann mir auch nicht ganz vorstellen, wie Du das mit (1) meinst.
Eine "aufgeklappte" Liste kann man nicht drucken. Ein Makro könnte
wohl die Elemente aus einem nicht gesicherten Formular lesen, aber es
stellt sich die Frage, wo auf der Seite diese erscheinen sollen? Evtl.
ein zusätzliches Blatt mit einer Tabelle der Feldnamen + Einträge?
Cindy Meister
Autor von: Microsoft Word. Das Profibuch (MS Press)
INTER-Solutions, Switzerland
http://www.mvps.org/word
http://homepage.swissonline.ch/cindymeister
http://go.compuserve.com/MSOfficeForum
Rückfragen & Antworten nur in der Newsgroup, bitte!
Andreas zum Winkel
> Ich kann mir auch nicht ganz vorstellen, wie Du das mit (1) meinst.
> Eine "aufgeklappte" Liste kann man nicht drucken. Ein Makro könnte
> wohl die Elemente aus einem nicht gesicherten Formular lesen, aber es
> stellt sich die Frage, wo auf der Seite diese erscheinen sollen? Evtl.
> ein zusätzliches Blatt mit einer Tabelle der Feldnamen + Einträge?
Ja, das waere z.B. eine Moeglichkeit. Hintergrund ist folgender:
Schueler erhalten ihre korrigierte Deutsch-Klausur mit einem
(formalisierten) Beurteilungsbogen zurück.
Bsp.: Du hast dich mit der Kurzgeschichte ... sehr
gruendlich/kenntnisreich/umfassend/gruendlich/nur teilweise
gruendlich/knapp/nur eher punktuell auseinander gesetzt und seine
Aussageabsichten dabei voll/sehr gut/gut/weitgehend/im Kern/nicht
immer ueberzeugend/kaum/nicht ausreichend erfasst.
Die Eintraege sollten am besten in dieser Form ausgegeben werden; als
Tabelle auf einem seperaten Blatt ginge es auch.
TIA
Andreas
Cindy M -WordMVP-
> > Ich kann mir auch nicht ganz vorstellen, wie Du das mit (1) meinst.
> > Eine "aufgeklappte" Liste kann man nicht drucken. Ein Makro könnte
> > wohl die Elemente aus einem nicht gesicherten Formular lesen, aber es
> > stellt sich die Frage, wo auf der Seite diese erscheinen sollen? Evtl.
> > ein zusätzliches Blatt mit einer Tabelle der Feldnamen + Einträge?
>
> Ja, das waere z.B. eine Moeglichkeit.
>
Hier ist ein wenig Beispielcode, um Dir weiterzuhelfen
Sub AlleDropdownEintraegeListen()
Dim doc As Word.Document
Dim ffld As Word.FormField
Dim rng As Word.Range
Dim tbl As Word.Table
Dim szListe As String
Dim i As Long
Set doc = ActiveDocument
For Each ffld In doc.FormFields
If ffld.Type = wdFieldFormDropDown Then
szListe = szListe & ffld.Name & vbTab
For i = 1 To ffld.DropDown.ListEntries.Count
szListe = szListe & _
ffld.DropDown.ListEntries(i).Name & "|"
Next i
szListe = szListe & vbCr
End If
Next ffld
If Len(szListe) > 0 Then
If doc.ProtectionType <> wdNoProtection Then _
doc.Unprotect
szListe = "Feldname" & vbTab & "Feldeinträge" & _
vbCr & szListe
Set rng = doc.Range
rng.Collapse wdCollapseEnd
rng.InsertBreak wdPageBreak
rng.Collapse wdCollapseEnd
rng.Text = szListe
Set tbl = rng.ConvertToTable(Separator:=vbTab, _
NumColumns:=2)
tbl.Range.Find.Execute FindText:="|", _
ReplaceWith:=Chr$(11), Replace:=wdReplaceAll
tbl.Rows(1).Range.Font.Bold = True
doc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End If
End Sub
Andreas zum Winkel
great! Vielen Dank!!
Andreas
Cindy M -WordMVP- <C.Mei...@hispeed.ch> wrote in message news:<VA.00008c78.01025bb5@speedy>...