Consulta sobre macro en word

Tengo esta macro en word, la cual hace que a un documento se le borren puntos, cambia el tamaño de letra entre otras cosas, la cosa es que tengo que juntar como 20 a 30 archivos por día en un archivo para imprimirlos.

con esta macro solo se le hacen los cambios a la primera hoja, pero a las demás las deja igual.
la idea mia es aplicar la macro, que se apliquen los cambios y se envíe a imnprimir y se cierre.

nose si me explico, pero me falta solo volver a realizar el proceso de cambiar la estructura nuevamente del texto hasta que se acaben las paginas...

les envío la macro para que me puedan ayudar y me digan si le falta algo o como se hace, de antemano muchas gracias

esta es la que me ayuda a juntar todos los archivos word

Sub InsertarFichero()
Dim strFichero As String
Dim strRuta As String
Dim MiRango As Range
strRuta = "Ubicacion de archivo"
strFichero = Dir$(strRuta & "\*.doc")
Documents.Add
Do Until strFichero = ""
With Selection
.InsertFile FileName:=(strRuta & "\" & strFichero)
.Collapse wdCollapseEnd
.InsertBreak wdSectionBreakNextPage
 End With
strFichero = Dir()
Loop
Set MiRango = Nothing
End Sub