Dim rngFoot As Range Set rngFoot = wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range rngFoot.End = rngFoot.Start + 10 rngFoot.Font.Bold = True