Sub AddLetterhead()
Dim oFld As Field
Dim oRng As Word.Range, oRngFld As Word.Range
Dim lngInterogate As Long
  
  lngInterogate = ActiveDocument.Sections(1).Headers(1).Range.StoryType
  Set oRng = ActiveDocument.StoryRanges(wdFirstPageHeaderStory)
  'Does the header Autotext field exist?
  On Error Resume Next
  If Not oRng.Fields(1).Type = wdFieldAutoText Then
    On Error GoTo 0
    'No, then create it.
    Set oRngFld = oRng.Duplicate
    oRngFld.Collapse wdCollapseStart
    Set oFld = oRng.Fields.Add(oRngFld, wdFieldAutoText, "LH_Logo")
    oFld.Update
    On Error GoTo 0
  Else
   Set oFld = oRng.Fields(1)
    If InStr(oFld.Code.Text, "No_Logo") > 0 Then
      oFld.Code.Text = Replace(oFld.Code, "No_Logo", "LH_Logo")
      oFld.Update
    End If
  End If
lbl_Exit:
  Exit Sub
End Sub
Sub RemoveLetterhead()
Dim oFld As Field
Dim oRng As Word.Range
Dim lngInterogate As Long
  
  lngInterogate = ActiveDocument.Sections(1).Headers(1).Range.StoryType
  Set oRng = ActiveDocument.StoryRanges(wdFirstPageHeaderStory)
  'Does the header Autotext field exist?
  If oRng.Fields.Count > 0 Then
    Set oFld = oRng.Fields(1)
    If oFld.Type = wdFieldAutoText Then
      If InStr(oFld.Code.Text, "LH_Logo") > 0 Then
        oFld.Code.Text = Replace(oFld.Code, "LH_Logo", "No_Logo")
        oFld.Update
      End If
    End If
  End If
lbl_Exit:
  Exit Sub
End Sub