程序代码：

LOCAL Wordapp, oWordapp
Wordapp = createobject("word.application")
oWordapp = Wordapp.documents.open(SYS(5)+CURDIR()+"test.doc")
Wordapp.visible =.t.
Wordapp.Selection.GoTo(1, 1, 6)  && 定位到第6页并删除
Wordapp.ActiveDocument.Bookmarks("\Page").Range.Delete()

程序代码：

LOCAL loWord, loDoc
loWord = CREATEOBJECT("Word.Application")
loDoc = loWord.Documents.Open(GETFILE("doc;docx"))

loWord.Selection.GoTo(1,,2)  &&  删除指定第2页空白页面
IF loWord.Selection.Start = loWord.Selection.End
    loWord.Selection.Delete(1)
    MESSAGEBOX("删除成功")
ENDIF
loDoc.Save()
loWord.Quit()