Macro para word

Sería como sigue, esto lo tienes que insertar en lo que ya tienes:
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 27/07/06 por a
'
Selection.InsertBreak Type:=wdSectionBreakNextPage
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(3)
.BottomMargin = CentimetersToPoints(3)
.LeftMargin = CentimetersToPoints(3)
.RightMargin = CentimetersToPoints(3)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21.59)
.PageHeight = CentimetersToPoints(27.94)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
End With
End Sub

Muchas gracias.
Lo que me has enviado, lo inserto al final de la que te he enviado yo, ¿verdad?
Al ejecutar esta macro, después de cambiarla, me cambiará la primera página de una manera y el resto de otra, ¿verdad?
Sabes como puedo cambiar el tipo de letra y el tamaño a todo el documento a través de sentencias en esa macro, ¿sin poner el "selection" (me obliga a marcar el texto a convertir)?
Gracias de nuevo

Muchas gracias

Te adjunto la macro para ver si me puedes indicar lo de la nueva sección a partir de la segunda página:
Mucha gracias por anticipado.
Sub Pag1()
'
' BOLETIN.Pag1 Macro
' Macro grabada el 24/07/06 por Kar
'
Selection.Font.Name = "Arial"
Selection.Font.Name = "Arial"
Selection.Font.Size = 10
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(4.44)
.BottomMargin = CentimetersToPoints(1.59)
.LeftMargin = CentimetersToPoints(4.76)
.RightMargin = CentimetersToPoints(0.68)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(0)
.FooterDistance = CentimetersToPoints(0)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
End With
End Sub

Efectivamente, menos lo del sub, todo debe de ir después de lo tuyo...
La única forma que se puede cambiar es seleccionando todo lo que tengas en el documento, si es un documento en blanco, es más sencillo el rango de selección, pero si es un documento un poco largo, pues es un poco más lento, pero nada más...