找出頁面標題中兩個書籤之間的文本MSWord

Question

我正在尋找一種方法來找出放置在MSWord頁面標題上的兩個書籤之間的文本內容。

假設兩個書籤是BKM_1和BKM_2。兩個書籤之間的文本也是「測試」。

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") 
    loRange = loDoc.RANGE(loDoc.BookMarks("BKM_1").START, loDoc.BookMarks("BKM_2").START) 
    loRange.SELECT 
    ?loRange.TEXT && Printing the value here and expecting the result as "Test" 
ENDIF 

但是，儘管書籤存在，但上面並未產生我期待的結果。 請幫忙！

Answer 1

頁眉，頁腳是一個不同類型的故事<克>的 - 沒有雙關語意：

#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