Roderick,

I won't go on about how you should have a template for pre-printed
letterhead and a template for this and a template for that ;-)

Try:
Sub ScratchMacro()
Dim oRng As Range
For Each oRng In ActiveDocument.StoryRanges
 Select Case oRng.StoryType
   Case Is = 6, 7, 10
     oRng.ShapeRange.Delete
   Case Else
     'Do nothing
 End Select
Next
End Sub

Hello Roderick,

I guess you could loop through the Shapes  and delete if it is not the logo.
The key is to identify the logo, which you could do by name, position, ID,
size etc.  So, something like (this does the whole document and looks for
the size of the shape, but you can easily changes these):

Sub DeleteHeaderShapes()

Dim wDoc As Word.Document
Dim shps As Shapes

   Set wDoc = ActiveDocument

   For x = 1 To wDoc.Sections.Count
       If wDoc.Sections(x).Headers(wdHeaderFooterPrimary).Shapes.Count > 0
Then
           Set shps =
wDoc.Sections(x).Headers(wdHeaderFooterPrimary).Shapes
           For i = shps.Count To 1 Step -1
               'Change this section depending on known criteria
               If shps(i).Width > MillimetersToPoints(50) _
                   And shps(i).Height < MillimetersToPoints(10) Then
                   shps(i).Delete
               End If
           Next i
       End If
   Next x

End Sub

Best regards

John