Excel - Insertar línea en Word sin espaciado desde VBA

'************esto aumente despues de crear el documento***************

    wordapp.Selection.WholeStory  'esto aumente

    wordapp.Selection.Style = wordapp.ActiveDocument.Styles("Sin espaciado")  'espero te ayude

'***********************************************************************************

Sub CertificadoLaboral()

Dim wordapp As Word.Application

Dim i, a, b, c As Integer

Dim fs As FileSystemObject

Dim Documento As Document, objselection As Selection

Dim Ruta, Nombre(1 To 2) As String

Set wordapp = New Word.Application

wordapp.Visible = True

Set fs = New FileSystemObject

For i = 1 To 2

Nombre(i) = Cells(i + 1, 1) & " " & Cells(i + 1, 2)

Next i

Set Documento = wordapp.Documents.Add

Documento.Select

Set objselection = wordapp.Selection

objselection.TypeText Nombre(1)

Call espacios(objselection, 1)

objselection.TypeText Nombre(2)

'************esto aumente ***************

    wordapp.Selection.WholeStory  'esto aumente

    wordapp.Selection.Style = wordapp.ActiveDocument.Styles("Sin espaciado")  'espero te ayude

'*********************************************

Set fs = Nothing

Set objselection = Nothing

Set Documento = Nothing

Set wordapp = Nothing

Application.DisplayAlerts = True

End Sub

Public Sub espacios(seleccion As Selection, lineas As Integer)

Dim i As Integer

For i = 1 To lineas

    seleccion.TypeParagraph

Next i

End Sub