vba text in textmarken einfügen
Hallo,
ich hab e in einen word dokument 3 geschlossene textmarken erstellt.
dann habe ich im vba editor ein userform erstellt mit drei textfeldern und einem ok button
wenn ich das starte klappt das einwandfrei das der text der in den textfeldern eingetragen wurde in die textmarken gestetzt wird
das mach ich mit folgenden code:
Private Sub cmdOk_Click()
TextEinfuegen "txtvorname"
TextEinfuegen "txtnachname"
TextEinfuegen "txtwohnort"
Application.ScreenRefresh
End Sub
Private Sub TextEinfuegen(TMName As String)
If ActiveDocument.Bookmarks.Exists(TMName) Then
Dim TMRange As Range
Set TMRange = ActiveDocument.Bookmarks(TMName).Range
TMRange.Text = Me.Controls(TMName).Text
ActiveDocument.Bookmarks.Add Name:=TMName, Range:=TMRange
End If
End Sub
Nun möchte ich einen frame erstellen der drei optionbuttons erstellt und den text des ausgewählten option buttons in das dokument einfügt. Wie geht das?