Mae pere muchas gracias en realidad la primera parte del código ya la tenia:
Dim xWord As Word.Application
Dim wdDoc As Word.Document
Dim xRange As Range
Set xWord = New Application
Supongo que esta parte es para guardar el documento en alguna dirección que uno quiera verdad, pero en realidad no ocupo guardarlo solo abrirlo y que lo lean y ya ahí el usuario que vea si lo guiarda o no:
Set wdDoc = xWord.Documents.Open(destino) ' destino = ruta del documento Word
Y la otra parte me va a hacer muy útil porque le puedo dar un formato desde que inicia word:
xWord.ActiveDocument.Range.Font.Bold = True
xWord.ActiveDocument.Range.Font.SIZE = 34
xWord.ActiveDocument.Range.Font.Name = Arial
Lo que no consigo es poder hacer lo siguiente: quiero que aparezca Un subtitulo digamos nombre que aparezca en negrita, luego que aparezca el nombre sin negrita, así que hizo esto bajar dos renglones y volver a hacer lo mismo. Esto hasta unas 17 veces con subtitulos diferentes, Si me puede ayudar me salvaria mucho la tanta. Pura Vida.