|
Hallo liebe Gemeinde,
ich möchte in Word gerne über eine Userform Eingaben (Name, Geschäftsstelle, Email und Telefonummer) ermöglichen, welche geschlossene Textmarken ansteuern und entsprechend ersetzen soll.
Das klappt auch alles ganz wunderbar.
Nun möchte ich gerne, dass er die Email Eingabe als Hyperlink einfügt, sodass man bei Klick direkt eine Email öffnet. Hier komme ich nicht weiter.
Hier mein Quellcode:
Private Sub cmdOK_Click()
Dim bmName As Range
Dim bmGst As Range
Dim bmGstu As Range
Dim bmEmail As Range
Dim bmTelefon As Range
With ActiveDocument
'die Textmarken als Einfügestellen definieren
Set bmName = .Bookmarks("Name").Range
Set bmGst = .Bookmarks("Gst").Range
Set bmGstu = .Bookmarks("Gstu").Range
Set bmEmail = .Bookmarks("Email").Range
Set bmTelefon = .Bookmarks("Telefon").Range
'Textmarken füllen
bmName = Me.TxtName.Value
bmGst = Me.cmbxGst.Value
bmGstu = Me.cmbxGst.Value
bmEmail = Me.TxtEmail.Value
bmTelefon = Me.TxtTelefon.Value
'Textmarken wiederherstellen
.Bookmarks.Add Name:="Name", Range:=bmName
.Bookmarks.Add Name:="Gst", Range:=bmGst
.Bookmarks.Add Name:="Gstu", Range:=bmGstu
.Bookmarks.Add Name:="Gstu", Range:=bmGstu
.Bookmarks.Add Name:="Telefon", Range:=bmTelefon
End With
Unload Me
End Sub
Kann mir hier jemand helfen?
Vielen Dank!
|