2023-01-13 02:01:00
浏览word时每滚动一页都重新分页,以至浏览时很慢很...
你所说的分页,应该是指页面视图中的页面间空白吧?
一种方法:
工具 → 选项 → 视图 → 取消“页面间空白(仅页面视图)”前的√ → 确定 即可
另一种方法:
视图 → 选择“页面”之外的视图方式即可
将word文档分页 成为n个文档
200除以12大概的等于17,分别在第17,34,51,68,85,102,119,136,153,170,187页等插入分节符【下一页】。
打开文档,打开vb编辑器,将下面的代码粘贴到编辑器中,f5运行:
sub breakonsection()
' used to set criteria for moving through the document by section.
application.browser.target = wdbrowsesection
'a mailmerge documents ends with a section break next page.
'subtracting one from the section count stop error message.
for i = 1 to ((activedocument.sections.count) - 1)
'select and copy the section text to the clipboard
activedocument.bookmarks("\section").range.copy
'create a new document to paste text from clipboard.
documents.add
selection.paste
' removes the break that is copied at the end of the section, if any.
selection.moveup unit:=wdline, count:=1, extend:=wdextend
selection.delete unit:=wdcharacter, count:=1changefileopendirectory "c:\"
docnum = docnum + 1
activedocument.saveas filename:="test_" & docnum & ".doc"
activedocument.close
' move the selection to the next section in the document
application.browser.next
next i
activedocument.close
savechanges:=wddonotsavechanges
end sub