Headers, footers are a different type of story < g > - no pun intended:
#Define wdCharacter 1
Local loWordApplication, loDoc, loRange
loWordApplication = Createobject("Word.Application")
loDoc = loWordApplication.Documents.Open("C:\Example.doc")
If loDoc.BookMarks.Exists("BKM_1") And loDoc.BookMarks.Exists("BKM_2") And ;
loDoc.BookMarks("BKM_1").StoryType = loDoc.BookMarks("BKM_2").StoryType
Local lnCharacters
lnCharacters = loDoc.BookMarks("BKM_2").Start-loDoc.BookMarks("BKM_1").Start
If loDoc.BookMarks("BKM_1").StoryType != 1
loDoc.StoryRanges(loDoc.BookMarks("BKM_1").StoryType).Select()
Endif
loDoc.BookMarks("BKM_1").Range.Select()
loDoc.Application.Selection.Moveend(wdCharacter, m.lnCharacters)
loRange = loWordApplication.Selection
?loRange.Text && Printing the value here and expecting the result as "Test"
Endif
loWordApplication.Quit