Office: Dynamische Schriftgröße + MakroProblem

Hi Leute!

Ich hab mal wieder ein etwas längeres Problem.
Und zwar soll ich ein Formular erstellen das versch. Textformularfelder hat.

Man soll nur in diese Felder schreiben können und diese sind auch beschränkt.
Das bekomm ich auch mit hilfe der Dokumentschützenfunktion und Textformularfeldlänge beschränken auch hin.

Jetzt wollte ich
1. das man nicht einfach eine neue Zeile anfangen kann in einem Textfeld, da sich sonst das ganze Dokument verschiebt. Dafür hab ich mir ein Makro geholt das die Enter Taste sperrt.
Soweit war das okay... nur leider sperrt das Makro auch für alle anderen Dokumente die enter taste. Der WItz dabei ist wenn ich alle dokumente schließe und ein neues mach ist die E-Taste immer noch gesperrt.
Und es lässt sich auch nur wieder anschalten wenn ich in das Formulardokument gehe und dort wieder das Rückgängig mache!

Hier das MAkro:

Sub EnterOff()
CustomizationContext = ActiveDocument.AttachedTemplate
KeyBindings.Add KeyCategory:=wdKeyCategoryMacro, _
Command:="Dummy", KeyCode:=BuildKeyCode(vbKeyReturn)
KeyBindings.Add KeyCategory:=wdKeyCategoryMacro, _
Command:="Dummy", KeyCode:=BuildKeyCode(wdKeyShift, wdKeyReturn)
ThisDocument.Saved = True
End Sub

Meine Frage daher: Gibts da ne elegantere Lösung? und wirken Makros generell aufs komplette Programm aus!?

2. Wollte hier eine Kollegin das wenn man bei einem Textfeld zuviele Zeichen eingibt sich die Schriftgröße automatisch verkleinert um das Feld vorm überlaufen zu schützen.
Ich hab hier keinen Plan wie das funktionieren soll.
In VBA? oder gehts einfacher!?

ich hab hier mal einen Pseudo-Code:

Sub DynSchriftgroesse()
If Len(TBBegründung) > 10 Then
TBBegründung.FontSize = 20
End If
End Sub

Leider sind meine VBA Kentnisse eher gering bis gar nicht vrohanden;)

Vll kann mir hier ja jemand einen kleinen Tipp geben wie ich da am besten anfange oder wo ich die nötigen Informationen herbekomme!!!

Vielen Dank euch!

Mfg
Fingo

 

Hallo,

wenn Du mit "Formular" eine UserForm meinst, wie zB. Deine "UFGrunddaten", dann gibt es eine einfache Möglichkeit, die Eingabe der ENTER-Taste in TextBoxen zu unterbinden. Du musst nur darauf achten, dass Du in keiner Befehlsschaltfläche (=Button) die Eigenschaft Default auf True setzt, denn dann würde das Betätigen von ENTER automatisch das Betätigen dieses Buttons bedeuten.

In der Microsoft-Hilfe ist folgende Eigenschaft von TextBox-Feldern in UserForms beschrieben:

EnterKeyBehavior-Eigenschaft
Definiert, welche Wirkung das Drücken der EINGABETASTE in einem Textfeld-Steuerelement (TextBox) hat.

Syntax
object.EnterKeyBehavior [= Boolean]

Die Einstellungen für Boolean sind:

Wert Beschreibung
True Durch Drücken der EINGABETASTE wird eine neue Zeile erzeugt.
False Durch Drücken der EINGABETASTE wird der Fokus zum nächsten Objekt in der Aktivierreihenfolge verschoben (Voreinstellung).

Hinweise
Die Eigenschaften EnterKeyBehavior und MultiLine sind eng miteinander verbunden. Die weiter oben beschriebenen Werte können nur angewendet werden, wenn MultiLine den Wert True hat. Wenn MultiLine den Wert False hat, wird durch Drücken der EINGABETASTE immer der Fokus zum nächsten Steuerelement in der Aktivierreihenfolge bewegt, unabhängig vom Wert von EnterKeyBehavior.

Welche Wirkung durch das Drücken von STRG+EINGABETASTE erzielt wird, hängt ebenfalls vom Wert von MultiLine ab. Wenn MultiLine den Wert True hat, wird durch Drücken von STRG+EINGABETASTE eine neue Zeile erzeugt, unabhängig vom Wert von EnterKeyBehavior. Wenn MultiLine den Wert False hat, hat das Drücken von STRG+EINGABETASTE keine Auswirkung.