With ActiveDocument.SelectContentControlsByTitle("A-OFFICE")(1)
        .LockContents = False
        .Range.Text = Split(StrDetails, "|")(0)
        .LockContents = False
   Select Case .Range.Text
     Case "OFFICE01"
       With ActiveDocument.SelectContentControlsByTitle("OFFICEHEAD")(1)
         .LockContents = False
         .Range.Text = "OFFICE01 HEADER"
         .LockContents = True
       End With
     Case "OFFICE02"
       With ActiveDocument.SelectContentControlsByTitle("OFFICEHEAD")(1)
         .LockContents = False
         .Range.Text = "OFFICE02 HEADER"
         .LockContents = True
       End With
      Case Else
        With ActiveDocument.SelectContentControlsByTitle("OFFICEHEAD")(1)
          .LockContents = False
          .Range.Text = "JUST HEADER"
          .LockContents = True
        End With
   End Select
End With