範例中的第1頁之頁首與第2、3不一樣,我想將第2、3頁首的AAA置換成BBB,就是不成功(附件H3)。但是我將第1頁刪除，剰2、3頁相同格式就會成功(附件H2),有高手可以幫忙嗎？

clDoc=Getfile("doc,docx","打开","选定")
If Empty(clDoc)
    Return
Endif
MyWord=CreateObject('Word.Application')
*显示WORD窗口
MyWord.Visible=.T.
MyWord.Documents.Open (clDoc)

MyWord.Selection.Find.ClearFormatting
_Cliptext ="BBB"
MyWord.ActiveWindow.ActivePane.View.SeekView=9
MyWord.Selection.ClearFormatting

Do WHILE .t.
    MyWord.Selection.Find.ClearFormatting
    If MyWord.Selection.Find.Execute("AAA")
        MyWord.Selection.Paste
    Else
        Exit
    Endif
Enddo
MyWord.ActiveWindow.ActivePane.View.SeekView=0
[local]2[/local]

我的問題是無解？還是...沒有人會？

1.附件(附件H3.DOC)你們有沒有注意到：第一頁的頁首是沒AAA的，是從第二頁才有AAA，我的資料可能會把模板的AAA置換成BBB，也有可能置換成CCC，是隨機看資料撈出來是誰的名字就換誰的名字。現在的問題是，因為第一頁沒有AAA，所以下達MyWord.Selection.Find.Execute("AAA",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"BBB",1)後，第二頁和第三頁的的AAA無法置換成BBB。
2.附件(附件H2.DOC)第一頁的頁首與第二、三是一致的，所以下達MyWord.Selection.Find.Execute("AAA",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"BBB",1)後，是可以置換成功。

3.所以我的問題是：是否有辦法將附件H3.DOC的模版置換成功？