Sub TITLE()
Application.ScreenUpdating = False
Dim Shp As Shape
With ActiveDocument.Sections(1)
  With .PageSetup
    .DifferentFirstPageHeaderFooter = True
    .TopMargin = CentimetersToPoints(5)
  End With
  Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPicture _
    (FileName:="Z:\Logo1.jpg", LinkToFile:=False, SaveWithDocument:=True)
  With Shp
    .Height = CentimetersToPoints(4.94)
    .Width = CentimetersToPoints(3.58)
    .LockAspectRatio = True
    .Left = CentimetersToPoints(13.67)
    .Top = CentimetersToPoints(-1.23)
    .WrapFormat.AllowOverlap = True
    .WrapFormat.Side = wdWrapNone
    .Name = "Logo1"
  End With
  Set Shp = .Headers(wdHeaderFooterFirstPage).Shapes.AddPicture _
    (FileName:="Z:\Logo2.jpg", LinkToFile:=False, SaveWithDocument:=True)
  With Shp
    .Height = CentimetersToPoints(4.29)
    .Width = CentimetersToPoints(4.84)
    .LockAspectRatio = True
    .Left = CentimetersToPoints(7.83)
    .Top = CentimetersToPoints(-0.27)
    .WrapFormat.AllowOverlap = True
    .WrapFormat.Side = wdWrapNone
    .Name = "Logo2"
  End With
End With
Set Shp = Nothing
Application.ScreenUpdating = True
End Sub