我在word文档分页时多插入一个分页符 InsertBreak(7)，导致多出一页空白页，例如将word文档第6页空白页删除，不知vfp代码如何写，请高手赐教，万分感谢？？？

试一试下面的代码是否可行？

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()

谢谢！但是不能删除第6页空白页。

试一试这个代码可否？

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()

谢谢指点！