Visual Basic para Aplicaciones - macro excel modificacion

Buenas gente,

Haber tengo que hacer una modificación en una macro que ya tengo echa en Basic para word2003, a esta macro le quiero añadir que en función de un parametro que le paso me seleccione unos determinados parrafos y me los oculte, he realizado una pequeña modificación a mi parecer poco óptima(aún no he puesto la condición del parametro):

Sub SelectParagraph33()
ActiveDocument.Paragraphs(80).Range.Select
ActiveDocument.Paragraphs(81).Range.Select
ActiveDocument.Paragraphs(82).Range.Select
ActiveDocument.Paragraphs(83).Range.Select
ActiveDocument.Paragraphs(84).Range.Select

With Selection.Font
.Name = "Times New Roman"
.Size = 18
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = True
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
End With

End Sub

Este trozo de codigo ya me oculta los parrafos del texto que quiero ocultar para que no se impriman.
Pero me gustaria que esto fuera mas flexible, tengo la idea pero no se como hacerla y es la siguiente; poner dos marcadores uno al inicio del texto que quiero ocultar y otro al final y una vez echo esto seleccionar el texto delimitado entre las marcas de los marcadores y poner (With Selection.Font) que he puesto arriba, de esta manera cuando se quiera hacer una modificación del codigo a causa de la plantilla solo se deveran de modificar la posición de los marcadores.la parte de la generación de los marcadores ya esta echa pero me falta como seleccionar el texto entre los marcadores:

Sub genero marcadores()

With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="marca1"
.DefaultSorting = wdSortByLocation
.ShowHidden = False
End With
Selection.MoveDown Unit:=wdLine, Count:=5
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="marca2"
.DefaultSorting = wdSortByLocation
.ShowHidden = False
End With
End Sub

Si alguien me pudiese ayudar se lo agradeceria

GRACIAS