Hi
In the code below, why would OFFICEHEAD always be set to "JUST HEADER".
Code:
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
Thank you
J