Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Textbaustein = "Textbaustein1"
fuegetextbausteinein (Textbaustein)
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Textbaustein = "Textbaustein2"
fuegetextbausteinein (Textbaustein)
End If
End Sub
Function fuegetextbausteinein(Textbaustein)
txtbaustein = Textbaustein
Application.DisplayAutoCompleteTips = True
ActiveDocument.AttachedTemplate.AutoTextEntries(txtbaustein). _
Insert Where:=Selection.Range, RichText:=True
End Function