Set Rng = .Range.Paragraphs(1).Range
Set Rng = .Headers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range