Macro de excel para generar documentos de word con varias hojas

Muy buenas,

Estoy desarrollando una macro de excel donde recoge los datos de una hoja del libro y los exporto a un documento de word. A su vez tengo otra macro que me replica las hojas de excel por un número variable dependiendo de las necesidades.
Supongamos que replico 5 hojas, desearía que en el word se me abriese el documento generado, además de cada una de las hojas de excel.
Te paso el código para que le puedas echar un vistazo.
Public Sub generaDocumento()
' Generar Word con Macro
Dim objWord As Word.Application
Dim cadena As String
cadena = "Esto es una prueba del texto que se puede grabar agregando el dato de la "
cadena = cadena & "columna C1: " & ThisWorkbook.Worksheets("Inicio").Range("A3").Value
cadena = cadena & " y su valor correspondiente: " & ThisWorkbook.Worksheets("Inicio").Range("B3").Value
Set objWord = CreateObject("Word.Application")
objWord.Documents.Add
objWord.ActiveDocument.Content.FormattedText.Text = cadena
objWord.ActiveDocument.SaveAs "C:\Users\Iván\Desktop\Oikos pruebas\prueba.doc"
objWord.Quit True
Set objWord = Nothing
End Sub

--------------------------------------------------------------------------------------------------------------------

Sub Replicar_CUPS()
'
' Duplicar_CUPS Macro
'
'
Sheets("CUPS1").Select
For i = 1 To Sheets("Inicio").Range("H9").Value - 1
Sheets("CUPS1").Copy After:=Sheets(i + 1)
ActiveSheet.Name = "CUPS" & i + 1
Next i
End Sub

---------------------------------------------------------------------------------------------------------------------

Muchas gracias, espero su respuesta.