{ ... } aDoc := WordApp.Documents.Add(EmptyParam, EmptyParam); aDoc.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Text := 'This is a header'; { ... }