编程论坛 → VFP论坛

如何删除word文档指定页

王咸美发布于 2025-06-05 19:35， 370 次点击

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

4 回复

schtg2025-06-05 20:24

回复楼主王咸美

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

程序代码：

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

王咸美2025-06-05 21:29

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

schtg2025-06-06 10:30

回复 3楼王咸美

试一试这个代码可否？

程序代码：

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

王咸美2025-06-07 18:50

谢谢指点！