title image


Smiley Re: Userform
Hallo,



ein Beispiel getestet in Word XP.

Diesen Code in den Codeteil der Userform ein fügen.

Private Sub UserForm_Initialize()

With Me

.Caption = " Anschrift erfassen"

End With

End Sub

'

Private Sub CommandButton1_Click()

'Einfügen

Me.Hide

'Anrede

If ActiveDocument.Bookmarks.Exists("Text1") = True Then

ActiveDocument.FormFields("Text1").Result = Me.TextBox1.Text

End If

'Vorname

If ActiveDocument.Bookmarks.Exists("Text2") = True Then

ActiveDocument.FormFields("Text2").Result = Me.TextBox2.Text

End If

'Nachname

If ActiveDocument.Bookmarks.Exists("Text3") = True Then

ActiveDocument.FormFields("Text3").Result = Me.TextBox3.Text

End If

'Strasse

If ActiveDocument.Bookmarks.Exists("Text4") = True Then

ActiveDocument.FormFields("Text4").Result = Me.TextBox4.Text

End If

'PLZ/Ort

If ActiveDocument.Bookmarks.Exists("Text5") = True Then

ActiveDocument.FormFields("Text5").Result = Me.TextBox4.Text

End If

'

Unload Me

ActiveDocument.Fields.Update

End Sub



Private Sub CommandButton2_Click()

'Schliessen

Unload Me

End Sub      Hubert











geschrieben von

Anhang
Bild 11042 zu Artikel 525431

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: