範例中的第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、是自己编辑的文件吗？是的话就用固定格式，这就肯定没问题。
2、如果不是自己编辑的文件，能保证文件的格式符合你的要求吗？符合的话应该也没问题。
3、如果文件的内容格式不确定，那就只能是“模糊”了。

请试一试，是否是你需要的？
MyWord.Selection.Find.Execute("AAA",.F.,.T.,.F.,.F.,.F.,.T.,1,.T.,"BBB",1) && 整个word文档中的"AAA"全部替换成"BBB"

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的模版置換成功？