Segue algumas propriedades e veja se servem para seu objetivo
Set Word_VB = New Word.Application
with Word_VB
.Selection.Font.Bold = True 'Negrito
.Selection.Font.Underline = wdUnderlineSingle 'Texto sublinhado
.Selection.Font.Italic = False 'Font Italic
.Selection.Font.Size = 8 'Tamanho da fonte
.Selection.Font.Name = "Arial" 'Nome da Fonte
end with