View Single Post
 
Old 03-10-2020, 02:37 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 3,977
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

Try this instead
Code:
  Dim rngFoot As Range
  Set rngFoot = wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range
  rngFoot.End = rngFoot.Start + 10
  rngFoot.Font.Bold = True
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote