Word vba option button

If OptionButton1.Value = True Then
        MsgBox ("Prøve tid")
    End If
   
    If OptionButton2.Value = True Then
        MsgBox ("Ikke prøvetid")
    End If

Ved ikke om det er sådan du mener?

Jeg er heller ikke helt med på om det er en userform du har lavet? :)

Det er næsten sådan, der skal bare ikke åbnes en box, teksten skal bare sættes ind i mit dokument :-)

Hvis du opretter et bogmærke der hvor du gerne vil have teksten til at stå, og kalder den et eller andet - så skal du lige rette i koden hvor jeg har brugt bogmærkenavnet test.

Kan du bruge det på den måde ? =)

Private Sub OptionButton1_Click()
  Dim bmRange As Range
  Set bmRange = ActiveDocument.Bookmarks("Test").Range
  bmRange.Text = "Prøvetid"

  ActiveDocument.Bookmarks.Add _
  Name:="Test", _
  Range:=bmRange
End Sub

Private Sub OptionButton2_Click()
  Dim bmRange As Range
  Set bmRange = ActiveDocument.Bookmarks("Test").Range
  bmRange.Text = "Ikke prøvetid"
   
  ActiveDocument.Bookmarks.Add _
  Name:="Test", _
  Range:=bmRange
End Sub

Kan du få det til at virke? :)

ja tak