Sub FormatTheFile()
Dim DocLogo As Document, DocMain As Document
Set DocMain = ActiveDocument
Set DocLogo = Documents.Open(FileName:=\\Lion\D$\CLIENTS\Authorization\LogoFile.doc, AddToRecentFiles:=False)
FileName$ = GetFileType$()
Select Case FileName$
  Case "IPWSM", "IPWSP", "IOPWSM"
    DocLogo.Shapes("Picture 5").Copy
    With DocMain.Sections(1).Headers(wdHeaderFooterPrimary).Range
      .Collapse wdCollapseStart
      .Paste
    End With
End Select
DocLogo.Shapes("Picture 6").Copy
With DocMain.Sections(1).Headers(wdHeaderFooterPrimary).Range
  .Collapse wdCollapseEnd
  .Paste
End With
DocLogo.Close SaveChanges:=False
FileName$ = GetFileType$()
Select Case FileName$
  Case "OICPIA", "OICPOA"
    Call OICPIA
  Case "IPSDP", "OPINTM", "IOPWSM", "IPHWP", "IOPWSPM", "IOPHEM", "IOPHEPM", "IOPHWPM", "IOPHWM"
    Selection.EndKey Unit:=wdStory
  Case Else
    'TEMP$ = MsgBox(FileName$ + ": UNKNOWN TYPE.", vbOKOnly, "Error")
End Select
End Sub