Word содержит то, что называется Рассказы в коллекции StoryRange
- большинство подпрограмм выполняется в основной части самого документа типа wdMainTextStory
типа WdStoryType
, если вы специально не изменили истории.
Вот способ получить доступ к вашим элементам управления в шапке:
Dim ad as Document
Set ad = ActiveDocument
For Each objCC In ad.Sections(1).Headers(wdHeaderFooterPrimary).Range.ContentControls
''# Do your thing
Next