Thanks, that works great, what I would now like to do is expand the code to
run for each loaded UserForm (I have over 20 Userforms).

I did try the code below, but it seems to repeating he opitonbuttons and
checkboxes for each new UserForm it moves to:

Dim oButtonArray() As OptionButton
Dim oCheckboxArray() 'As CheckBox
Dim i As Long
Dim j As Long
Dim oControl As Control
Dim UF As Object
   Load xxFrm
   Load yyFrm
   Load zzFrm

For Each UF In UserForms

   For Each oControl In UF.Controls
   If TypeOf oControl Is MSForms.OptionButton Then
       ReDim Preserve oButtonArray(i)
       Set oButtonArray(i) = oControl
       i = i + 1
       GoTo SkipRest
   End If
   If TypeOf oControl Is MSForms.CheckBox Then
       ReDim Preserve oCheckboxArray(j)
       Set oCheckboxArray(j) = oControl
       j = j + 1
   End If
SkipRest:
   Next oControl
   For i = 0 To UBound(oButtonArray)
   ActiveDocument.Range.InsertAfter UF.Name & "," & oButtonArray(i).Name &
"," & oButtonArray(i).Caption & vbCr
   Next i
   For j = 0 To UBound(oCheckboxArray)
   ActiveDocument.Range.InsertAfter UF.Name & "," & oCheckboxArray(j).Name
& "," & oCheckboxArray(j).Caption & vbCr
   Next j

Next UF