UserForm

25/05/2010 - 08:33 von Peter | Report spam
Hallo Helfer,



1. Problem

ich möchte einen Autotext in einer Userform aufnehmen:



Me.TextBox1.Text = _

Templates(Startverz & "\Formulierungshilfen.dot").AutoTextEntries("AV11").Value



Der Autotext wird nur teilweise übernommen.

Gleiches gilt für die Aufnahme in einem Label. Auch hier wird der Autotext
nicht voll übernommen:



Me.Label5 = _

Templates(Startverz & "\Formulierungshilfen.dot").AutoTextEntries("AV11").Value





2. Problem

Ich möchte zwei Userformen auf dem Bildschirm haben, die ich verschieben und
durch Klick jeweils aktivieren kann.



Ich rufe aus Userform1 die zweite Userform auf:



Private Sub cmdFH_Click()

frm2.Show

End Sub



Funktioniert auch, nur wenn ich die zweite Userform auf dem Bildschirm
verschiebe, hinterlàsst die Form eine "Spur" auf dem Bildschirm.





Danke und Gruß

Peter
 

Lesen sie die antworten

#1 Thomas Gahler
26/05/2010 - 10:48 | Warnen spam
Hallo Peter


ich möchte einen Autotext in einer Userform aufnehmen:
Me.TextBox1.Text = _
Templates(Startverz &
"\Formulierungshilfen.dot").AutoTextEntries("AV11").Value
Der Autotext wird nur teilweise übernommen.


Vba übernimmt nur 255 Zeichen. Du bekommst den Text also nicht direkt auf
die UserForm. Was möglich ist den Text in ein temporàres Dokument
einzufügen, von dort einlesen, Dokument verwerfen.


Ich möchte zwei Userformen auf dem Bildschirm haben, die ich verschieben
und durch Klick jeweils aktivieren kann.


Du musst die UserForm nicht modal (vbModal =Standard) sondern "modeless"
aufrufen. Dann kannst du zwischen den einzelnen UserForms (inkl. Word) hin
und her wechslen.




Thomas Gahler
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP3), Office XP (SP3)

Ähnliche fragen