Настройка моих радиокнопок, чтобы они импортировали текст из пользовательской формы в закладку

Question

Я делаю документ, используя форму пользователя.В пользовательской форме я настраиваю радиокнопки, когда нажимаю, я хочу, чтобы текст из макроса, который я сделал, был вставлен в определенную закладку в моем документе.Помогите пожалуйста

Это мой макрос:

Sub ordonnance()
'
' ORDONNANCE Macro
'
'
    Dim bmSignet As Bookmark
    Dim rgPlageDuSignet As Range
    Set bmSignet = ActiveDocument.Bookmarks("ORDONNANCE_DE")
    Set rgPlageDuSignet = bmSignet.Range
    rgPlageDuSignet.Select
    ActiveDocument.Tables.Add rgPlageDuSignet, 1, 1
    With Selection.Tables(1)
        If .Style <> "Grille du tableau" Then
            .Style = "Grille du tableau"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
    Selection.Font.Name = "Arial"
    Selection.Font.Size = 12
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="ORDONNANCE DE NON-PUBLICATION ..."

    Set bmSignet = Nothing
    Set rgPlageDuSignet = Nothing

End Sub

Это моя кнопка:

Private Sub OptionButton3_Click()

    If Me.OptionButton3.Value = True Then
        Call RemplaceSignet("ORDONNANCE_DE", "ORDONNANCE DE NON-PUBLICATION ...")
    Else
        Call RemplaceSignet("ORDONNANCE_DE", " ")
   End If
End Sub

Answer 1

Попробуйте:

Sub ordonnance(StrBkMk As String, StrTxt As String)
'
' ORDONNANCE Macro
'
'
Dim Tbl As Table
With ActiveDocument
  Set Tbl = .Tables.Add(.Bookmarks(StrBkMk).Range, 1, 1)
  With Tbl
    .Style = "Grille du tableau"
    .ApplyStyleHeadingRows = True
    .ApplyStyleLastRow = False
    .ApplyStyleFirstColumn = True
    .ApplyStyleLastColumn = False
    .ApplyStyleRowBands = True
    .ApplyStyleColumnBands = False
    With .Cell(1, 1).Range
      With .Font
        .Name = "Arial"
        .Size = 12
        .Bold = True
      End With
      .Text = StrTxt
    End With
  End With
End With
Set Tbl = Nothing
End Sub

Обратите внимание, что не нужно ничего выбирать.