Vielen Dank im voraus
--
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de
"Gabriele Plüschke" <gabriele....@web.de>
Bezug: news:39e1bdab$1...@netnews.web.de...
> Habe ein Formular in Word97 erstellt und möchte ein
> Dropdown-Formularfeld eintragen. Mein Eintrag ist
> jedoch länger als das vorgegebene Dropdown-Feld.
> Wie kann ich die vorgegebene Länge des Dropdown-
> Formularfeldes verlängern, da der Text dann einfach
> abgeschnitten wird?
das Verhalten ist in einem Artikel in der Microsoft Knowledge Base
beschrieben. Dort findest du auch eine Umgehungsmöglichkeit beschrieben:
WD97: Use Textbox Form Control to WorkAround 255 Character Limit [Q159261]
http://support.microsoft.com/support/kb/articles/q159/2/61.asp
Lass uns bitte wissen, wenn du weitere Hilfe benötigst.
--
Schöne Grüße Thomas Löwe [Microsoft MVP Word]
Bitte alle Supportanfragen in die Newsgroup stellen.
Microsoft KB: englisch: http://support.microsoft.com/support/search/
Microsoft KB: deutsch : http://search.microsoft.com/germany/supportkb
> Habe ein Formular in Word97 erstellt und möchte ein Dropdown-Formularfeld
> eintragen. Mein Eintrag ist jedoch länger als das vorgegebene Dropdown-Feld.
> Wie kann ich die vorgegebene Länge des Dropdown-Formularfeldes verlängern, da der
> Text dann einfach abgeschnitten wird?
>
Du kannst die Breite dieses Felds eigentlich nicht beeinflussen. Als Workaround
würde ich in Betracht ziehen, mit einem "Verlassen" Makro den vollen Text in ein
Textformularfeld einzutragen.
Der Benutzer wählt also einen "kurz Text" aus. Beim Verlassen des Dropdowns wird er
volle Text wird in das Textformularfeld eingetragen, und am Schluss wird einen
Eintrag im Dropdown gewählt, der nur einen Leerschlag beinhaltet (so dass das
Dropdown fast verschwindet).
Beispiel:
Sub DDTextEintragen()
Dim doc As Word.Document
Dim fldLongDrop As Word.DropDown
Set doc = ActiveDocument
Set fldLongDrop = doc.FormFields("Dropdown1").DropDown
With doc.FormFields("Text1")
Select Case fldLongDrop.Value
Case 1
.Result = "Der lange Text, der im Dropdown keinen Platz hat."
Case 2
.Result = "Noch ein langer Text, den man in diesem Textbox statt im
dropdown anzeigt"
Case Else
.Result = "Unbekannte Auswahl"
End Select
End With
End Sub
Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister
http://go.compuserve.com/MSOfficeForum
Rückfragen & Antworten nur in der Newsgroup, bitte!
Sein Vorschlag hat auch mit Deinem Problem gar nichts zu
tun...
> >erst einmal Danke, die Lösung habe ich aber unter
> >microsoft.com/germany - Microsoft GmbH nicht gefunden.
>
Cindy Meister