Você selecionou o fórum correto, bem vindo.
Sub Main()
Dim oParagraph As Paragraph
Dim i As Long
Dim doc As Document
Set doc = ActiveDocument
For i = doc.Paragraphs.Count To 1 Step -1
'use 0 para pares e 1 para ímpares
If i Mod 2 = 0 Then
doc.Paragraphs(i).Range.Font.Size = 6
End If
Next i
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br