Thanks Andrew Lockton(Guessed) for the reply
I get Error as Arguement Not Optional
rngFoot.
End =
and then i used the following too
rngFoot.End(xltoRight)
Nothing worked
Also tried below but nothing worked
Code:
Dim rngFoot As Range
Set rngFoot = wdDoc.Sections(1).footers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range
With rngFoot
.Collapse Direction:=0
.End(xlToRight) = .Start + 10
.Font.Bold = True
End With
SamD